Changeset 211 for branches/interpreter2/UOptimizer.pas

Timestamp:

Apr 22, 2020, 9:00:02 AM (5 years ago)

Author:

chronos

Message:

• Added: Executor support for Break and Continue statements.

File:

• branches/interpreter2/UOptimizer.pas (modified) (2 diffs)

branches/interpreter2/UOptimizer.pas

@@ -58 +58 @@
     WhileDo := TWhileDo.Create;
     WhileDo.Command := TBeginEnd.Create;
+    WhileDo.Parent := TRepeatUntil(SourceNode).Parent;
     TBeginEnd(WhileDo.Command).Commands := TRepeatUntil(SourceNode).Commands;
+    TBeginEnd(WhileDo.Command).Parent := WhileDo;
     TRepeatUntil(SourceNode).Commands := TCommands.Create;
     WhileDo.Expression := TExpressionOperand.Create;
+    WhileDo.Expression.Parent := WhileDo;
     TExpressionOperand(WhileDo.Expression).OperandType := otConstantDirect;
     TExpressionOperand(WhileDo.Expression).ConstantDirect := TConstant.Create;
@@ -68 +71 @@
     // Add final if
     Condition := TIfThenElse.Create;
+    Condition.Parent := WhileDo;
     Condition.Expression := TRepeatUntil(SourceNode).Expression;
     Condition.CommandThen := TBreak.Create;
+    Condition.CommandThen.Parent := Condition;
     TRepeatUntil(SourceNode).Expression := TExpression.Create;
     TBeginEnd(WhileDo.Command).Commands.Add(Condition);