1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb
index d26b880eb..5d6e67596 100644
--- a/src/vhdl/sem_decls.adb
+++ b/src/vhdl/sem_decls.adb
@@ -425,13 +425,14 @@ package body Sem_Decls is
          return;
       end if;
 
-      Sem_Inst.Instantiate_Package_Declaration (Inter, Pkg);
-
       if Get_Generic_Map_Aspect_Chain (Inter) /= Null_Iir then
-         --  TODO
+         Sem_Generic_Association_Chain (Get_Package_Header (Pkg), Inter);
+         --  Not yet fully supported - need to check the instance.
          raise Internal_Error;
       end if;
 
+      Sem_Inst.Instantiate_Package_Declaration (Inter, Pkg);
+
       Sem_Scopes.Add_Name (Inter);
       Set_Is_Within_Flag (Inter, True);
       Xref_Decl (Inter);