paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 47799 from trunk:

Browse Source 
* Patch from Andrey Sobol to fix memleak
........

git-svn-id: branches/fixes_3_2@47867 -
This commit is contained in:
svenbarth 2020-12-28 12:43:23 +00:00
parent cf6e6c3d92
commit 3f5b72806b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/chm/src/itsftransform.pas
View File

@ -435,7 +435,15 @@ initialization
finalization finalization
if Assigned(LocTransforms) then if Assigned(LocTransforms) then
begin
while LocTransforms.Count > 0 do
begin
if Assigned(PITSFTranformItem(LocTransforms.Items[0])^.Instance) then
(PITSFTranformItem(LocTransforms.Items[0])^.Instance).Free;
LocTransforms.Delete(0);
end;
LocTransforms.Free; LocTransforms.Free;
end
end. end.