Changeset 126 for trunk/Target/UTargetPython.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/Target/UTargetPython.pas

@@ -104 +104 @@
   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 += ' + IntToStr(FProgram[FProgramIndex].Parameter));
@@ -116 +116 @@
       cmInput: AddLine(GetMemoryCell + ' = ord(getchar())');
       cmSet: AddLine(GetMemoryCell + ' = ' + IntToStr(FProgram[FProgramIndex].Parameter));
-      cmMultipy: AddLine(GetMemoryCell + ' = ' + GetMemoryCell + ' + memory[position] * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
+      cmMultiply: AddLine(GetMemoryCell + ' = ' + GetMemoryCell + ' + memory[position] * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
       cmLoopStart: begin
         AddLine('while(' + GetMemoryCell + ' != 0):');