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

trunk/Target/UTargetPHP.pas

@@ -14 +14 @@
   TTargetPHP = class(TBFTarget)
   private
+    function GetMemoryCell: string;
   public
     constructor Create; override;
@@ -44 +45 @@
 end;
 
+function TTargetPHP.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;
+
 procedure TTargetPHP.Compile;
 begin
@@ -59 +70 @@
       cmPointerInc: AddLine('$Position = $Position + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
       cmPointerDec: AddLine('$Position = $Position - ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
-      cmInc: AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
-      cmDec: AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) - ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
-      cmOutput: AddLine('echo($Memory[$Position]);');
-      cmInput: AddLine('$Memory[$Position] = fgetc(STDIN);');
-      cmSet: AddLine('$Memory[$Position] = chr(' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmInc: AddLine(GetMemoryCell + ' = chr(ord(' + GetMemoryCell + ') + ' +
+        IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmDec: AddLine(GetMemoryCell + ' = chr(ord(' + GetMemoryCell + ') - ' +
+        IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmOutput: AddLine('echo(' + GetMemoryCell + ');');
+      cmInput: AddLine(GetMemoryCell + ' = fgetc(STDIN);');
+      cmSet: AddLine(GetMemoryCell + ' = chr(' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
+      cmMultipy: AddLine(GetMemoryCell + ' = chr(ord(' + GetMemoryCell + ') + ord($Memory[$Position]) * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
       cmLoopStart: begin
-        AddLine('while($Memory[$Position] != "\0") {');
+        AddLine('while(' + GetMemoryCell + ' != "\0") {');
         Inc(Indent);
       end;