From a52af2f98e34648a2a9b056b11da518a60a6c6cd Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 26 Dec 2019 18:05:51 +0100 Subject: vhdl: improve support of AMS-vhdl (array and record natures, source quantities) --- src/synth/synth-insts.adb | 2 +- src/synth/synth-stmts.adb | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'src/synth') 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; -- cgit v1.2.3