diff options
Diffstat (limited to 'src/vhdl/simulate/simul-debugger.adb')
-rw-r--r-- | src/vhdl/simulate/simul-debugger.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/vhdl/simulate/simul-debugger.adb b/src/vhdl/simulate/simul-debugger.adb index 1a3c82245..d2bfcf2b1 100644 --- a/src/vhdl/simulate/simul-debugger.adb +++ b/src/vhdl/simulate/simul-debugger.adb @@ -929,6 +929,12 @@ package body Simul.Debugger is procedure Disp_A_Frame (Instance: Block_Instance_Acc) is begin + if Instance = Global_Instances then + pragma Assert (Instance.Label = Null_Iir); + Put_Line ("global instances"); + return; + end if; + Put (Disp_Node (Instance.Label)); if Instance.Stmt /= Null_Iir then Put (" at "); @@ -949,6 +955,18 @@ package body Simul.Debugger is end Debug_Bt; pragma Unreferenced (Debug_Bt); + procedure Debug_Upblock (Instance : Block_Instance_Acc) + is + Inst : Block_Instance_Acc; + begin + Inst := Instance; + while Inst /= null loop + Disp_A_Frame (Inst); + Inst := Inst.Up_Block; + end loop; + end Debug_Upblock; + pragma Unreferenced (Debug_Upblock); + procedure Disp_Current_Lines is use Files_Map; |