Changeset 96 for trunk/Target

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.

Location:

trunk/Target

Files:

• UTargetInterpretter.pas (modified) (1 diff)
• UTargetJava.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;

trunk/Target/UTargetJava.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs;
+  Classes, SysUtils, FileUtil, UTarget, UBFTarget, Dialogs;
 
 type