vhdl: improve support of AMS-vhdl (array and record natures, source quantities)

2 files changed, 5 insertions, 1 deletions

diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index ef11a4ccf..7ebf8cc23 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -536,7 +536,7 @@ package body Synth.Insts is
       Actual : Node;
       Formal_Typ : Type_Acc;
    begin
-      case Iir_Kinds_Association_Element (Get_Kind (Assoc)) is
+      case Iir_Kinds_Association_Element_Parameters (Get_Kind (Assoc)) is
          when Iir_Kind_Association_Element_Open =>
             Actual := Get_Default_Value (Inter);
          when Iir_Kind_Association_Element_By_Expression =>
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 116289c8f..4def552e6 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1443,6 +1443,8 @@ package body Synth.Stmts is
                        (Info.Obj, Info.Off, Info.Targ_Type);
                   when Iir_Kind_Interface_File_Declaration =>
                      Val := Info.Obj;
+                  when Iir_Kind_Interface_Quantity_Declaration =>
+                     raise Internal_Error;
                end case;
          end case;
 
@@ -1464,6 +1466,8 @@ package body Synth.Stmts is
                Create_Object (Subprg_Inst, Inter, Val);
             when Iir_Kind_Interface_File_Declaration =>
                Create_Object (Subprg_Inst, Inter, Val);
+            when Iir_Kind_Interface_Quantity_Declaration =>
+               raise Internal_Error;
          end case;
       end loop;
    end Synth_Subprogram_Association;