diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-14 18:52:27 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-15 09:47:14 +0100 |
| commit | a72c06fdfbf4a18bc8fc9728113f5a99ee25d6eb (patch) | |
| tree | a18bf7eaf88005b2f898644fd120b7460aca0e81 /src/synth/elab-vhdl_context-debug.adb | |
| parent | 5b59dda84a7eb8a48e94a75b9b3ad008514089ce (diff) | |
| download | ghdl-a72c06fdfbf4a18bc8fc9728113f5a99ee25d6eb.tar.gz ghdl-a72c06fdfbf4a18bc8fc9728113f5a99ee25d6eb.tar.bz2 ghdl-a72c06fdfbf4a18bc8fc9728113f5a99ee25d6eb.zip | |
synth: add Debug_Backtrace debug procedure
Diffstat (limited to 'src/synth/elab-vhdl_context-debug.adb')
| -rw-r--r-- | src/synth/elab-vhdl_context-debug.adb | 13 |
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; |