Changeset 137 for trunk/UBFTarget.pas

Timestamp:

Mar 5, 2022, 4:38:34 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Wrong index variable used in inc/dec merge optimization.
• Fixed: Reload output if program is reset.

File:

• trunk/UBFTarget.pas (modified) (1 diff)

trunk/UBFTarget.pas

@@ -267 +267 @@
           if NewProgram[NewProgram.Index - 1].Command = cmPointerInc then
             NewProgram.Operations[NewProgram.Index - 1].Parameter := NewProgram[NewProgram.Index - 1].Parameter +
-              FProgram[FProgram.Index].Parameter
+              FProgram[FProgramIndex].Parameter
           else
           if NewProgram[NewProgram.Index - 1].Command = cmPointerDec then
             NewProgram.Operations[NewProgram.Index - 1].Parameter := NewProgram[NewProgram.Index - 1].Parameter -
-              FProgram[FProgram.Index].Parameter;
+              FProgram[FProgramIndex].Parameter;
           // If value negative then change command
           if NewProgram[NewProgram.Index - 1].Parameter < 0 then begin