Changeset 126 for trunk/Target/UTargetJavascript.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/UTargetJavascript.pas (modified) (2 diffs)

trunk/Target/UTargetJavascript.pas

@@ -61 +61 @@
   AddLine('');
   FProgramIndex := 0;
-  while (FProgramIndex < Length(FProgram)) do begin
+  while FProgramIndex < FProgram.Count do begin
     case FProgram[FProgramIndex].Command of
       cmPointerInc: AddLine('Pos = Pos + ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
@@ -70 +70 @@
       cmInput: ; //AddLine(GetMemoryCell + ' = getchar();');
       cmSet: AddLine(GetMemoryCell + ' = ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
-      cmMultipy: AddLine(GetMemoryCell + ' = ' + GetMemoryCell + ' + Memory[Pos] * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
+      cmMultiply: AddLine(GetMemoryCell + ' = ' + GetMemoryCell + ' + Memory[Pos] * ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
       cmLoopStart: begin
         AddLine('while(' + GetMemoryCell + ' != 0)');