Changeset 91 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Jul 20, 2018, 9:41:37 AM (6 years ago)

Author:

chronos

Message:

• Added: Allow to enable individual code optimization from settings dialog.
• Added: Actions to format or shrink target BF code.

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, cmSet, cmPointerInc, cmPointerDec] then begin
-      if FProgram[I].Parameter > 1 then
-        Result := Result + IntToStr(FProgram[I].Parameter);
-    end;
+    //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
+      Result := Result + 'R' + IntToStr(FProgram[I].RelIndex);
+    //end;
   end;
 end;