diff options
| -rw-r--r-- | src/synth/synth-expr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 51d01f11e..8f9577081 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -995,7 +995,8 @@ package body Synth.Expr is when Value_Discrete => return Create_Value_Discrete (Val.Scal, Dtype); when Value_Const => - return Create_Value_Discrete (Val.C_Val.Scal, Dtype); + return Synth_Subtype_Conversion + (Val.C_Val, Dtype, Bounds, Loc); when others => raise Internal_Error; end case; |