diff options
| -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; |