Changeset 128 for trunk/UTarget.pas

Timestamp:

Jan 17, 2022, 4:53:31 PM (3 years ago)

Author:

chronos

Message:

• Added: Two more code examples.
• Added: Allow to disable debugging support.
• Added: Remember last opened tab in options form.

File:

• trunk/UTarget.pas (modified) (4 diffs)

trunk/UTarget.pas

@@ -35 +35 @@
     function SearchIndexByProgramPos(Pos: Integer): Integer;
     procedure AddStep(SourcePos, TargetPos: Integer; Operation: TStepOperation);
-    procedure UpdateTargetPos(OldProgramFrom, OldProgramTo, NewProgram, NewTarget: Integer);
+    procedure UpdateTargetPos(OldProgramFrom, OldProgramTo, NewProgramFrom,
+        NewProgramTo: Integer; NewTarget: Integer = 0);
   end;
 
@@ -108 +109 @@
     BreakPoints: TBreakPointList;
     DebugSteps: TDebugStepList;
+    DebugEnabled: Boolean;
     Messages: TMessageList;
     constructor Create; virtual;
@@ -280 +282 @@
 end;
 
-procedure TDebugStepList.UpdateTargetPos(OldProgramFrom, OldProgramTo, NewProgram, NewTarget: Integer);
+procedure TDebugStepList.UpdateTargetPos(OldProgramFrom, OldProgramTo, NewProgramFrom,
+    NewProgramTo: Integer; NewTarget: Integer = 0);
 var
   I: Integer;
@@ -288 +291 @@
   First := SearchIndexByProgramPos(OldProgramFrom);
   Last := SearchIndexByProgramPos(OldProgramTo);
-  for I := Last downto First + 1 do Delete(I);
-  if NewProgram = -1 then begin
-    Delete(First);
-  end else begin
-    if (First >= 0) and (First < Count) then begin
-      Items[First].ProgramPosition := NewProgram;
+  if (First <> -1) and (Last <> -1) then begin
+    if First > Last then
+      raise Exception.Create('First index higher than last index');
+    if (First < 0) or (First >= Count) then
+      raise Exception.Create('First index out of range');
+    if (Last < 0) or (Last >= Count) then
+      raise Exception.Create('Last index out of range');
+    for I := Last downto First + 1 do Delete(I);
+
+    if NewProgramTo - NewProgramFrom = 0 then begin
+      Delete(First);
+    end else
+    if NewProgramTo > NewProgramFrom then begin
+      Items[First].ProgramPosition := NewProgramFrom;
       Items[First].TargetPosition := NewTarget;
-    end else begin
-      // Index not found, possible new command?
-    end;
+    end else
+      raise Exception.Create('Old program index higher than new');
   end;
 end;