paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Andrey Sobol to fix memleak

Browse Source 
git-svn-id: trunk@47799 -
This commit is contained in:
michael 2020-12-17 15:18:02 +00:00
parent 4235d2ce3d
commit 034048e09d
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.