From 6011fbc69a5285ce73237bed9cca5d900ac40237 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 8 Jun 2022 22:10:22 +0200 Subject: synth-vhdl_expr.adb: use base type for indexed names. Fix #2083 --- src/synth/synth-vhdl_expr.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index 5b5034986..6b7672ae2 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2229,9 +2229,10 @@ package body Synth.Vhdl_Expr is case Get_Kind (Expr) is when Iir_Kind_High_Array_Attribute | Iir_Kind_Low_Array_Attribute + | Iir_Kind_Indexed_Name | Iir_Kind_Integer_Literal => -- The type of this attribute is the type of the index, which is - -- not synthesized as atype (only as an index). + -- not synthesized as a type (only as an index). -- For integer_literal, the type is not really needed, and it -- may be created by static evaluation of an array attribute. Etype := Get_Base_Type (Etype); -- cgit v1.2.3