diff options
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index a7cb5f5d0..a16b8c066 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2034,9 +2034,9 @@ package body Synth.Vhdl_Expr is Res_Typ.Sz); return Res; else - N := Build_Extract (Ctxt, Get_Net (Ctxt, Val), - Val.Typ.Rec.E (Idx + 1).Offs.Net_Off, - Get_Type_Width (Res_Typ)); + N := Build2_Extract (Ctxt, Get_Net (Ctxt, Val), + Val.Typ.Rec.E (Idx + 1).Offs.Net_Off, + Get_Type_Width (Res_Typ)); Set_Location (N, Expr); return Create_Value_Net (N, Res_Typ); end if; |