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/vhdl/vhdl-canon.adb | |
| 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/vhdl/vhdl-canon.adb')
| -rw-r--r-- | src/vhdl/vhdl-canon.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index d5acdf171..f56c0674f 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -930,10 +930,11 @@ package body Vhdl.Canon is Set_Chain (Assoc_El, Null_Iir); Chain_Append (N_Chain, Last, Assoc_El); - case Get_Kind (Assoc_El) is + case Iir_Kinds_Association_Element (Get_Kind (Assoc_El)) is when Iir_Kind_Association_Element_Open => goto Done; - when Iir_Kind_Association_Element_By_Expression => + when Iir_Kind_Association_Element_By_Expression + | Iir_Kind_Association_Element_By_Name => if Get_Whole_Association_Flag (Assoc_El) then goto Done; end if; @@ -944,8 +945,6 @@ package body Vhdl.Canon is | Iir_Kind_Association_Element_Subprogram | Iir_Kind_Association_Element_Terminal => goto Done; - when others => - Error_Kind ("canon_association_chain", Assoc_El); end case; elsif Found then -- No more associations. @@ -2530,7 +2529,8 @@ package body Vhdl.Canon is case Get_Kind (Assoc) is when Iir_Kind_Association_Element_Open => null; - when Iir_Kind_Association_Element_By_Expression => + when Iir_Kind_Association_Element_By_Expression + | Iir_Kind_Association_Element_By_Name => Set_Actual (El, Sem_Inst.Copy_Tree (Get_Actual (Assoc))); Set_Actual_Conversion (El, |