diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-12-11 12:30:09 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-12-11 12:30:09 +0100 |
| commit | ca958871af831c19e78a70784599c2bdac8f72a2 (patch) | |
| tree | fe808b5e538da1f7de52c93d721a6b19568b42e9 | |
| parent | 850a0186a67961a6bfedabd8a879eff5f9923665 (diff) | |
| download | ghdl-ca958871af831c19e78a70784599c2bdac8f72a2.tar.gz ghdl-ca958871af831c19e78a70784599c2bdac8f72a2.tar.bz2 ghdl-ca958871af831c19e78a70784599c2bdac8f72a2.zip | |
trans-chap7.adb: handle any expression for bounds.
Fix #2223
| -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); |