diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-06 19:07:08 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-06 20:10:59 +0200 |
| commit | ea7b6490368a4fceb370cc8bc7069133a3217285 (patch) | |
| tree | 90defa71d2e14467572d634dca69b4155f3968fd /src/synth/synth-stmts.adb | |
| parent | dd2ab958e24a7a1593e1bcefdc0c5365a47bb014 (diff) | |
| download | ghdl-ea7b6490368a4fceb370cc8bc7069133a3217285.tar.gz ghdl-ea7b6490368a4fceb370cc8bc7069133a3217285.tar.bz2 ghdl-ea7b6490368a4fceb370cc8bc7069133a3217285.zip | |
synth: check length for vector conversion. Fix #1199
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index aa1a737ac..6a7081810 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -98,11 +98,11 @@ package body Synth.Stmts is Cval : Valtyp; N : Net; begin - if Val = No_Valtyp then + Cval := Synth_Subtype_Conversion (Val, Typ, False, Loc); + if Cval = No_Valtyp then -- In case of error. return; end if; - Cval := Synth_Subtype_Conversion (Val, Typ, False, Loc); N := Get_Net (Cval); Phi_Assign (Build_Context, Wid, N, Offset); end Synth_Assign; |