Changeset 86 for trunk/Target/UTargetInterpretter.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/UTargetInterpretter.pas (modified) (9 diffs)

trunk/Target/UTargetInterpretter.pas

@@ -44 +44 @@
     procedure CommandLoopEnd;
     procedure CommandSet;
+    procedure CommandMultiply;
     procedure PrepareBreakPoints;
   protected
@@ -75 +76 @@
 const
   BrainFuckCommandText: array[TMachineCommand] of Char = (
-    ' ', '+', '-', '>', '<', '.', ',', '[', ']', '@', '=');
+    ' ', '+', '-', '>', '<', '.', ',', '[', ']', '@', '=', '*');
 
 
@@ -189 +190 @@
   end;
   if InputPosition <= Length(Input) then begin
-    Memory[MemoryPosition] := Ord(Input[InputPosition]);
+    Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
+      Ord(Input[InputPosition]);
     Inc(InputPosition);
   end;
@@ -198 +200 @@
   if OutputPosition > Length(Output) then
     SetLength(Output, Length(Output) + 1 + Length(Output) div 4);
-  Output[OutputPosition] := Char(Memory[MemoryPosition]);
+  Output[OutputPosition] := Char(Memory[MemoryPosition +
+    FProgram[FProgramIndex].RelIndex]);
   Inc(OutputPosition);
 end;
@@ -204 +207 @@
 procedure TTargetInterpretter.CommandLoopStart;
 begin
-  if Memory[MemoryPosition] = 0 then
+  if Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] = 0 then
     FProgramIndex := FProgram[FProgramIndex].Parameter;
 end;
@@ -210 +213 @@
 procedure TTargetInterpretter.CommandLoopEnd;
 begin
-  if Memory[MemoryPosition] > 0 then
+  if Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] > 0 then
     FProgramIndex := FProgram[FProgramIndex].Parameter - 1;
 end;
@@ -216 +219 @@
 procedure TTargetInterpretter.CommandInc;
 begin
-  Memory[MemoryPosition] := ((Memory[MemoryPosition] + FProgram[FProgramIndex].Parameter) mod CellSize);
+  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
+    ((Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] +
+    FProgram[FProgramIndex].Parameter) mod CellSize);
 end;
 
 procedure TTargetInterpretter.CommandDec;
 begin
-  Memory[MemoryPosition] := ((Memory[MemoryPosition] - FProgram[FProgramIndex].Parameter) mod CellSize);
+  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
+    ((Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] -
+    FProgram[FProgramIndex].Parameter) mod CellSize);
 end;
 
@@ -240 +247 @@
 procedure TTargetInterpretter.CommandSet;
 begin
-  Memory[MemoryPosition] := FProgram[FProgramIndex].Parameter mod CellSize;
+  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
+    FProgram[FProgramIndex].Parameter mod CellSize;
+end;
+
+procedure TTargetInterpretter.CommandMultiply;
+begin
+  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
+    (Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] +
+    Memory[MemoryPosition] * FProgram[FProgramIndex].Parameter) mod CellSize;
 end;
 
@@ -411 +426 @@
   // Extended commands
   FCommandTable[cmSet] := CommandSet;
+  FCommandTable[cmMultipy] := CommandMultiply;
 end;