diff options
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index e8f6b1da3..bf0e83fc8 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -4433,7 +4433,9 @@ package body Trans.Chap8 is Open_Temp; Targ2 := Targ; Translate_Waveform_Expression (Value, Target_Type, Targ2, Val); - if Is_Composite (Targ_Tinfo) then + if Is_Composite (Targ_Tinfo) + and then Get_Constraint_State (Target_Type) /= Fully_Constrained + then Stabilize (Targ2); Stabilize (Val); Chap3.Check_Array_Match |