From 7adcd2a8a27ff89558856756c8f7abd002623d88 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 5 Jan 2021 09:20:45 +0000
Subject: [PATCH] * Fix memleak when using packages

git-svn-id: trunk@48082 -
---
 packages/fcl-passrc/src/pparser.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index 1e8a23c240..59e54088b1 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@@ -3142,7 +3142,10 @@ begin
       FinishedModule;
   finally
     if HasFinished then
+      begin
+      Module.Release{$IFDEF CheckPasTreeRefCount}('TPasPackage.Modules'){$ENDIF};
       FCurModule:=nil; // clear module if there is an error or finished parsing
+      end;
   end;
 end;