paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:29:20 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3365,9 +3365,15 @@ end;
destructor TPasPackage.Destroy; destructor TPasPackage.Destroy;
var var
i: Integer; i: Integer;
aModule: TPasModule;
begin begin
for i := 0 to Modules.Count - 1 do 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); FreeAndNil(Modules);
inherited Destroy; inherited Destroy;
end; end;