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

* Fix memleak when using packages

Browse Source 
git-svn-id: trunk@48082 -
This commit is contained in:
michael 2021-01-05 09:20:45 +00:00
parent de36d6c049
commit 7adcd2a8a2
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-passrc/src/pparser.pp
View File

@ -3142,9 +3142,12 @@ begin
FinishedModule; FinishedModule;
finally finally
if HasFinished then if HasFinished then
begin
Module.Release{$IFDEF CheckPasTreeRefCount}('TPasPackage.Modules'){$ENDIF};
FCurModule:=nil; // clear module if there is an error or finished parsing FCurModule:=nil; // clear module if there is an error or finished parsing
end; end;
end; end;
end;
function TPasParser.GetLastSection: TPasSection; function TPasParser.GetLastSection: TPasSection;
begin begin