diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-02-04 09:55:06 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-02-04 09:55:06 +0100 |
commit | bf58e603c2bfc27e67c651df74e38d02cfb65e20 (patch) | |
tree | fc440223891385d75104c998bf3d34bbcb286f2f | |
parent | b147b6f944c9aa2466d32eb60f6dbecb813a8d37 (diff) | |
download | ghdl-bf58e603c2bfc27e67c651df74e38d02cfb65e20.tar.gz ghdl-bf58e603c2bfc27e67c651df74e38d02cfb65e20.tar.bz2 ghdl-bf58e603c2bfc27e67c651df74e38d02cfb65e20.zip |
elab-vhdl_debug: handle package in subprograms
-rw-r--r-- | src/synth/elab-vhdl_debug.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_debug.adb b/src/synth/elab-vhdl_debug.adb index 6f618579c..ca0e12453 100644 --- a/src/synth/elab-vhdl_debug.adb +++ b/src/synth/elab-vhdl_debug.adb @@ -398,6 +398,19 @@ package body Elab.Vhdl_Debug is | Iir_Kind_Procedure_Body | Iir_Kind_Component_Declaration => null; + when Iir_Kind_Package_Declaration + | Iir_Kind_Package_Body => + declare + Sub_Inst : constant Synth_Instance_Acc := + Get_Package_Object (Instance, Decl); + begin + Put_Indent (Indent); + Put (Vhdl.Errors.Disp_Node (Decl)); + Put (":"); + New_Line; + Disp_Declaration_Objects + (Sub_Inst, Get_Declaration_Chain (Decl), Indent + 1); + end; when Iir_Kind_Suspend_State_Declaration => declare Val : constant Valtyp := Get_Value (Instance, Decl); |