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

trunk/Target/UTargetPython.pas

@@ -14 +14 @@
   TTargetPython = class(TBFTarget)
   private
+    function GetMemoryCell: string;
   public
     constructor Create; override;
@@ -42 +43 @@
   ExecutorPath := '/usr/bin/python';
   {$ENDIF}
+end;
+
+function TTargetPython.GetMemoryCell: string;
+begin
+  Result := 'memory[position';
+  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;
 
@@ -97 +108 @@
       cmPointerInc: AddLine('position += ' + IntToStr(FProgram[FProgramIndex].Parameter));
       cmPointerDec: AddLine('position -= ' + IntToStr(FProgram[FProgramIndex].Parameter));
-      cmInc: AddLine('memory[position] += ' + IntToStr(FProgram[FProgramIndex].Parameter));
-      cmDec: AddLine('memory[position] -= ' + IntToStr(FProgram[FProgramIndex].Parameter));
+      cmInc: AddLine(GetMemoryCell + ' += ' + IntToStr(FProgram[FProgramIndex].Parameter));
+      cmDec: AddLine(GetMemoryCell + ' -= ' + IntToStr(FProgram[FProgramIndex].Parameter));
       cmOutput: begin
-        AddLine('sys.stdout.write(chr(memory[position]))');
+        AddLine('sys.stdout.write(chr(' + GetMemoryCell + '))');
         AddLine('sys.stdout.flush()');
       end;
-      cmInput: AddLine('memory[position] = ord(getchar())');
-      cmSet: AddLine('memory[position] = ' + IntToStr(FProgram[FProgramIndex].Parameter));
+      cmInput: AddLine(GetMemoryCell + ' = ord(getchar())');
+      cmSet: AddLine(GetMemoryCell + ' = ' + IntToStr(FProgram[FProgramIndex].Parameter));
+      cmMultipy: AddLine(GetMemoryCell + ' = ' + GetMemoryCell + ' + memory[position] * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
       cmLoopStart: begin
-        AddLine('while(memory[position] != 0):');
+        AddLine('while(' + GetMemoryCell + ' != 0):');
         Inc(Indent);
       end;