sem_inst: handl subprogram association.

1 files changed, 13 insertions, 3 deletions

diff --git a/src/vhdl/sem_inst.adb b/src/vhdl/sem_inst.adb
index df3a9781e..0b0b76467 100644
--- a/src/vhdl/sem_inst.adb
+++ b/src/vhdl/sem_inst.adb
@@ -518,6 +518,8 @@ package body Sem_Inst is
                Set_Has_Identifier_List (Res, Get_Has_Identifier_List (Inter));
                Set_Expr_Staticness (Res, Get_Expr_Staticness (Inter));
                Set_Name_Staticness (Res, Get_Name_Staticness (Inter));
+               Set_Default_Value (Res, Get_Default_Value (Inter));
+               Set_Is_Ref (Res, True);
             when Iir_Kind_Interface_Package_Declaration =>
                Set_Uninstantiated_Package_Name
                  (Res, Get_Uninstantiated_Package_Name (Inter));
@@ -847,11 +849,19 @@ package body Sem_Inst is
                         Imp_Assoc := Get_Chain (Imp_Assoc);
                      end loop;
                   end;
-               when Iir_Kind_Association_Element_Package =>
+
+               when Iir_Kind_Association_Element_Subprogram =>
+                  Inter := Get_Association_Interface (Inst_El, Inter_El);
+                  Set_Instance (Get_Origin (Inter),
+                                Get_Named_Entity (Get_Actual (Inst_El)));
+
+               when Iir_Kind_Association_Element_By_Expression
+                 | Iir_Kind_Association_Element_By_Individual
+                 | Iir_Kind_Association_Element_Open =>
+                  null;
+               when others =>
                   --  TODO.
                   raise Internal_Error;
-               when others =>
-                  null;
             end case;
             Next_Association_Interface (Inst_El, Inter_El);
          end loop;