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

* Fix memleak in case of chained stream page contents

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-05 22:46:45 +02:00
parent 0fac221a61
commit 2e438c4981
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-pdf/src/fppdfparser.pp
View File

@ -2434,7 +2434,12 @@ begin
aPage:=aDoc.Page[I]; aPage:=aDoc.Page[I];
DoProgress(pkContentStream,I+1,aCount); DoProgress(pkContentStream,I+1,aCount);
aStream:=GetPageContentStream(aDoc,aPage); aStream:=GetPageContentStream(aDoc,aPage);
ParseContentStream(aPage,aStream,aOnCommand) try
ParseContentStream(aPage,aStream,aOnCommand)
finally
if aStream is TChainedStream then
aStream.Free;
end;
end; end;
end; end;