diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-08-20 05:24:40 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-08-20 05:24:40 +0200 |
| commit | bd942bc0e4ff27ad30b80ddab8b00762e33fc54c (patch) | |
| tree | ebb3cb419ceedd7ec53341c424dfb17662dd1a04 | |
| parent | 88c51aef36eb0e98b4df8285cad738917ebc0e29 (diff) | |
| download | ghdl-bd942bc0e4ff27ad30b80ddab8b00762e33fc54c.tar.gz ghdl-bd942bc0e4ff27ad30b80ddab8b00762e33fc54c.tar.bz2 ghdl-bd942bc0e4ff27ad30b80ddab8b00762e33fc54c.zip | |
vhdl-prints: handle architecture in verification unit hierarchical name.
| -rw-r--r-- | src/vhdl/vhdl-prints.adb | 7 |
1 files changed, 7 insertions, 0 deletions
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); |