diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-04-12 05:59:12 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-04-12 05:59:12 +0200 |
commit | ad5da44271d6fb60fdca9948d336e0c082428da6 (patch) | |
tree | 18e138f6d4bedde09dab1f246348b1860067b7fb /src | |
parent | a8e9e6c316d66ba9cc3a879ba2323f8a83d052dc (diff) | |
download | ghdl-ad5da44271d6fb60fdca9948d336e0c082428da6.tar.gz ghdl-ad5da44271d6fb60fdca9948d336e0c082428da6.tar.bz2 ghdl-ad5da44271d6fb60fdca9948d336e0c082428da6.zip |
translate: add Elab_Package_Unit_Without_Body
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/translate/trans-chap12.adb | 2 | ||||
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 5 | ||||
-rw-r--r-- | src/vhdl/translate/trans-chap2.ads | 1 |
3 files changed, 7 insertions, 1 deletions
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 |