From 7f824fde23f990fffed235a9313d68f4af056090 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 8 Dec 2017 06:12:43 +0100
Subject: simul-debugger: add debug_bt (internal debugging procedure).

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

(limited to 'src')

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