Changeset 96 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Aug 2, 2018, 10:41:11 AM (6 years ago)

Author:

chronos

Message:

• Added: Theming support.
• Modified: Items in Options dialog divided to two pages.

File:

• trunk/Target/UTargetInterpretter.pas (modified) (1 diff)

trunk/Target/UTargetInterpretter.pas

@@ -302 +302 @@
   for I := 0 to Length(FProgram) - 1 do begin
     Result := Result + BrainFuckCommandText[FProgram[I].Command];
-    //if FProgram[I].Command in [cmInc, cmDec, cmPointerInc, cmPointerDec,
-    //cmSet, cmMultipy] then begin
-    if FProgram[I].Parameter > 1 then
-      Result := Result + IntToStr(FProgram[I].Parameter);
-    if FProgram[I].RelIndex > 1 then
+    if FProgram[I].Command in [cmInc, cmDec, cmPointerInc, cmPointerDec,
+      cmSet, cmMultipy] then begin
+      if FProgram[I].Parameter <> 1 then
+        Result := Result + IntToStr(FProgram[I].Parameter);
+    end;
+    if FProgram[I].RelIndex <> 0 then
       Result := Result + 'R' + IntToStr(FProgram[I].RelIndex);
-    //end;
   end;
 end;