Changeset 39 for trunk/Target/UTarget.pas

Timestamp:

Feb 19, 2012, 12:41:25 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Step into, step over, step out, run to cursor debbuging actions.
• Fixed: Updating interface from interpretter thread using synchronization.

File:

• trunk/Target/UTarget.pas (modified) (2 diffs)

trunk/Target/UTarget.pas

@@ -44 +44 @@
     procedure AddItem(TargetAddress: Integer);
     procedure SetSystem(TargetAddress: Integer);
+    procedure AddSystem(TargetAddress: Integer);
     procedure ClearSystem;
     function SearchByTargetPos(Pos: Integer): TBreakPoint;
@@ -126 +127 @@
 
 procedure TBreakPointList.SetSystem(TargetAddress: Integer);
+begin
+  ClearSystem;
+  AddSystem(TargetAddress);
+end;
+
+procedure TBreakPointList.AddSystem(TargetAddress: Integer);
 var
   NewItem: TBreakPoint;
 begin
-  ClearSystem;
   NewItem := TBreakPoint.Create;
   NewItem.TargetAddress := TargetAddress;