diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-08-16 12:14:23 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-08-16 12:14:23 +0200 |
| commit | c8f04860aee0639bca5b40295eff37f9ad46b9af (patch) | |
| tree | 309a46fa27fa220d4942e200b2190737d312c566 /src/synth | |
| parent | bd29c849be41a8d15a6f6231a7664e8a7841a1b2 (diff) | |
| download | ghdl-c8f04860aee0639bca5b40295eff37f9ad46b9af.tar.gz ghdl-c8f04860aee0639bca5b40295eff37f9ad46b9af.tar.bz2 ghdl-c8f04860aee0639bca5b40295eff37f9ad46b9af.zip | |
synth: handle integer values in subtype conversion.
For tgingold/ghdlsynth-beta#33
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-expr.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index fd827ef03..fae3b80fb 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -766,6 +766,8 @@ package body Synth.Expr is N := Build_Trunc (Build_Context, Id_Utrunc, N, Drng.W); Set_Location (N, Loc); return Create_Value_Net (N, Dtype); + when Value_Discrete => + return Create_Value_Discrete (Val.Scal, Dtype); when others => raise Internal_Error; end case; |