summaryrefslogtreecommitdiff
path: root/div-short.c
diff options
context:
space:
mode:
authorpelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4>2005-03-25 15:03:13 +0000
committerpelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4>2005-03-25 15:03:13 +0000
commit2e3eb27dc768dd5b6109a84d5b96ce03531ba0ba (patch)
tree5ada938d3b3a1d8b9c0cb001dd078957527fbb39 /div-short.c
parent3d6859b7bdd56348e363f2847496c7faf9eec1f7 (diff)
downloadmpfr-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.c11
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;
}