Changeset 15 for trunk/Core.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Faster instruction stepping.

File:

• trunk/Core.pas (modified) (6 diffs)

trunk/Core.pas

@@ -54 +54 @@
     procedure TimerUpdateTimer(Sender: TObject);
   private
-    LastPc: Word;
+    FUpdateInterfacePending: Boolean;
     procedure DoChangePC(Address: Word);
     procedure DebuggerChange(Sender: TObject);
@@ -68 +68 @@
     Debugger: TDebugger;
     Disassembler: TDisassembler;
-    procedure UpdateDisassemblerPos;
     procedure UpdateInterface;
   end;
@@ -242 +241 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
-  LastPc := $ffff;
   SharpMz800 := TSharpMz800.Create;
   Disassembler := TDisassembler.Create;
@@ -250 +248 @@
   Debugger.OnChange := DebuggerChange;
   Debugger.Disassembler := Disassembler;
+  UpdateInterface;
   FormMain := TFormMain.Create(nil);
   FormMain.Show;
@@ -271 +270 @@
 procedure TCore.TimerUpdateTimer(Sender: TObject);
 begin
-  UpdateDisassemblerPos;
-  UpdateInterface;
+  if FUpdateInterfacePending then begin
+    FUpdateInterfacePending := False;
+    UpdateInterface;
+  end;
 end;
 
@@ -283 +284 @@
 begin
   if Assigned(FormCallStack) then FormCallStack.Reload;
-end;
-
-procedure TCore.UpdateDisassemblerPos;
-begin
-  if LastPc <> SharpMz800.Cpu.Pc then begin
-    if Assigned(FormDisassembler) then
-      FormDisassembler.SelectAddress(SharpMz800.Cpu.PC);
-    LastPc := SharpMz800.Cpu.Pc;
-  end;
+  if Assigned(FormCpu) then FormCpu.Reload;
+  FUpdateInterfacePending := True;
 end;