From ca26a87dc5a0d405c6d777a4899ea617811cf402 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 20 Jun 2021 07:54:46 +0200 Subject: synth-vhdl_stmts: merge static extract before dyn_extract. No reasons to use an extra gate. --- src/synth/synth-vhdl_stmts.adb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 0f2694e06..dbb6b10a9 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -571,12 +571,10 @@ package body Synth.Vhdl_Stmts is N := Get_Net (Ctxt, Obj); if Dyn.Voff /= No_Net then Synth.Source.Set_Location_Maybe (N, Loc); - if Dyn.Pfx_Off.Net_Off /= 0 then - N := Build2_Extract (Ctxt, N, Dyn.Pfx_Off.Net_Off, Dyn.Pfx_Typ.W); - end if; if Res_Typ.W /= 0 then -- Do not try to extract if the net is null. - N := Build_Dyn_Extract (Ctxt, N, Dyn.Voff, Off, Res_Typ.W); + N := Build_Dyn_Extract (Ctxt, N, Dyn.Voff, + Off + Dyn.Pfx_Off.Net_Off, Res_Typ.W); end if; else pragma Assert (not Is_Static (Obj.Val)); -- cgit v1.2.3