1 files changed, 13 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_context-debug.adb b/src/synth/elab-vhdl_context-debug.adb
index 79b59187a..2ce44425a 100644
--- a/src/synth/elab-vhdl_context-debug.adb
+++ b/src/synth/elab-vhdl_context-debug.adb
@@ -73,4 +73,17 @@ package body Elab.Vhdl_Context.Debug is
    begin
       Debug_Elab_Tree_1 (Inst, 0);
    end Debug_Elab_Tree;
+
+   procedure Debug_Backtrace (First : Synth_Instance_Acc)
+   is
+      Inst : Synth_Instance_Acc;
+   begin
+      Inst := First;
+      while Inst /= null loop
+         Debug_Synth_Instance (Inst);
+         Inst := Inst.Caller;
+      end loop;
+   end Debug_Backtrace;
+
+   pragma Unreferenced (Debug_Backtrace);
 end Elab.Vhdl_Context.Debug;