diff options
| -rw-r--r-- | src/vhdl/simulate/simul-debugger.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/vhdl/simulate/simul-debugger.adb b/src/vhdl/simulate/simul-debugger.adb index 3ae364698..1a3c82245 100644 --- a/src/vhdl/simulate/simul-debugger.adb +++ b/src/vhdl/simulate/simul-debugger.adb @@ -937,6 +937,18 @@ package body Simul.Debugger is New_Line; end Disp_A_Frame; + procedure Debug_Bt (Instance : Block_Instance_Acc) + is + Inst : Block_Instance_Acc; + begin + Inst := Instance; + while Inst /= null loop + Disp_A_Frame (Inst); + Inst := Inst.Parent; + end loop; + end Debug_Bt; + pragma Unreferenced (Debug_Bt); + procedure Disp_Current_Lines is use Files_Map; |