Changeset 232 for branches/xpascal/Generators/GeneratorPhp.pas

Timestamp:

Jun 26, 2023, 12:51:06 PM (17 months ago)

Author:

chronos

Message:

• Fixed: Generation of var function parameters.

File:

• branches/xpascal/Generators/GeneratorPhp.pas (modified) (2 diffs)

branches/xpascal/Generators/GeneratorPhp.pas

@@ -231 +231 @@
   AddText('function ' + FunctionDef.Name + '(');
   for I := 0 to FunctionDef.Params.Count - 1 do begin
+    if FunctionDef.Params[I].Kind = pkVar then
+      AddText('&');
     AddText('$' + TFunctionParameter(FunctionDef.Params[I]).Name);
     if I > 0 then AddText(', ');
@@ -240 +242 @@
     if FunctionDef.InternalName = 'WriteLn' then AddTextLine('echo($Text."\n");')
     else if FunctionDef.InternalName = 'Write' then AddTextLine('echo($Text);')
+    else if FunctionDef.InternalName = 'ReadLn' then AddTextLine('$Text = readline();')
+    else if FunctionDef.InternalName = 'Read' then AddTextLine('$Text = readline();')
     else if FunctionDef.InternalName = 'IntToStr' then AddTextLine('return $Value;')
     else if FunctionDef.InternalName = 'StrToInt' then AddTextLine('return $Value;')