From 4d499ee7995babe3c602b66379c3290c18cad0f2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 15 May 2022 11:53:35 +0200 Subject: elab-vhdl_debug(disp_instance_path): show top-level unit --- src/synth/elab-vhdl_debug.adb | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) (limited to 'src') diff --git a/src/synth/elab-vhdl_debug.adb b/src/synth/elab-vhdl_debug.adb index e7cc2fc1e..f774059fa 100644 --- a/src/synth/elab-vhdl_debug.adb +++ b/src/synth/elab-vhdl_debug.adb @@ -959,7 +959,7 @@ package body Elab.Vhdl_Debug is return Get_Instance_Parent (Pre_Parent); end Get_Instance_Path_Parent; - procedure Disp_Instance_Path_1 (Inst : Synth_Instance_Acc) + procedure Disp_Instance_Path (Inst : Synth_Instance_Acc) is Pre_Parent_Inst : constant Synth_Instance_Acc := Skip_Instance_Parent (Inst); @@ -968,6 +968,10 @@ package body Elab.Vhdl_Debug is Stmt : Node; begin if Pre_Parent_Inst = null then + -- The top unit + Put ('/'); + Parent_Scope := Get_Source_Scope (Inst); + Put (Image (Get_Identifier (Get_Entity (Parent_Scope)))); return; end if; @@ -991,17 +995,5 @@ package body Elab.Vhdl_Debug is Put (")"); end; end if; - end Disp_Instance_Path_1; - - procedure Disp_Instance_Path (Inst : Synth_Instance_Acc) - is - Parent : constant Synth_Instance_Acc := Get_Instance_Parent (Inst); - begin - if Parent = null then - -- The root. - Put ('/'); - else - Disp_Instance_Path_1 (Inst); - end if; end Disp_Instance_Path; end Elab.Vhdl_Debug; -- cgit v1.2.3