From ca958871af831c19e78a70784599c2bdac8f72a2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold <tgingold@free.fr> Date: Sun, 11 Dec 2022 12:30:09 +0100 Subject: trans-chap7.adb: handle any expression for bounds. Fix #2223 --- src/vhdl/translate/trans-chap7.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 29ac620dd..d1541db9d 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -3949,8 +3949,9 @@ package body Trans.Chap7 is Obj := Chap6.Translate_Name (El_Expr, Mode); Expr_Bnd := Chap3.Get_Composite_Bounds (Obj); else - -- TODO: translate expression, keep value. - raise Internal_Error; + -- TODO: Keep value. + Obj := Chap7.Translate_Expression (El_Expr); + Expr_Bnd := Chap3.Get_Composite_Bounds (Obj); end if; El_Layout := Chap3.Array_Bounds_To_Element_Bounds (Bounds, Aggr_Base_Type); -- cgit v1.2.3