paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:26:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed compile with pas2js

Browse Source
This commit is contained in:
mattias 2024-01-05 16:18:22 +01:00
parent 450f250b2c
commit 3423fa9a82
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

@ -8351,6 +8351,7 @@ var
SrcPos: TPasSourcePos; SrcPos: TPasSourcePos;
I : Integer; I : Integer;
V : TPasVariable; V : TPasVariable;
Obj: TObject;
begin begin
// var a : Integer; // var a : Integer;
@ -8372,7 +8373,10 @@ begin
finally finally
For I:=0 to List.count-1 do For I:=0 to List.count-1 do
if List[i]<>Nil then if List[i]<>Nil then
TObject(List[I]).Free; begin
Obj:=TObject(List[I]);
Obj.Free;
end;
List.Free; List.Free;
end; end;