Changeset 13 for trunk/Forms/FormDisassembler.pas

Timestamp:

Apr 21, 2026, 2:55:51 PM (6 days ago)

Author:

chronos

Message:

• Added: Call stack window.
• Modified: Use reload pending boolean variable and reload from timer instead of Thread.Synchronize to not delay CPU execution.

File:

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

trunk/Forms/FormDisassembler.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, Menus, Disassembler, Z80;
+  ExtCtrls, Menus, Disassembler, Base, Debugger;
 
 type
-  TAddressEvent = procedure (Address: Word) of object;
-
   { TFormDisassembler }
 
@@ -18 +16 @@
     MenuItemSetAddress: TMenuItem;
     PopupMenu1: TPopupMenu;
+    Timer1: TTimer;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -27 +26 @@
     procedure MenuItemSetAddressClick(Sender: TObject);
     procedure PopupMenu1Popup(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   private
+    FReloadPending: Boolean;
     FOnAddBreakPoint: TAddressEvent;
     FOnChangePC: TAddressEvent;
@@ -33 +34 @@
     procedure DoAddBreakPoint(Address: Word);
   public
-    Cpu: TCpuZ80;
+    Debugger: TDebugger;
     Disassembler: TDisassembler;
     procedure Disassemble(Sender: TObject);
     procedure SelectAddress(Address: Word);
     procedure ReloadList;
+    procedure Reload;
     function GetCurrentAddress: Word;
     property OnChangePC: TAddressEvent read FOnChangePC write FOnChangePC;
@@ -60 +62 @@
 procedure TFormDisassembler.FormCreate(Sender: TObject);
 begin
-  Disassembler := TDisassembler.Create;
 end;
 
 procedure TFormDisassembler.FormDestroy(Sender: TObject);
 begin
-  FreeAndNil(Disassembler);
 end;
 
 procedure TFormDisassembler.FormShow(Sender: TObject);
 begin
-  Disassemble(nil);
+  Reload;
 end;
 
@@ -79 +79 @@
   if Item.Index < Disassembler.DecodedInstructions.Count then
   with TDecodedInstruction(Disassembler.DecodedInstructions[Item.Index]) do begin
-    if Cpu.BreakPoints.Contains(Address) then BreakPoint := ' @'
+    if Debugger.BreakPoints.Contains(Address) then BreakPoint := ' @'
       else BreakPoint := '';
     Item.Caption := IntToHex(Address, 4) + BreakPoint;
@@ -93 +93 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Cpu.BreakPoints.Add(TDecodedInstruction(ListView1.Selected.Data).Address);
+    Debugger.BreakPoints.Add(TDecodedInstruction(ListView1.Selected.Data).Address);
     ReloadList;
   end;
@@ -101 +101 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Cpu.BreakPoints.Remove(TDecodedInstruction(ListView1.Selected.Data).Address);
+    Debugger.BreakPoints.Remove(TDecodedInstruction(ListView1.Selected.Data).Address);
     ReloadList;
   end;
@@ -116 +116 @@
 procedure TFormDisassembler.PopupMenu1Popup(Sender: TObject);
 begin
-
   MenuItemSetAddress.Enabled := Assigned(ListView1.Selected);
   if Assigned(ListView1.Selected) then begin
@@ -127 +126 @@
 end;
 
+procedure TFormDisassembler.Timer1Timer(Sender: TObject);
+begin
+  if FReloadPending then begin
+    FReloadPending := False;
+    Disassembler.Disassemble;
+    ReloadList;
+  end;
+end;
+
 procedure TFormDisassembler.Disassemble(Sender: TObject);
 begin
-  Disassembler.Disassemble;
-  ReloadList;
+  Reload;
 end;
 
@@ -146 +153 @@
 var
   Item: TListItem;
-  DecodedInstruction: TDecodedInstruction;
   Index: Integer;
 begin
   Index := Disassembler.DecodedInstructions.SearchAddressIndex(Address);
   if Index >= 0 then begin
-    DecodedInstruction := Disassembler.DecodedInstructions[Index];
     Item := ListView1.Items[Index];
     if Assigned(Item) then begin
@@ -172 +177 @@
 end;
 
+procedure TFormDisassembler.Reload;
+begin
+  FReloadPending := True;
+end;
+
 function TFormDisassembler.GetCurrentAddress: Word;
 begin