浏览代码

+ Reset AnsiStrings to clean up memory

pierre 26 年之前
父节点
当前提交
ffbacdffde
共有 1 个文件被更改,包括 9 次插入1 次删除
  1. 9 1
      compiler/globals.pas

+ 9 - 1
compiler/globals.pas

@@ -1245,6 +1245,11 @@ end;
         initdefines.done;
         if assigned(DLLImageBase) then
           StringDispose(DLLImageBase);
+       { necessary to release AnsiString memory !! }
+       librarysearchpath:='';
+       unitsearchpath:='';
+       objectsearchpath:='';
+       includesearchpath:='';
      end;
 
    procedure InitGlobals;
@@ -1315,7 +1320,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.29  1999-11-06 14:34:20  peter
+  Revision 1.30  1999-11-08 16:27:20  pierre
+   + Reset AnsiStrings to clean up memory
+
+  Revision 1.29  1999/11/06 14:34:20  peter
     * truncated log to 20 revs
 
   Revision 1.28  1999/11/04 10:55:31  peter