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

trunk/Target/UTargetCSharp.pas

@@ -75 +75 @@
   AddLine('Pos = 0;');
   FProgramIndex := 0;
-  while (FProgramIndex < Length(FProgram)) do begin
+  while FProgramIndex < FProgram.Count do begin
     case FProgram[FProgramIndex].Command of
       cmPointerInc: AddLine('Pos += ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
@@ -84 +84 @@
       cmInput: AddLine(GetMemoryCell + ' = (int)Console.ReadKey().KeyChar;');
       cmSet: AddLine(GetMemoryCell + ' = ' + IntToStr(FProgram[FProgramIndex].Parameter) + ';');
-      cmMultipy: begin
+      cmMultiply: begin
         if FProgram[FProgramIndex].Parameter = 1 then
           AddLine(GetMemoryCell + ' += Memory[Pos];')