Changeset 14 for trunk/Debugger.pas

Timestamp:

Apr 21, 2026, 3:52:53 PM (6 days ago)

Author:

chronos

Message:

• Modified: Pausing CPU thread execution with event object instead of freeing thread object.

File:

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

trunk/Debugger.pas

@@ -60 +60 @@
     DebugStopAddress: Word;
     CallStack: TCallStack;
+    procedure Reset;
     constructor Create;
     destructor Destroy; override;
@@ -102 +103 @@
   if CallStack.Count > 0 then CallStack.Delete(CallStack.Count - 1);
   if DebugMode = dmStepOut then begin
-    Cpu.Thread.Terminate;
+    Cpu.Paused := True;
     DebugMode := dmNone;
   end;
@@ -113 +114 @@
     if DebugMode = dmStepIn then begin
       DebugMode := dmNone;
-      Cpu.Thread.Terminate;
+      Cpu.Paused := True;
     end;
     if (DebugMode = dmStopAddress) and (DebugStopAddress = Cpu.PC) then begin
       DebugMode := dmNone;
-      Cpu.Thread.Terminate;
+      Cpu.Paused := True;
     end;
     if DebugMode = dmStepOver then begin
       DebugMode := dmNone;
-      Cpu.Thread.Terminate;
+      Cpu.Paused := True;
     end;
   end;
   if BreakPoints.Contains(Cpu.PC) then begin
     DebugMode := dmNone;
-    Cpu.Thread.Terminate;
+    Cpu.Paused := True;
   end;
 end;
@@ -140 +141 @@
   FDisassembler := AValue;
   CallStack.Disassembler := AValue;
+end;
+
+procedure TDebugger.Reset;
+begin
+  BreakPoints.Clear;
+  CallStack.Clear;
 end;