diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-19 06:12:58 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-19 06:12:58 +0100 |
| commit | 15b278acd10b58e998af97eb5181cd2dcfd1f61f (patch) | |
| tree | 14af4667e33381a5d0bdc541e505a26bb160558a /src/vhdl/translate/trans-chap7.adb | |
| parent | 0748a4f0573dd6fa41c3cbf4675618a8017b48eb (diff) | |
| download | ghdl-15b278acd10b58e998af97eb5181cd2dcfd1f61f.tar.gz ghdl-15b278acd10b58e998af97eb5181cd2dcfd1f61f.tar.bz2 ghdl-15b278acd10b58e998af97eb5181cd2dcfd1f61f.zip | |
translate: minor refactoring.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index a0352a4dd..848c524f3 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -3438,7 +3438,7 @@ package body Trans.Chap7 is Aggr_Type : constant Iir := Get_Type (Aggr); El : Iir; begin - case Get_Kind (Aggr_Type) is + case Iir_Kinds_Composite_Type_Definition (Get_Kind (Aggr_Type)) is when Iir_Kind_Array_Subtype_Definition | Iir_Kind_Array_Type_Definition => El := Is_Aggregate_Others (Aggr); @@ -3450,8 +3450,6 @@ package body Trans.Chap7 is when Iir_Kind_Record_Type_Definition | Iir_Kind_Record_Subtype_Definition => Translate_Record_Aggregate (Target, Aggr); - when others => - Error_Kind ("translate_aggregate", Aggr_Type); end case; end Translate_Aggregate; |