Changeset 213 for branches/interpreter2/UGeneratorPhp.pas

Timestamp:

Apr 22, 2020, 10:23:31 PM (4 years ago)

Author:

chronos

Message:

• Added: Transformation of Result variable assignment into Return statement.

File:

• branches/interpreter2/UGeneratorPhp.pas (modified) (3 diffs)

branches/interpreter2/UGeneratorPhp.pas

@@ -31 +31 @@
     procedure GenerateExpressionOperand(Block: TBlock; Expression: TExpressionOperand);
     procedure GenerateBreak(Block: TBlock; BreakCmd: TBreak);
+    procedure GenerateReturn(Block: TBlock; Return: TReturn);
     procedure GenerateContinue(Block: TBlock; ContinueCmd: TContinue);
     procedure GenerateValue(Value: TValue);
@@ -53 +54 @@
   else if Command is TBreak then GenerateBreak(Block, TBreak(Command))
   else if Command is TContinue then GenerateContinue(Block, TContinue(Command))
+  else if Command is TReturn then GenerateReturn(Block, TReturn(Command))
   else if Command is TEmptyCommand then
   else raise Exception.Create('Unsupported command type');
@@ -177 +179 @@
 begin
   AddText('break');
+end;
+
+procedure TGeneratorPhp.GenerateReturn(Block: TBlock; Return: TReturn);
+begin
+  AddText('return ');
+  GenerateExpression(Block, Return.Expression);
 end;