瀏覽代碼

* reset also the link* lists when recompiling an existing unit

peter 27 年之前
父節點
當前提交
d47ac4310c
共有 1 個文件被更改,包括 12 次插入3 次删除
  1. 12 3
      compiler/parser.pas

+ 12 - 3
compiler/parser.pas

@@ -197,6 +197,12 @@ unit parser;
             current_module^.sourcefiles.init;
             current_module^.sourcefiles.init;
             current_module^.used_units.done;
             current_module^.used_units.done;
             current_module^.used_units.init;
             current_module^.used_units.init;
+            current_module^.linkofiles.done;
+            current_module^.linkofiles.init;
+            current_module^.linkstaticlibs.done;
+            current_module^.linkstaticlibs.init;
+            current_module^.linksharedlibs.done;
+            current_module^.linksharedlibs.init;
           end
           end
          else
          else
           begin
           begin
@@ -303,9 +309,9 @@ done:
 {$endif Splitheap}
 {$endif Splitheap}
 
 
          { restore old state, close trees }
          { restore old state, close trees }
-{$ifdef VER0_99_5}	 
+{$ifdef VER0_99_5}      
          if dispose_asm_lists then
          if dispose_asm_lists then
-{$else}	 
+{$else} 
   {$ifndef go32v2}
   {$ifndef go32v2}
     {$ifndef linux}
     {$ifndef linux}
          if dispose_asm_lists then
          if dispose_asm_lists then
@@ -399,7 +405,10 @@ done:
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.34  1998-08-10 23:58:56  peter
+  Revision 1.35  1998-08-12 19:22:09  peter
+    * reset also the link* lists when recompiling an existing unit
+
+  Revision 1.34  1998/08/10 23:58:56  peter
     * fixed asmlist dispose for 0.99.5
     * fixed asmlist dispose for 0.99.5
 
 
   Revision 1.33  1998/08/10 14:50:07  peter
   Revision 1.33  1998/08/10 14:50:07  peter