From 6af56141854f58a12521caa39339ee90f87db64f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 15 Oct 2019 07:44:53 +0200 Subject: synth-expr: handle any discrete_range in aggregate choices. --- src/synth/synth-expr.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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, -- cgit v1.2.3