diff options
author | tege <tege@gmplib.org> | 2002-04-15 23:22:16 +0200 |
---|---|---|
committer | tege <tege@gmplib.org> | 2002-04-15 23:22:16 +0200 |
commit | b0175bdc385259288788e35bf413ce314479ab5f (patch) | |
tree | 9ecaeeb46d2c872974d75ffb8bd438c01900fd4b /mpn | |
parent | 7050d65671fcc75b30ad99fa831e3bd3d935172e (diff) | |
download | gmp-b0175bdc385259288788e35bf413ce314479ab5f.tar.gz |
(EXTRACT): Remove.
Diffstat (limited to 'mpn')
-rw-r--r-- | mpn/generic/divrem_1.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/mpn/generic/divrem_1.c b/mpn/generic/divrem_1.c index eda1487cd..039c2962a 100644 --- a/mpn/generic/divrem_1.c +++ b/mpn/generic/divrem_1.c @@ -184,8 +184,6 @@ mpn_divrem_1 (mp_ptr qp, mp_size_t qxn, d <<= norm; r <<= norm; -#define EXTRACT ((n1 << norm) | (n0 >> (BITS_PER_MP_LIMB - norm))) - if (UDIV_NEEDS_NORMALIZATION && BELOW_THRESHOLD (n, DIVREM_1_UNNORM_THRESHOLD)) { @@ -196,7 +194,9 @@ mpn_divrem_1 (mp_ptr qp, mp_size_t qxn, for (i = un - 2; i >= 0; i--) { n0 = up[i] << GMP_NAIL_BITS; - udiv_qrnnd (*qp, r, r, EXTRACT, d); + udiv_qrnnd (*qp, r, r, + ((n1 << norm) | (n0 >> (BITS_PER_MP_LIMB - norm))), + d); r >>= GMP_NAIL_BITS; qp--; n1 = n0; @@ -224,7 +224,9 @@ mpn_divrem_1 (mp_ptr qp, mp_size_t qxn, for (i = un - 2; i >= 0; i--) { n0 = up[i] << GMP_NAIL_BITS; - udiv_qrnnd_preinv (*qp, r, r, EXTRACT, d, dinv); + udiv_qrnnd_preinv (*qp, r, r, + ((n1 << norm) | (n0 >> (BITS_PER_MP_LIMB - norm))), + d, dinv); r >>= GMP_NAIL_BITS; qp--; n1 = n0; |