diff options
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-insts.adb | 2 | ||||
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
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; |