diff options
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 9c794dbf1..e73bd5fb2 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -1499,8 +1499,7 @@ package body Synth.Expr is when Iir_Kind_Simple_Name | Iir_Kind_Interface_Signal_Declaration -- For PSL. | Iir_Kind_Signal_Declaration => -- For PSL. - Res := Synth_Name (Syn_Inst, Expr); - return Synth_Subtype_Conversion (Res, Expr_Type, False, Expr); + return Synth_Name (Syn_Inst, Expr); when Iir_Kind_Reference_Name => return Synth_Name (Syn_Inst, Get_Named_Entity (Expr)); when Iir_Kind_Indexed_Name => @@ -1521,8 +1520,7 @@ 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)); - Res := Create_Value_Net (N, Res_Typ); - return Synth_Subtype_Conversion (Res, Expr_Type, False, Expr); + return Create_Value_Net (N, Res_Typ); end; when Iir_Kind_Character_Literal => return Synth_Expression_With_Type |