mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 04:59:26 +02:00
* Fix memleak when using packages
git-svn-id: trunk@48082 -
This commit is contained in:
parent
de36d6c049
commit
7adcd2a8a2
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user