diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-06 08:20:33 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-06 08:20:33 +0200 |
commit | 91a8e2335d1f1b3bf3232c60d84aec94fc8f85b9 (patch) | |
tree | 3ab8493102bca154745594468b3458a948b2e460 /src/synth/netlists-expands.adb | |
parent | cb5690c37d52124316603f868fb165d15a5e0c8c (diff) | |
download | ghdl-91a8e2335d1f1b3bf3232c60d84aec94fc8f85b9.tar.gz ghdl-91a8e2335d1f1b3bf3232c60d84aec94fc8f85b9.tar.bz2 ghdl-91a8e2335d1f1b3bf3232c60d84aec94fc8f85b9.zip |
netlists-folds: add Build2_And, remove default location.
Diffstat (limited to 'src/synth/netlists-expands.adb')
-rw-r--r-- | src/synth/netlists-expands.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/netlists-expands.adb b/src/synth/netlists-expands.adb index fe7687014..6d79e8051 100644 --- a/src/synth/netlists-expands.adb +++ b/src/synth/netlists-expands.adb @@ -472,7 +472,7 @@ package body Netlists.Expands is Set_Location (Sh_S, Loc); R_Amt := Build_Dyadic (Ctxt, Id_Sub, Build_Const_UB32 (Ctxt, W_Val, W_Amt), - Build2_Uresize (Ctxt, Amt_N, W_Amt)); + Build2_Uresize (Ctxt, Amt_N, W_Amt, Loc)); Set_Location (R_Amt, Loc); Sh_C := Build_Shift_Rotate (Ctxt, Id_C, Val_N, R_Amt); Set_Location (Sh_C, Loc); |