diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-02 20:50:54 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-02 20:50:54 +0200 |
| commit | 5326b13651c2588c76e87a0b3086d2ab0d6fb0d0 (patch) | |
| tree | af18035e12ded0aca7f855b94902f7d68c5c049a /src/synth/synth-expr.adb | |
| parent | 5610cd1aae1c88d4beec14b2beaf10040d678696 (diff) | |
| download | ghdl-5326b13651c2588c76e87a0b3086d2ab0d6fb0d0.tar.gz ghdl-5326b13651c2588c76e87a0b3086d2ab0d6fb0d0.tar.bz2 ghdl-5326b13651c2588c76e87a0b3086d2ab0d6fb0d0.zip | |
synth: simplify id_dyn_extract.
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 03a91155e..f0ba02b40 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -1002,7 +1002,7 @@ package body Synth.Expr is else pragma Assert (Off = 0); Res := Build_Dyn_Extract (Build_Context, Get_Net (Pfx_Val), - Voff, 1, Off, W); + Voff, Off, W); Set_Location (Res, Name); return Create_Value_Net (Res, El_Typ); end if; @@ -1293,8 +1293,7 @@ package body Synth.Expr is Synth_Slice_Suffix (Syn_Inst, Name, Pfx_Bnd, El_Typ.W, Res_Bnd, Inp, Off, Wd); if Inp /= No_Net then - N := Build_Dyn_Extract (Build_Context, - Get_Net (Pfx), Inp, 1, Off, Wd); + N := Build_Dyn_Extract (Build_Context, Get_Net (Pfx), Inp, Off, Wd); Set_Location (N, Name); -- TODO: the bounds cannot be created as they are not known. Res_Type := Create_Slice_Type (Wd, El_Typ); |