From ad5da44271d6fb60fdca9948d336e0c082428da6 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 12 Apr 2023 05:59:12 +0200 Subject: translate: add Elab_Package_Unit_Without_Body --- src/vhdl/translate/trans-chap12.adb | 2 +- src/vhdl/translate/trans-chap2.adb | 5 +++++ src/vhdl/translate/trans-chap2.ads | 1 + 3 files changed, 7 insertions(+), 1 deletion(-) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans-chap12.adb b/src/vhdl/translate/trans-chap12.adb index f3686ef9c..adabd133b 100644 --- a/src/vhdl/translate/trans-chap12.adb +++ b/src/vhdl/translate/trans-chap12.adb @@ -654,7 +654,7 @@ package body Trans.Chap12 is case Get_Kind (Lib_Unit) is when Iir_Kind_Package_Declaration => if not Get_Elab_Flag (Unit) then - Chap2.Elab_Package_Body (Lib_Unit, Null_Iir); + Chap2.Elab_Package_Unit_Without_Body (Lib_Unit); end if; when Iir_Kind_Entity_Declaration => Gen_Last_Arch (Lib_Unit); diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 4593b0be8..93daa205f 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1118,6 +1118,11 @@ package body Trans.Chap2 is end if; end Elab_Package_Body; + procedure Elab_Package_Unit_Without_Body (Spec : Iir) is + begin + Elab_Package_Body (Spec, Null_Iir); + end Elab_Package_Unit_Without_Body; + procedure Instantiate_Iir_Info (N : Iir); procedure Instantiate_Iir_Chain_Info (Chain : Iir) diff --git a/src/vhdl/translate/trans-chap2.ads b/src/vhdl/translate/trans-chap2.ads index a3c6189d9..9a91c74ac 100644 --- a/src/vhdl/translate/trans-chap2.ads +++ b/src/vhdl/translate/trans-chap2.ads @@ -37,6 +37,7 @@ package Trans.Chap2 is procedure Elab_Package_Body (Spec : Iir_Package_Declaration; Bod : Iir); procedure Elab_Package_Instantiation_Declaration (Inst : Iir); + procedure Elab_Package_Unit_Without_Body (Spec : Iir); -- Add info for an interface_package_declaration or a -- package_instantiation_declaration -- cgit v1.2.3