Quellcode durchsuchen

* fixed setting of compiling_current

git-svn-id: trunk@6630 -
peter vor 18 Jahren
Ursprung
Commit
89ad4a083c
1 geänderte Dateien mit 3 neuen und 2 gelöschten Zeilen
  1. 3 2
      compiler/verbose.pas

+ 3 - 2
compiler/verbose.pas

@@ -403,8 +403,9 @@ var
              lastfileidx:=0;
            lastmoduleidx:=module.unit_index;
          end;
-        if assigned(module) then
-          status.compiling_current:=(compiling_module.state in [ms_compile,ms_second_compile]);
+        status.compiling_current:=assigned(compiling_module) and
+                                  (module=compiling_module) and
+                                  (compiling_module.state in [ms_compile,ms_second_compile]);
       end;