diff options
| -rw-r--r-- | src/synth/synth-stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index bc9884af1..324c9526a 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -886,7 +886,7 @@ package body Synth.Stmts is -- - divide and conquier -- Create a net for the expression. - Sel := Synth_Expression (C.Inst, Expr); + Sel := Synth_Expression_With_Basetype (C.Inst, Expr); -- Count choices and alternatives. Count_Choices (Case_Info, Choices); |