diff options
Diffstat (limited to 'src/vhdl/sem.adb')
| -rw-r--r-- | src/vhdl/sem.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index 9e57ec0e2..39e642722 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -2599,8 +2599,7 @@ package body Sem is case Get_Kind (El) is when Iir_Kind_Package_Instantiation_Declaration => declare - Pkg : constant Iir := - Get_Named_Entity (Get_Uninstantiated_Package_Name (El)); + Pkg : constant Iir := Get_Uninstantiated_Package_Decl (El); begin if not Is_Error (Pkg) and then Get_Need_Body (Pkg) @@ -2633,8 +2632,8 @@ package body Sem is return True; when Iir_Kind_Interface_Package_Declaration => declare - Pkg : constant Iir := Get_Named_Entity - (Get_Uninstantiated_Package_Name (Inter)); + Pkg : constant Iir := + Get_Uninstantiated_Package_Decl (Inter); begin if Get_Macro_Expanded_Flag (Pkg) then return True; @@ -2836,6 +2835,8 @@ package body Sem is return Null_Iir; end if; + Set_Uninstantiated_Package_Decl (Decl, Pkg); + return Pkg; end Sem_Uninstantiated_Package_Name; |