diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-08-06 06:58:39 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-08-06 09:16:19 +0200 |
| commit | 3b80a2e5a9545422e9808f6f3b3f9c4a2421433b (patch) | |
| tree | 22ea684d58cd77e94b780e8e5c9499c3c67fbac1 /src/synth | |
| parent | ece6e78f537b4f16b020d2eb258038d00a794559 (diff) | |
| download | ghdl-3b80a2e5a9545422e9808f6f3b3f9c4a2421433b.tar.gz ghdl-3b80a2e5a9545422e9808f6f3b3f9c4a2421433b.tar.bz2 ghdl-3b80a2e5a9545422e9808f6f3b3f9c4a2421433b.zip | |
vhdl: introduce iir_kind_association_element_by_name
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-vhdl_insts.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/synth/synth-vhdl_insts.adb b/src/synth/synth-vhdl_insts.adb index 2902001d5..06ec882be 100644 --- a/src/synth/synth-vhdl_insts.adb +++ b/src/synth/synth-vhdl_insts.adb @@ -772,7 +772,8 @@ package body Synth.Vhdl_Insts is when Iir_Kind_Association_Element_Open => Actual := Get_Default_Value (Inter); Act_Inst := Inter_Inst; - when Iir_Kind_Association_Element_By_Expression => + when Iir_Kind_Association_Element_By_Expression + | Iir_Kind_Association_Element_By_Name => Actual := Get_Actual (Assoc); if Get_Kind (Actual) = Iir_Kind_Reference_Name then -- Skip inserted anonymous signal declaration. @@ -845,7 +846,7 @@ package body Synth.Vhdl_Insts is when Iir_Kind_Association_Element_Open => -- Not connected. return; - when Iir_Kind_Association_Element_By_Expression => + when Iir_Kinds_Association_Element_By_Actual => Actual := Get_Actual (Assoc); when others => Synth_Individual_Output_Assoc @@ -1022,7 +1023,7 @@ package body Synth.Vhdl_Insts is raise Internal_Error; end if; case Get_Kind (Assoc) is - when Iir_Kind_Association_Element_By_Expression => + when Iir_Kinds_Association_Element_By_Actual => return Synth_Type_Of_Object (Syn_Inst, Get_Actual (Assoc)); when others => raise Internal_Error; |