From 76db9359a8cfa53cf30dabbd3550e928bfcee81d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 5 Jul 2023 22:46:45 +0200
Subject: [PATCH] * Fix memleak in case of chained stream page contents

(cherry picked from commit 2e438c498140a94e4db3bfba20d4b3fe24ce46f6)
---
 packages/fcl-pdf/src/fppdfparser.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-pdf/src/fppdfparser.pp b/packages/fcl-pdf/src/fppdfparser.pp
index 24bab18aab..2d42aaf23f 100644
--- a/packages/fcl-pdf/src/fppdfparser.pp
+++ b/packages/fcl-pdf/src/fppdfparser.pp
@@ -2434,7 +2434,12 @@ begin
     aPage:=aDoc.Page[I];
     DoProgress(pkContentStream,I+1,aCount);
     aStream:=GetPageContentStream(aDoc,aPage);
-    ParseContentStream(aPage,aStream,aOnCommand)
+    try
+      ParseContentStream(aPage,aStream,aOnCommand)
+    finally
+      if aStream is TChainedStream then
+        aStream.Free;
+    end;
     end;
 end;