diff options
author | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-03-25 15:03:13 +0000 |
---|---|---|
committer | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-03-25 15:03:13 +0000 |
commit | 2e3eb27dc768dd5b6109a84d5b96ce03531ba0ba (patch) | |
tree | 5ada938d3b3a1d8b9c0cb001dd078957527fbb39 /div-short.c | |
parent | 3d6859b7bdd56348e363f2847496c7faf9eec1f7 (diff) | |
download | mpfr-2e3eb27dc768dd5b6109a84d5b96ce03531ba0ba.tar.gz |
Add info.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3411 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'div-short.c')
-rw-r--r-- | div-short.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/div-short.c b/div-short.c index 6a1d1df1d..d38ade617 100644 --- a/div-short.c +++ b/div-short.c @@ -160,7 +160,7 @@ check (int argc, const char *argv[]) int n = (argc > 1) ? atoi (argv[1]) : 1000; int k = (argc > 2) ? atoi (argv[2]) : 10000000; mp_limb_t *n0p, *np, *n2p, *qp, *q2p, *dp; - mp_limb_t max; + mp_limb_t max, qqh1, qqh2; int st; int i; int j; @@ -188,7 +188,7 @@ check (int argc, const char *argv[]) mpn_divrem (qp, 0, np, 2 * n, dp, n); MPN_COPY (n2p, n0p, 2 * n); - mpn_dc_divrem_n_high (q2p, n2p, dp, n); + qqh2 = mpn_dc_divrem_n_high (q2p, n2p, dp, n); if (mpn_cmp (qp, q2p, n) > 0) { @@ -201,6 +201,13 @@ check (int argc, const char *argv[]) printf ("\nn0p="); for (i = 2*n-1 ; i >= 0 ; i--) printf (" %016Lx", (unsigned long) n0p[i]); + printf ("\nqp="); + for (i = n-1 ; i >= 0 ; i--) + printf (" %016Lx", (unsigned long) qp[i]); + printf ("\nq2p="); + for (i = n-1 ; i >= 0 ; i--) + printf (" %016Lx", (unsigned long) q2p[i]); + printf ("\nQcarry=%lu\n", qqh2); } return; } |