Changeset 126 for trunk/UTarget.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/UTarget.pas (modified) (1 diff)

trunk/UTarget.pas

@@ -289 +289 @@
   Last := SearchIndexByProgramPos(OldProgramTo);
   for I := Last downto First + 1 do Delete(I);
-  Items[First].ProgramPosition := NewProgram;
-  Items[First].TargetPosition := NewTarget;
-end;
-
+  if NewProgram = -1 then begin
+    Delete(First);
+  end else begin
+    if (First >= 0) and (First < Count) then begin
+      Items[First].ProgramPosition := NewProgram;
+      Items[First].TargetPosition := NewTarget;
+    end else begin
+      // Index not found, possible new command?
+    end;
+  end;
+end;
 
 { TTargetList }