Changeset 15 for trunk/Debugger.pas

Timestamp:

Apr 21, 2026, 6:15:40 PM (5 days ago)

Author:

chronos

Message:

• Modified: Faster instruction stepping.

File:

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

trunk/Debugger.pas

@@ -49 +49 @@
     FDisassembler: TDisassembler;
     FOnChange: TNotifyEvent;
+    procedure Pause;
     procedure SetCpu(AValue: TCpuZ80);
     procedure CpuCall(Address: Word);
@@ -109 +110 @@
 end;
 
+procedure TDebugger.Pause;
+begin
+  DebugMode := dmNone;
+  Cpu.Paused := True;
+  DoOnChange;
+end;
+
 procedure TDebugger.CpuStep;
 begin
   if DebugMode <> dmNone then begin
     if DebugMode = dmStepIn then begin
-      DebugMode := dmNone;
-      Cpu.Paused := True;
+      Pause;
     end;
     if (DebugMode = dmStopAddress) and (DebugStopAddress = Cpu.PC) then begin
-      DebugMode := dmNone;
-      Cpu.Paused := True;
+      Pause;
     end;
     if DebugMode = dmStepOver then begin
-      DebugMode := dmNone;
-      Cpu.Paused := True;
+      Pause;
     end;
   end;
   if BreakPoints.Contains(Cpu.PC) then begin
-    DebugMode := dmNone;
-    Cpu.Paused := True;
-  end;
+    Pause;
+  end;
+  DoOnChange;
 end;