From b206f4cf1ee63ff517b9be3fcabaf156e07a9a15 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Dec 2017 06:15:05 +0100
Subject: simul-debugger: add debug_upblock.

---
 src/vhdl/simulate/simul-debugger.adb | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src/vhdl/simulate')

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;
-- 
cgit v1.2.3