Changeset 13 for trunk/Core.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/Core.pas (modified) (14 diffs)

trunk/Core.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, ActnList, Controls, FormMain, Forms, ExtCtrls, FormMemory,
-  SharpMz800, FormDisassembler, FormCpu, FormScreen, FormMessages;
+  SharpMz800, FormDisassembler, FormCpu, FormScreen, FormMessages, FormCallStack,
+  Debugger, Disassembler;
 
 type
@@ -12 +13 @@
 
   TCore = class(TDataModule)
+    AViewCallStack: TAction;
     AInstructionSetGen: TAction;
     AViewMessages: TAction;
@@ -42 +44 @@
     procedure AStepOverExecute(Sender: TObject);
     procedure AStopExecute(Sender: TObject);
+    procedure AViewCallStackExecute(Sender: TObject);
     procedure AViewCpuExecute(Sender: TObject);
     procedure AViewDissssemblerExecute(Sender: TObject);
@@ -53 +56 @@
     LastPc: Word;
     procedure DoChangePC(Address: Word);
+    procedure DebuggerChange(Sender: TObject);
   public
     FormMain: TFormMain;
@@ -60 +64 @@
     FormScreen: TFormScreen;
     FormMessages: TFormMessages;
+    FormCallStack: TFormCallStack;
     SharpMz800: TSharpMz800;
+    Debugger: TDebugger;
+    Disassembler: TDisassembler;
     procedure UpdateDisassemblerPos;
     procedure UpdateInterface;
@@ -82 +89 @@
   LastPc := $ffff;
   SharpMz800 := TSharpMz800.Create;
+  Disassembler := TDisassembler.Create;
+  Disassembler.Memory := SharpMz800.MappedMemory;
+  Debugger := TDebugger.Create;
+  Debugger.Cpu := SharpMz800.Cpu;
+  Debugger.OnChange := DebuggerChange;
+  Debugger.Disassembler := Disassembler;
 //  SharpMz800.PowerOn;
   FormMain := TFormMain.Create(nil);
@@ -142 +155 @@
 procedure TCore.ARunToCursorExecute(Sender: TObject);
 begin
-  SharpMz800.Cpu.DebugMode := dmStopAddress;
-  SharpMz800.Cpu.DebugStopAddress := FormDisassembler.GetCurrentAddress;
-  SharpMz800.Cpu.Running := True;
+  Debugger.DebugMode := dmStopAddress;
+  Debugger.DebugStopAddress := FormDisassembler.GetCurrentAddress;
+  Debugger.Cpu.Running := True;
   UpdateInterface;
 end;
@@ -150 +163 @@
 procedure TCore.AStepInExecute(Sender: TObject);
 begin
-  SharpMz800.Cpu.DebugMode := dmStepIn;
-  SharpMz800.Cpu.Running := True;
+  Debugger.DebugMode := dmStepIn;
+  Debugger.Cpu.Running := True;
   UpdateInterface;
 end;
@@ -157 +170 @@
 procedure TCore.AStepOutExecute(Sender: TObject);
 begin
-  SharpMz800.Cpu.DebugMode := dmStepOut;
-  SharpMz800.Cpu.Running := True;
+  Debugger.DebugMode := dmStepOut;
+  Debugger.Cpu.Running := True;
   UpdateInterface;
 end;
@@ -164 +177 @@
 procedure TCore.AStepOverExecute(Sender: TObject);
 begin
-  SharpMz800.Cpu.DebugMode := dmStepOver;
-  SharpMz800.Cpu.Running := True;
+  Debugger.DebugMode := dmStepOver;
+  Debugger.Cpu.Running := True;
   UpdateInterface;
 end;
@@ -174 +187 @@
   SharpMz800.Cpu.Reset;
   UpdateInterface;
+end;
+
+procedure TCore.AViewCallStackExecute(Sender: TObject);
+begin
+  if not Assigned(FormCallStack) then begin
+    FormCallStack := TFormCallStack.Create(nil);
+    FormCallStack.Debugger := Debugger;
+  end;
+  FormCallStack.Show;
 end;
 
@@ -189 +211 @@
   if not Assigned(FormDisassembler) then begin
     FormDisassembler := TFormDisassembler.Create(nil);
-    FormDisassembler.Disassembler.Memory := SharpMz800.MappedMemory;
     FormDisassembler.OnChangePC := DoChangePC;
-    FormDisassembler.Cpu := SharpMz800.Cpu;
+    FormDisassembler.Debugger := Debugger;
+    FormDisassembler.Disassembler := Disassembler;
     SharpMz800.OnMemoryMappingChange := FormDisassembler.Disassemble;
   end;
@@ -236 +258 @@
   if Assigned(FormScreen) then FreeAndNil(FormScreen);
   if Assigned(FormMessages) then FreeAndNil(FormMessages);
+  if Assigned(FormCallStack) then FreeAndNil(FormCallStack);
   FreeAndNil(FormMain);
+  FreeAndNil(Debugger);
+  FreeAndNil(Disassembler);
   FreeAndNil(SharpMz800);
 end;
@@ -249 +274 @@
 begin
   SharpMz800.Cpu.PC := Address;
+end;
+
+procedure TCore.DebuggerChange(Sender: TObject);
+begin
+  if Assigned(FormCallStack) then FormCallStack.Reload;
 end;