Explorar o código

Merged revision(s) 47799 from trunk:
* Patch from Andrey Sobol to fix memleak
........

git-svn-id: branches/fixes_3_2@47867 -

svenbarth %!s(int64=5) %!d(string=hai) anos
pai
achega
3f5b72806b
Modificáronse 1 ficheiros con 8 adicións e 0 borrados
  1. 8 0
      packages/chm/src/itsftransform.pas

+ 8 - 0
packages/chm/src/itsftransform.pas

@@ -435,7 +435,15 @@ initialization
 
 finalization
   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;
+  end
 
 end.