Browse Source

* reset resourcestringlist in newmodule.

peter 26 years ago
parent
commit
f225a5f0bd
1 changed files with 10 additions and 2 deletions
  1. 10 2
      compiler/hcodegen.pas

+ 10 - 2
compiler/hcodegen.pas

@@ -249,8 +249,11 @@ implementation
          importssection:=nil;
          exportssection:=nil;
          resourcesection:=nil;
+         { assembler symbols }
          asmsymbollist:=new(pasmsymbollist,init);
          asmsymbollist^.usehash;
+         { resourcestrings }
+         resourcestringlist:=nil;
       end;
 
 
@@ -270,9 +273,11 @@ implementation
           dispose(exportssection,done);
          if assigned(resourcesection) then
           dispose(resourcesection,done);
+         { assembler symbols }
+         dispose(asmsymbollist,done);
+         { resource strings }
          if assigned(resourcestringlist) then
           dispose(resourcestringlist,done);
-         dispose(asmsymbollist,done);
       end;
 
 
@@ -291,7 +296,10 @@ end.
 
 {
   $Log$
-  Revision 1.37  1999-08-04 00:23:02  florian
+  Revision 1.38  1999-08-16 18:23:56  peter
+    * reset resourcestringlist in newmodule.
+
+  Revision 1.37  1999/08/04 00:23:02  florian
     * renamed i386asm and i386base to cpuasm and cpubase
 
   Revision 1.36  1999/08/01 23:09:26  michael