Changeset 15 for trunk/Forms/FormDisassembler.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Faster instruction stepping.

File:

• trunk/Forms/FormDisassembler.pas (modified) (4 diffs)

trunk/Forms/FormDisassembler.pas

@@ -31 +31 @@
     FOnAddBreakPoint: TAddressEvent;
     FOnChangePC: TAddressEvent;
+    FLastPC: Word;
     procedure DoChangePC(Address: Word);
     procedure DoAddBreakPoint(Address: Word);
+    procedure UpdateDisassemblerPos;
   public
     Debugger: TDebugger;
@@ -55 +57 @@
 { TFormDisassembler }
 
+procedure TFormDisassembler.UpdateDisassemblerPos;
+begin
+  if FLastPc <> Debugger.Cpu.Pc then begin
+    SelectAddress(Debugger.Cpu.PC);
+    FLastPc := Debugger.Cpu.Pc;
+  end;
+end;
+
 procedure TFormDisassembler.FormClose(Sender: TObject;
   var CloseAction: TCloseAction);
@@ -62 +72 @@
 procedure TFormDisassembler.FormCreate(Sender: TObject);
 begin
+  FLastPC := $ffff;
 end;
 
@@ -128 +139 @@
 procedure TFormDisassembler.Timer1Timer(Sender: TObject);
 begin
+  UpdateDisassemblerPos;
   if FReloadPending then begin
     FReloadPending := False;