diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-15 07:44:53 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-15 07:44:53 +0200 |
| commit | 6af56141854f58a12521caa39339ee90f87db64f (patch) | |
| tree | c8ad7f34a296284e615dee888b39b0ba0a71161a | |
| parent | 81d4bd7833d5d295ced6f51b507b0102e515da60 (diff) | |
| download | ghdl-6af56141854f58a12521caa39339ee90f87db64f.tar.gz ghdl-6af56141854f58a12521caa39339ee90f87db64f.tar.bz2 ghdl-6af56141854f58a12521caa39339ee90f87db64f.zip | |
synth-expr: handle any discrete_range in aggregate choices.
| -rw-r--r-- | src/synth/synth-expr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index dbc172de6..aef7420ed 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -305,8 +305,9 @@ package body Synth.Expr is Ch : constant Node := Get_Choice_Range (Assoc); Rng : Discrete_Range_Type; Val : Value_Acc; + W_Rng : Width; begin - Rng := Synth_Discrete_Range_Expression (Syn_Inst, Ch); + Synth_Discrete_Range (Syn_Inst, Ch, Rng, W_Rng); Val := Create_Value_Discrete (Rng.Left, Get_Value_Type (Syn_Inst, |