Changeset 126 for trunk/Target/UTargetPHP.pas

Timestamp:

Jan 14, 2022, 7:13:36 PM (3 years ago)

Author:

chronos

Message:

• Modified: SetZero optimization made as separate step.
• Fixed: Error during compilation in CopyMultiply optimization.

File:

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

trunk/Target/UTargetPHP.pas

@@ -66 +66 @@
   AddLine('$Position = 0;');
   FProgramIndex := 0;
-  while (FProgramIndex < Length(FProgram)) do begin
+  while FProgramIndex < FProgram.Count do begin
     case FProgram[FProgramIndex].Command of
       cmPointerInc: AddLine('$Position = $Position + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
@@ -77 +77 @@
       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) + ');');
+      cmMultiply: AddLine(GetMemoryCell + ' = chr(ord(' + GetMemoryCell + ') + ord($Memory[$Position]) * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ');');
       cmLoopStart: begin
         AddLine('while(' + GetMemoryCell + ' != "\0") {');