diff options
author | Torbjorn Granlund <tege@gmplib.org> | 2008-11-18 16:48:50 +0100 |
---|---|---|
committer | Torbjorn Granlund <tege@gmplib.org> | 2008-11-18 16:48:50 +0100 |
commit | ebcf7a44f788090dc0817f005befe6efc2f82950 (patch) | |
tree | 731fc21389298427a9c29a183722b73c91d85032 /tests/refmpn.c | |
parent | 9742e24b6ecce418c88099d122ba214f83b1507b (diff) | |
download | gmp-ebcf7a44f788090dc0817f005befe6efc2f82950.tar.gz |
(refmpn_gcd_finda): Remove.
Diffstat (limited to 'tests/refmpn.c')
-rw-r--r-- | tests/refmpn.c | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/tests/refmpn.c b/tests/refmpn.c index 55a53ec7c..8c946e9d4 100644 --- a/tests/refmpn.c +++ b/tests/refmpn.c @@ -1612,34 +1612,6 @@ refmpn_mod2 (mp_limb_t r[2], const mp_limb_t a[2], const mp_limb_t d[2]) } -/* Return n with 0 < n < 2^GMP_NUMB_BITS such that there exists 0 < |d| < - 2^GMP_NUMB_BITS, and n == d * c mod 2^(2*GMP_NUMB_BITS). */ -mp_limb_t -refmpn_gcd_finda (const mp_limb_t c[2]) -{ - mp_limb_t n1[2], n2[2]; - - ASSERT (c[0] != 0); - ASSERT (c[1] != 0); - ASSERT_MPN (c, 2); - - n1[0] = c[0]; - n1[1] = c[1]; - - n2[0] = -n1[0]; - n2[1] = ~n1[1]; - - while (n2[1] != 0) - { - refmpn_mod2 (n1, n1, n2); - - MP_LIMB_T_SWAP (n1[0], n2[0]); - MP_LIMB_T_SWAP (n1[1], n2[1]); - } - - return n2[0]; -} - /* Similar to mpn/generic/sb_divrem_mn.c, but somewhat simplified, in particular the trial quotient is allowed to be 2 too big. */ |