Changeset 207 for branches/interpreter2/UGeneratorPascal.pas

Timestamp:

Apr 20, 2020, 11:31:59 PM (5 years ago)

Author:

chronos

Message:

• Added: Optimizer class for implementation of various optimizations on AST.
• Added: Transformation of repeat-until loop to while-do loop.

File:

• branches/interpreter2/UGeneratorPascal.pas (modified) (4 diffs)

branches/interpreter2/UGeneratorPascal.pas

@@ -29 +29 @@
     procedure GenerateExpressionOperation(Block: TBlock; Expression: TExpressionOperation);
     procedure GenerateExpressionOperand(Block: TBlock; Expression: TExpressionOperand);
+    procedure GenerateBreak(Block: TBlock; BreakCmd: TBreak);
+    procedure GenerateContinue(Block: TBlock; ContinueCmd: TContinue);
     procedure GenerateValue(Value: TValue);
   public
@@ -48 +50 @@
   else if Command is TRepeatUntil then GenerateRepeatUntil(Block, TRepeatUntil(Command))
   else if Command is TForToDo then GenerateForToDo(Block, TForToDo(Command))
+  else if Command is TBreak then GenerateBreak(Block, TBreak(Command))
+  else if Command is TContinue then GenerateContinue(Block, TContinue(Command))
+  else if Command is TEmptyCommand then
   else raise Exception.Create('Unsupported command type');
 end;
@@ -57 +62 @@
   AddText(' then ');
   GenerateCommand(Block, IfThenElse.CommandThen);
-  if Assigned(IfThenElse.CommandElse) then begin
+  if Assigned(IfThenElse.CommandElse) and not (IfThenElse.CommandElse is TEmptyCommand) then begin
     AddText(' else ');
     GenerateCommand(Block, IfThenElse.CommandElse);
@@ -158 +163 @@
     else raise Exception.Create('Unsupported exception operand type.');
   end;
+end;
+
+procedure TGeneratorPascal.GenerateBreak(Block: TBlock; BreakCmd: TBreak);
+begin
+  AddText('break');
+end;
+
+procedure TGeneratorPascal.GenerateContinue(Block: TBlock;
+  ContinueCmd: TContinue);
+begin
+  AddText('continue');
 end;