diff options
| author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-12-28 12:43:23 +0000 |
|---|---|---|
| committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-12-28 12:43:23 +0000 |
| commit | 7e9cf64909c2efaf4bfd9595dae0cc23b44cb623 (patch) | |
| tree | bb6f30b9fb8c3938c51f65e595a6b97b1581a405 /packages | |
| parent | e5d245f4ac41ddd3e45159d933a3cb7073068f38 (diff) | |
| download | fpc-7e9cf64909c2efaf4bfd9595dae0cc23b44cb623.tar.gz | |
Merged revision(s) 47799 from trunk:
* Patch from Andrey Sobol to fix memleak
........
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@47867 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages')
| -rw-r--r-- | packages/chm/src/itsftransform.pas | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/packages/chm/src/itsftransform.pas b/packages/chm/src/itsftransform.pas index 69d1aaa894..98f7ece7c6 100644 --- a/packages/chm/src/itsftransform.pas +++ b/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. |