diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-03-19 19:31:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-03-19 19:31:04 +0100 |
| commit | f535653a4a98ada2c8c4456a8186d97c1a444dd8 (patch) | |
| tree | 6e20bd2d2ddbf269c6ef896cbe18eb13bf9610d7 | |
| parent | cc944ffc3e99557a72f177e2d0b855b079e15bf0 (diff) | |
| download | ghdl-f535653a4a98ada2c8c4456a8186d97c1a444dd8.tar.gz ghdl-f535653a4a98ada2c8c4456a8186d97c1a444dd8.tar.bz2 ghdl-f535653a4a98ada2c8c4456a8186d97c1a444dd8.zip | |
synth-expr: fix handling of value_const in synth_subtype_conversion. Fix #1165
| -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; |