diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-03-22 03:37:21 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-03-22 04:40:18 +0100 |
commit | 19dab14a7452c793dde71bf599202cb7783ba376 (patch) | |
tree | e668572468f02eb4f5dd2b8bb85476aab115080d /src/vhdl/vhdl-prints.adb | |
parent | a70eaa53bdb9163146f3f3e25564071a4b9bfa1c (diff) | |
download | ghdl-19dab14a7452c793dde71bf599202cb7783ba376.tar.gz ghdl-19dab14a7452c793dde71bf599202cb7783ba376.tar.bz2 ghdl-19dab14a7452c793dde71bf599202cb7783ba376.zip |
vhdl: add iir_kind_package_instantiation_body
Diffstat (limited to 'src/vhdl/vhdl-prints.adb')
-rw-r--r-- | src/vhdl/vhdl-prints.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index dcf348099..b09c00db6 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -2631,6 +2631,12 @@ package body Vhdl.Prints is Disp_Token (Ctxt, Tok_Semi_Colon); Close_Hbox (Ctxt); + when Iir_Kind_Package_Instantiation_Body => + Start_Hbox (Ctxt); + OOB.Put ("-- body for instantiation "); + Disp_Ident (Ctxt, Get_Identifier (Get_Package (Decl))); + Close_Hbox (Ctxt); + when others => Error_Kind ("disp_declaration_chain", Decl); end case; |