diff options
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index acda82aff..7283b9bd0 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -977,6 +977,7 @@ package body Trans.Chap8 is Sub_Aggr := Chap3.Slice_Base (Chap3.Get_Composite_Base (Val), Sub_Type, New_Obj_Value (Index)); + Stabilize (Sub_Aggr); end if; Translate_Variable_Aggregate_Assignment (Expr, Sub_Type, Sub_Aggr); |