Changeset 86 for trunk/Target/UTargetJava.pas

Timestamp:

Aug 29, 2017, 5:12:18 PM (7 years ago)

Author:

chronos

Message:

• Added: New optimization using relative indexes to eliminate lots of pointer inc/dec operations.
• Added: New command "multiply" extended command to replace while loops used for cell multiplication. Also added related optimization.

File:

• trunk/Target/UTargetJava.pas (modified) (3 diffs)

trunk/Target/UTargetJava.pas

@@ -14 +14 @@
   TTargetJava = class(TBFTarget)
   private
+    function GetMemoryCell: string;
   public
     constructor Create; override;
@@ -44 +45 @@
 end;
 
+function TTargetJava.GetMemoryCell: string;
+begin
+  Result := 'Memory[Pos';
+  if FProgram[FProgramIndex].RelIndex > 0 then
+    Result := Result + ' + ' + IntToStr(FProgram[FProgramIndex].RelIndex)
+  else if FProgram[FProgramIndex].RelIndex < 0 then
+    Result := Result + ' - ' + IntToStr(Abs(FProgram[FProgramIndex].RelIndex));
+  Result := Result + ']';
+end;
+
 procedure TTargetJava.Compile;
 begin
@@ -67 +78 @@
       cmPointerInc: AddLine('Pos = Pos + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
       cmPointerDec: AddLine('Pos = Pos - ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
-      cmInc: AddLine('Memory[Pos] = (char)((int)Memory[Pos] + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
-      cmDec: AddLine('Memory[Pos] = (char)((int)Memory[Pos] - ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
-      cmOutput: AddLine('System.out.print(Memory[Pos]);');
-      cmInput: AddLine('Memory[Pos] = (char)System.in.read();');
-      cmSet: AddLine('Memory[Pos] = ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
+      cmInc: AddLine(GetMemoryCell + ' = (char)((int)' + GetMemoryCell + ' + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmDec: AddLine(GetMemoryCell + ' = (char)((int)' + GetMemoryCell + ' - ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmOutput: AddLine('System.out.print(' + GetMemoryCell + ');');
+      cmInput: AddLine(GetMemoryCell + ' = (char)System.in.read();');
+      cmSet: AddLine(GetMemoryCell + ' = (char)' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
+      cmMultipy: AddLine(GetMemoryCell + ' = (char)((int)' + GetMemoryCell + ' + (int)Memory[Pos] * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
       cmLoopStart: begin
-        AddLine('while(Memory[Pos] != 0)');
+        AddLine('while(' + GetMemoryCell + ' != 0)');
         AddLine('{');
         Inc(Indent);