Răsfoiți Sursa

* fixed circular unit reference checking. loaded_from was reset after
reseting a unit, so no loaded_from info was available anymore.

peter 26 ani în urmă
părinte
comite
f7b72f4a8f
1 a modificat fișierele cu 7 adăugiri și 2 ștergeri
  1. 7 2
      compiler/files.pas

+ 7 - 2
compiler/files.pas

@@ -1147,7 +1147,8 @@ end;
         compiled:=false;
         compiled:=false;
         in_implementation:=false;
         in_implementation:=false;
         in_global:=true;
         in_global:=true;
-        loaded_from:=nil;
+        {loaded_from:=nil;
+        should not be changed PFV }
         flags:=0;
         flags:=0;
         crc:=0;
         crc:=0;
         interface_crc:=0;
         interface_crc:=0;
@@ -1347,7 +1348,11 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.110  1999-11-16 23:39:04  peter
+  Revision 1.111  1999-12-08 01:01:11  peter
+    * fixed circular unit reference checking. loaded_from was reset after
+      reseting a unit, so no loaded_from info was available anymore.
+
+  Revision 1.110  1999/11/16 23:39:04  peter
     * use outputexedir for link.res location
     * use outputexedir for link.res location
 
 
   Revision 1.109  1999/11/12 11:03:50  peter
   Revision 1.109  1999/11/12 11:03:50  peter