diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-05 20:10:54 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-05 20:10:54 +0200 |
| commit | 950f6b8c2f18e19885c9188fbab7345930f0b08d (patch) | |
| tree | 44ce15cb271bdff69df9739f0977bc833b4f715b /src | |
| parent | 622e73bc2272b103f9cf3f65d47e3c15f1e3dd43 (diff) | |
| download | ghdl-950f6b8c2f18e19885c9188fbab7345930f0b08d.tar.gz ghdl-950f6b8c2f18e19885c9188fbab7345930f0b08d.tar.bz2 ghdl-950f6b8c2f18e19885c9188fbab7345930f0b08d.zip | |
synth: fix selected signal assignment (use basetype).
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 48be812bd..985dd69db 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1106,7 +1106,7 @@ package body Synth.Stmts is begin Targ_Type := Get_Value_Type (Syn_Inst, Get_Type (Targ)); -- Create a net for the expression. - Sel := Synth_Expression (Syn_Inst, Expr); + Sel := Synth_Expression_With_Basetype (Syn_Inst, Expr); -- Count choices and alternatives. Count_Choices (Case_Info, Choices); |