aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-08-16 12:14:23 +0200
committerTristan Gingold <tgingold@free.fr>2019-08-16 12:14:23 +0200
commitc8f04860aee0639bca5b40295eff37f9ad46b9af (patch)
tree309a46fa27fa220d4942e200b2190737d312c566 /src/synth
parentbd29c849be41a8d15a6f6231a7664e8a7841a1b2 (diff)
downloadghdl-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.adb2
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;