From bd942bc0e4ff27ad30b80ddab8b00762e33fc54c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 20 Aug 2019 05:24:40 +0200 Subject: vhdl-prints: handle architecture in verification unit hierarchical name. --- src/vhdl/vhdl-prints.adb | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index 697386f87..fd9cb2a24 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -3954,6 +3954,7 @@ package body Vhdl.Prints is (Ctxt : in out Ctxt_Class; Unit: Iir; Tok : Token_Type) is Hier_Name : Iir; + Arch : Iir; Item : Iir; begin Start_Hbox (Ctxt); @@ -3964,6 +3965,12 @@ package body Vhdl.Prints is if Hier_Name /= Null_Iir then Disp_Token (Ctxt, Tok_Left_Paren); Print (Ctxt, Get_Entity_Name (Hier_Name)); + Arch := Get_Architecture (Hier_Name); + if Arch /= Null_Iir then + Disp_Token (Ctxt, Tok_Left_Paren); + Print (Ctxt, Arch); + Disp_Token (Ctxt, Tok_Right_Paren); + end if; Disp_Token (Ctxt, Tok_Right_Paren); end if; Close_Hbox (Ctxt); -- cgit v1.2.3