diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-25 20:54:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-25 20:54:57 +0200 |
| commit | 14c81512c7cce51e7781d527bd82be9ed5f34be3 (patch) | |
| tree | 899e016dc4602e6aa9d935f5363d21dfb94eba8c /src | |
| parent | 6af16f78aa9085e937a31167d3df288cc06671ea (diff) | |
| download | ghdl-14c81512c7cce51e7781d527bd82be9ed5f34be3.tar.gz ghdl-14c81512c7cce51e7781d527bd82be9ed5f34be3.tar.bz2 ghdl-14c81512c7cce51e7781d527bd82be9ed5f34be3.zip | |
synth-stmts: allow slice as case expression.
Diffstat (limited to 'src')
| -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); |