diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-03-25 20:10:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-03-25 20:10:11 +0100 |
| commit | cd4bb8b71f2eb0b2f6a99dfe44d3daa12c408d89 (patch) | |
| tree | 8a30f62e9c4de6e58dc9976573c8658c4b6d3238 | |
| parent | 0c79f9cfade3b5a8fc8bb24cad944e70109b86e5 (diff) | |
| download | ghdl-cd4bb8b71f2eb0b2f6a99dfe44d3daa12c408d89.tar.gz ghdl-cd4bb8b71f2eb0b2f6a99dfe44d3daa12c408d89.tar.bz2 ghdl-cd4bb8b71f2eb0b2f6a99dfe44d3daa12c408d89.zip | |
trans-chap8: adjust condition.
Fix #787
| -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 |