diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-22 06:29:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-22 06:29:09 +0200 |
| commit | 5841b245ee5f3d31b1c1856a443d6aed26fcf582 (patch) | |
| tree | 87c52f61ccee86476f7f87b7d1d33431f9ecf735 /src/synth/netlists-folds.adb | |
| parent | 5b9fb81982ef2405772013509016ecede70fd238 (diff) | |
| download | ghdl-5841b245ee5f3d31b1c1856a443d6aed26fcf582.tar.gz ghdl-5841b245ee5f3d31b1c1856a443d6aed26fcf582.tar.bz2 ghdl-5841b245ee5f3d31b1c1856a443d6aed26fcf582.zip | |
synth: minor refactoring.
Diffstat (limited to 'src/synth/netlists-folds.adb')
| -rw-r--r-- | src/synth/netlists-folds.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/synth/netlists-folds.adb b/src/synth/netlists-folds.adb index 01c210656..e591c35cf 100644 --- a/src/synth/netlists-folds.adb +++ b/src/synth/netlists-folds.adb @@ -231,8 +231,7 @@ package body Netlists.Folds is Sh : constant Natural := Natural (Width'Min (Wn, W)); begin V := Get_Net_Uns64 (I); - V := Shift_Left (V, 64 - Sh); - V := Shift_Right_Arithmetic (V, 64 - Sh); + V := Sext (V, Sh); Res := Build2_Const_Int (Ctxt, To_Int64 (V), W); end; else |