浏览代码

* fixed module index updating, resolves #7883

git-svn-id: trunk@6623 -
florian 18 年之前
父节点
当前提交
199ab92eb8
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/verbose.pas

+ 1 - 1
compiler/verbose.pas

@@ -401,7 +401,7 @@ var
              lastfileidx:=current_filepos.fileindex
              lastfileidx:=current_filepos.fileindex
            else
            else
              lastfileidx:=0;
              lastfileidx:=0;
-           lastmoduleidx:=compiling_module.unit_index;
+           lastmoduleidx:=module.unit_index;
          end;
          end;
         if assigned(module) then
         if assigned(module) then
           status.compiling_current:=(compiling_module.state in [ms_compile,ms_second_compile]);
           status.compiling_current:=(compiling_module.state in [ms_compile,ms_second_compile]);