From bf58e603c2bfc27e67c651df74e38d02cfb65e20 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 4 Feb 2023 09:55:06 +0100 Subject: elab-vhdl_debug: handle package in subprograms --- src/synth/elab-vhdl_debug.adb | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'src') 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); -- cgit v1.2.3