Changeset 236 for branches/xpascal/Parser.pas

Timestamp:

Jun 29, 2023, 1:47:58 AM (17 months ago)

Author:

chronos

Message:

• Fixed: Var function parameters processed correctly for both user defined and internal functions.

File:

• branches/xpascal/Parser.pas (modified) (2 diffs)

branches/xpascal/Parser.pas

@@ -44 +44 @@
 procedure TParser.InitSystemBlock(Block: TBlock);
 var
+  I: Integer;
   TypeBoolean: TType;
   TypeString: TType;
@@ -219 +220 @@
       Kind := pkVar;
   end;
+
+  for I := 0 to Block.Functions.Count - 1 do
+    Block.Functions[I].InitVariables;
+  for I := 0 to Block.Procedures.Count - 1 do
+    Block.Procedures[I].InitVariables;
 end;