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