paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 10:39:29 +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
for i := 0 to StringCount - 1 do
begin
FreeMem(OrigStrings^[i]);
FreeMem(TranslStrings^[i]);
Dispose(OrigStrings^[i]);
Dispose(TranslStrings^[i]);
end;
FreeMem(OrigTable);
FreeMem(TranslTable);
FreeMem(OrigStrings);
FreeMem(TranslStrings);
FreeMem(HashTable);
Dispose(OrigTable);
Dispose(TranslTable);
Dispose(OrigStrings);
Dispose(TranslStrings);
Dispose(HashTable);
inherited Destroy;
end;
@ -310,7 +310,10 @@ end.
{
$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
}