paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 15:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use dispose instead of freemem to also release the initialize types

Browse Source
This commit is contained in:
peter 2005-03-15 16:27:04 +00:00
parent 84d53b7ec9
commit 8f2fa89b3d
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fcl/inc/gettext.pp
View File

@ -158,14 +158,14 @@ var
begin begin
for i := 0 to StringCount - 1 do for i := 0 to StringCount - 1 do
begin begin
FreeMem(OrigStrings^[i]); Dispose(OrigStrings^[i]);
FreeMem(TranslStrings^[i]); Dispose(TranslStrings^[i]);
end; end;
FreeMem(OrigTable); Dispose(OrigTable);
FreeMem(TranslTable); Dispose(TranslTable);
FreeMem(OrigStrings); Dispose(OrigStrings);
FreeMem(TranslStrings); Dispose(TranslStrings);
FreeMem(HashTable); Dispose(HashTable);
inherited Destroy; inherited Destroy;
end; end;
@ -310,7 +310,10 @@ end.
{ {
$Log$ $Log$
Revision 1.8 2005-02-14 17:13:15 peter Revision 1.9 2005-03-15 16:27:04 peter
* use dispose instead of freemem to also release the initialize types
Revision 1.8 2005/02/14 17:13:15 peter
* truncate log * truncate log
} }