* Fix memleak when using packages

git-svn-id: trunk@48082 -
This commit is contained in:
michael 2021-01-05 09:20:45 +00:00
parent de36d6c049
commit 7adcd2a8a2

View File

@ -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;