Changeset 236 for branches/xpascal/Source.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/Source.pas (modified) (4 diffs)

branches/xpascal/Source.pas

@@ -133 +133 @@
     Block: TBlock;
     ParentType: TType;
+    procedure InitVariables;
     procedure GetValue(Index: Integer; out Value); override;
     function GetField(Index: Integer): TField; override;
@@ -159 +160 @@
     Block: TBlock;
     ParentType: TType;
+    procedure InitVariables;
     procedure GetValue(Index: Integer; out Value); override;
     function GetField(Index: Integer): TField; override;
@@ -533 +535 @@
 end;
 
+procedure TProcedure.InitVariables;
+var
+  I: Integer;
+  Variable: TVariable;
+begin
+  for I := 0 to Params.Count - 1 do begin
+    Variable := TVariable.Create;
+    Variable.Name := Params[I].Name;
+    Variable.TypeRef := Params[I].TypeRef;
+    Variable.Internal := True;
+    Block.Variables.Add(Variable);
+  end;
+end;
+
 procedure TProcedure.GetValue(Index: Integer; out Value);
 begin
@@ -932 +948 @@
 begin
   Result := 4;
+end;
+
+procedure TFunction.InitVariables;
+var
+  I: Integer;
+  Variable: TVariable;
+begin
+  for I := 0 to Params.Count - 1 do begin
+    Variable := TVariable.Create;
+    Variable.Name := Params[I].Name;
+    Variable.TypeRef := Params[I].TypeRef;
+    Variable.Internal := True;
+    Block.Variables.Add(Variable);
+  end;
+
+  Variable := TVariable.Create;
+  Variable.Name := 'Result';
+  Variable.TypeRef := ResultType;
+  Variable.Internal := True;
+  Block.Variables.Add(Variable);
 end;