diff options
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap12.adb | 5 | ||||
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap12.adb b/src/vhdl/translate/trans-chap12.adb index 0861852..6366131 100644 --- a/src/vhdl/translate/trans-chap12.adb +++ b/src/vhdl/translate/trans-chap12.adb @@ -590,6 +590,8 @@ package body Trans.Chap12 is -- Mark the spec with 'body is present' flag. Set_Elab_Flag (Get_Design_Unit (Get_Package (Lib_Unit)), True); Translate (Unit, Whole); + when Iir_Kind_Context_Declaration => + null; when others => Error_Kind ("elaborate", Lib_Unit); end case; @@ -614,7 +616,8 @@ package body Trans.Chap12 is when Iir_Kind_Architecture_Body | Iir_Kind_Package_Body | Iir_Kind_Configuration_Declaration - | Iir_Kind_Package_Instantiation_Declaration => + | Iir_Kind_Package_Instantiation_Declaration + | Iir_Kind_Context_Declaration => null; when others => Error_Kind ("elaborate(2)", Lib_Unit); diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 51d64d2..875e4a0 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1244,6 +1244,9 @@ package body Trans.Chap2 is when Iir_Kind_Package_Body => -- A package instantiation depends on the body. null; + when Iir_Kind_Context_Declaration => + -- Elab referenced packages. + Elab_Dependence (Design); when others => Error_Kind ("elab_dependence", Library_Unit); end case; |