paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 08:31:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Reset AnsiStrings to clean up memory

Browse Source
This commit is contained in:
pierre 1999-11-08 16:27:20 +00:00
parent a4926e2d26
commit ffbacdffde
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/globals.pas
View File

@ -1245,6 +1245,11 @@ end;
initdefines.done; initdefines.done;
if assigned(DLLImageBase) then if assigned(DLLImageBase) then
StringDispose(DLLImageBase); StringDispose(DLLImageBase);
{ necessary to release AnsiString memory !! }
librarysearchpath:='';
unitsearchpath:='';
objectsearchpath:='';
includesearchpath:='';
end; end;
procedure InitGlobals; procedure InitGlobals;
@ -1315,7 +1320,10 @@ begin
end. end.
{ {
$Log$ $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 * truncated log to 20 revs
Revision 1.28 1999/11/04 10:55:31 peter Revision 1.28 1999/11/04 10:55:31 peter