Changeset 149 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 18, 2018, 1:30:58 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Now arrays of string and integer are supported and executed correctly by executor.
• Added: IfNotEqual command.

File:

• branches/easy compiler/USourceGenerator.pas (modified) (1 diff)

branches/easy compiler/USourceGenerator.pas

@@ -120 +120 @@
     Result := Result + IndentStr + 'repeat' + LineEnding;
     Inc(Indent);
-    Result := Result + IndentStr +  GenerateCommand(TCommandRepeat(Command).Command) + LineEnding;
+    Result := Result + GenerateCommand(TCommandRepeat(Command).Command);
     Dec(Indent);
     Result := Result + IndentStr + 'until False;' + LineEnding;
   end else
   if Command is TCommandIfEqual then begin
-    Result := Result + IndentStr + 'if ' + GenerateRef(TCommandIfEqual(Command).Reference1) +
-      ' = ' + GenerateRef(TCommandIfEqual(Command).Reference2) + ' then ';
+    Result := Result + IndentStr + 'if ' +
+      GenerateRef(TCommandIfEqual(Command).Reference1) + ' = ' +
+      GenerateRef(TCommandIfEqual(Command).Reference2) + ' then ' + LineEnding;
+  end else
+  if Command is TCommandIfNotEqual then begin
+    Result := Result + IndentStr + 'if ' +
+      GenerateRef(TCommandIfNotEqual(Command).Reference1) + ' <> ' +
+      GenerateRef(TCommandIfNotEqual(Command).Reference2) + ' then ' + LineEnding;
   end else
   raise Exception.Create('Unsupported instruction');