diff options
| -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; |