diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-26 07:46:39 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-26 07:46:39 +0200 |
| commit | 9eb2b04033aa25070708dc14c4b17cd82404f102 (patch) | |
| tree | 7871eb4b2206534dc42473aba098d313d6b7fa6c | |
| parent | 2129c8a80b66baaabce48bcee92551865de86e74 (diff) | |
| download | ghdl-9eb2b04033aa25070708dc14c4b17cd82404f102.tar.gz ghdl-9eb2b04033aa25070708dc14c4b17cd82404f102.tar.bz2 ghdl-9eb2b04033aa25070708dc14c4b17cd82404f102.zip | |
synth: subtype conversion for selected elements.
| -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 9cb1e0bcc..9c794dbf1 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -1521,7 +1521,8 @@ package body Synth.Expr is N := Build_Extract (Build_Context, Get_Net (Res), Res.Typ.Rec.E (Idx + 1).Off, Get_Type_Width (Res_Typ)); - return Create_Value_Net (N, Res_Typ); + Res := Create_Value_Net (N, Res_Typ); + return Synth_Subtype_Conversion (Res, Expr_Type, False, Expr); end; when Iir_Kind_Character_Literal => return Synth_Expression_With_Type |