paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:59:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed releasing modules of a package

Browse Source
This commit is contained in:
mattias 2022-06-04 22:49:29 +02:00
parent 5b90eaf2dd
commit 43444ab7f0
1 changed files with 7 additions and 1 deletions

8
packages/fcl-passrc/src/pastree.pp
View File

@ -3365,9 +3365,15 @@ end;
destructor TPasPackage.Destroy;
var
i: Integer;
aModule: TPasModule;
begin
for i := 0 to Modules.Count - 1 do
TPasModule(Modules[i]).Release{$IFDEF CheckPasTreeRefCount}('TPasPackage.Modules'){$ENDIF};
begin
aModule:=TPasModule(Modules[i]);
if aModule.Parent=Self then
aModule.Parent:=nil;
aModule.Release{$IFDEF CheckPasTreeRefCount}('TPasPackage.Modules'){$ENDIF};
end;
FreeAndNil(Modules);
inherited Destroy;
end;