summaryrefslogtreecommitdiff
path: root/tests/refmpn.c
diff options
context:
space:
mode:
authorTorbjorn Granlund <tege@gmplib.org>2008-11-18 16:48:50 +0100
committerTorbjorn Granlund <tege@gmplib.org>2008-11-18 16:48:50 +0100
commitebcf7a44f788090dc0817f005befe6efc2f82950 (patch)
tree731fc21389298427a9c29a183722b73c91d85032 /tests/refmpn.c
parent9742e24b6ecce418c88099d122ba214f83b1507b (diff)
downloadgmp-ebcf7a44f788090dc0817f005befe6efc2f82950.tar.gz
(refmpn_gcd_finda): Remove.
Diffstat (limited to 'tests/refmpn.c')
-rw-r--r--tests/refmpn.c28
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. */