diff options
-rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 5 |
1 files 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); |