Changeset 91 for trunk/Target


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Target/UTargetInterpretter.pas

    r88 r91  
    302302  for I := 0 to Length(FProgram) - 1 do begin
    303303    Result := Result + BrainFuckCommandText[FProgram[I].Command];
    304     if FProgram[I].Command in [cmInc, cmDec, cmSet, cmPointerInc, cmPointerDec] then begin
    305       if FProgram[I].Parameter > 1 then
    306         Result := Result + IntToStr(FProgram[I].Parameter);
    307     end;
     304    //if FProgram[I].Command in [cmInc, cmDec, cmPointerInc, cmPointerDec,
     305    //cmSet, cmMultipy] then begin
     306    if FProgram[I].Parameter > 1 then
     307      Result := Result + IntToStr(FProgram[I].Parameter);
     308    if FProgram[I].RelIndex > 1 then
     309      Result := Result + 'R' + IntToStr(FProgram[I].RelIndex);
     310    //end;
    308311  end;
    309312end;
Note: See TracChangeset for help on using the changeset viewer.