diff options
Diffstat (limited to 'src/vhdl/translate/translation.adb')
| -rw-r--r-- | src/vhdl/translate/translation.adb | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 76fa7a0b3..86a18e892 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -167,21 +167,15 @@ package body Translation is when Iir_Kind_Package_Declaration => New_Debug_Comment_Decl ("package declaration " & Image_Identifier (Lib_Unit)); - Chap2.Translate_Package_Declaration (Lib_Unit); - if Get_Package_Origin (Lib_Unit) /= Null_Iir - and then Get_Package_Body (Lib_Unit) /= Null_Iir - then - -- Corresponding body for package instantiation. - Chap2.Translate_Package_Body (Get_Package_Body (Lib_Unit)); - end if; + Chap2.Translate_Package_Declaration_Unit (Lib_Unit); when Iir_Kind_Package_Body => New_Debug_Comment_Decl ("package body " & Image_Identifier (Lib_Unit)); - Chap2.Translate_Package_Body (Lib_Unit); + Chap2.Translate_Package_Body_Unit (Lib_Unit); when Iir_Kind_Package_Instantiation_Declaration => New_Debug_Comment_Decl ("package instantiation " & Image_Identifier (Lib_Unit)); - Chap2.Translate_Package_Instantiation_Declaration (Lib_Unit); + Chap2.Translate_Package_Instantiation_Declaration_Unit (Lib_Unit); when Iir_Kind_Entity_Declaration => New_Debug_Comment_Decl ("entity " & Image_Identifier (Lib_Unit)); Chap1.Translate_Entity_Declaration (Lib_Unit); |