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

fcl-passrc: fixed compile

Browse Source
This commit is contained in:
mattias 2022-06-09 18:28:06 +02:00
parent b7e64867be
commit 0a8e174efc
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -874,9 +874,13 @@ end;
destructor TPasTreeContainer.Destroy; destructor TPasTreeContainer.Destroy;
var var
i: Integer; i: Integer;
El: TPasElement;
begin begin
for i:=FOwnedElements.Count-1 downto 0 do for i:=FOwnedElements.Count-1 downto 0 do
TPasElement(FOwnedElements[i]).Free; begin
El:=TPasElement(FOwnedElements[i]);
El.Free;
end;
FreeAndNil(FOwnedElements); FreeAndNil(FOwnedElements);
inherited Destroy; inherited Destroy;
end; end;