Changeset 229 for branches/xpascal/Executor.pas

Timestamp:

Jun 24, 2023, 11:23:26 PM (17 months ago)

Author:

chronos

Message:

• Added: Several basic interpretter tests.

File:

• branches/xpascal/Executor.pas (modified) (1 diff)

branches/xpascal/Executor.pas

@@ -632 +632 @@
     if TValueBoolean(Value).Value then ExecuteCommand(Block, IfThenElse.CommandThen)
       else begin
-        if not (IfThenElse.CommandElse is TCommand) then
+        if Assigned(IfThenElse.CommandElse) then
           ExecuteCommand(Block, IfThenElse.CommandElse);
       end;