From db271398f8240f64fc33bec4157d755e4c6327c7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 7 Jan 2023 19:03:38 +0100 Subject: synth: fix handle of array attributes --- src/synth/synth-vhdl_expr.adb | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index c756bb857..0004816d5 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2519,13 +2519,12 @@ package body Synth.Vhdl_Expr is Etype := Get_Type (Expr); case Get_Kind (Expr) is - when Iir_Kind_High_Array_Attribute - | Iir_Kind_Low_Array_Attribute - | Iir_Kind_Simple_Name - | Iir_Kind_Indexed_Name - | Iir_Kind_Selected_Element - | Iir_Kind_Integer_Literal - | Iir_Kind_String_Literal8 => + when Iir_Kind_Simple_Name + | Iir_Kind_Indexed_Name + | Iir_Kind_Selected_Element + | Iir_Kind_Integer_Literal + | Iir_Kind_String_Literal8 + | Iir_Kinds_Array_Attribute => -- For array attributes: the type is the type of the index, which -- is not synthesized as a type (only as an index). -- -- cgit v1.2.3