Changeset 64 for trunk/Target/UTargetFPC.pas

Timestamp:

Dec 4, 2014, 2:59:28 PM (10 years ago)

Author:

chronos

Message:

• Modified: Now commands cmInc, cmDec, cmPointerInc, cmPointerDec and cmSet use numeric parameter to merge multiple small steps to one unary operation with numeric parameter. Optimization is done on TTarget side and not on each specific targets.
• Added: Optimization to eliminate redundant source code.
• Added: Optimization level option in Options dialog.

File:

• trunk/Target/UTargetFPC.pas (modified) (2 diffs)

trunk/Target/UTargetFPC.pas

@@ -44 +44 @@
 
 procedure TTargetFPC.Compile;
-var
-  Sum: Integer;
 begin
   inherited;
@@ -62 +60 @@
   FProgramIndex := 0;
   while (FProgramIndex < Length(FProgram)) do begin
-    case FProgram[FProgramIndex] of
-      cmPointerInc: begin
-        Sum := CheckOccurence(cmPointerInc);
-        AddLine('Inc(Pos, ' + IntToStr(Sum) + ');');
-      end;
-      cmPointerDec: begin
-        Sum := CheckOccurence(cmPointerDec);
-        AddLine('Dec(Pos, ' + IntToStr(Sum) + ');');
-      end;
-      cmInc: begin
-        Sum := CheckOccurence(cmInc);
-        AddLine('Memory[Pos] := Memory[Pos] + ' + IntToStr(Sum) + ';');
-      end;
-      cmDec: begin
-        Sum := CheckOccurence(cmDec);
-        AddLine('Memory[Pos] := Memory[Pos] - ' + IntToStr(Sum) + ';');
-      end;
+    case FProgram[FProgramIndex].Command of
+      cmPointerInc: AddLine('Inc(Pos, ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmPointerDec: AddLine('Dec(Pos, ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmInc: AddLine('Memory[Pos] := Memory[Pos] + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
+      cmDec: AddLine('Memory[Pos] := Memory[Pos] - ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
+      cmSet: AddLine('Memory[Pos] := ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
       cmOutput: AddLine('Write(Chr(Memory[Pos]));');
       cmInput: AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
       cmLoopStart: begin
-        if CheckClear then begin
-          AddLine('Memory[Pos] := 0;');
-          Inc(FProgramIndex, 2);
-        end else begin
-          AddLine('while Memory[Pos] <> 0 do begin');
-          Inc(Indent);
-        end;
+        AddLine('while Memory[Pos] <> 0 do begin');
+        Inc(Indent);
       end;
       cmLoopEnd: begin