diff options
| author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2011-02-09 14:15:10 +0000 |
|---|---|---|
| committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2011-02-09 14:15:10 +0000 |
| commit | 06f792151f80bd77aff32929459b489711052b1d (patch) | |
| tree | 517526ff6454637c0ba759c4b141a0f937be5473 /tune | |
| parent | 43a3ef61e0d28a139e199ac8137ea641b30f0a5c (diff) | |
| download | mpfr-06f792151f80bd77aff32929459b489711052b1d.tar.gz | |
Added new types mpfr_limb_ptr and mpfr_limb_srcptr to src/mpfr-impl.h,
and replaced mp_ptr and mp_srcptr (GMP internals) by these 2 new types
respectively.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@7455 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tune')
| -rw-r--r-- | tune/speed.c | 12 | ||||
| -rw-r--r-- | tune/tuneup.c | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/tune/speed.c b/tune/speed.c index 7fc8d45e8..c8c7206fd 100644 --- a/tune/speed.c +++ b/tune/speed.c @@ -47,7 +47,7 @@ int verbose; #define SPEED_MPFR_FUNC(mean_fun) do { \ unsigned i; \ - mp_ptr wp; \ + mpfr_limb_ptr wp; \ double t; \ mpfr_t w, x; \ mp_size_t size; \ @@ -57,7 +57,7 @@ int verbose; SPEED_RESTRICT_COND (s->size <= MPFR_PREC_MAX); \ MPFR_TMP_MARK (marker); \ \ - size = (s->size-1)/GMP_NUMB_BITS+1; \ + size = (s->size-1)/GMP_NUMB_BITS+1; \ s->xp[size-1] |= MPFR_LIMB_HIGHBIT; \ MPFR_TMP_INIT1 (s->xp, x, s->size); \ MPFR_SET_EXP (x, 0); \ @@ -71,7 +71,7 @@ int verbose; speed_starttime (); \ i = s->reps; \ do \ - mean_fun (w, x, MPFR_RNDN); \ + mean_fun (w, x, MPFR_RNDN); \ while (--i != 0); \ t = speed_endtime (); \ \ @@ -81,7 +81,7 @@ int verbose; #define SPEED_MPFR_OP(mean_fun) do { \ unsigned i; \ - mp_ptr wp; \ + mpfr_limb_ptr wp; \ double t; \ mpfr_t w, x, y; \ mp_size_t size; \ @@ -91,7 +91,7 @@ int verbose; SPEED_RESTRICT_COND (s->size <= MPFR_PREC_MAX); \ MPFR_TMP_MARK (marker); \ \ - size = (s->size-1)/GMP_NUMB_BITS+1; \ + size = (s->size-1)/GMP_NUMB_BITS+1; \ s->xp[size-1] |= MPFR_LIMB_HIGHBIT; \ MPFR_TMP_INIT1 (s->xp, x, s->size); \ MPFR_SET_EXP (x, 0); \ @@ -109,7 +109,7 @@ int verbose; speed_starttime (); \ i = s->reps; \ do \ - mean_fun (w, x, y, MPFR_RNDN); \ + mean_fun (w, x, y, MPFR_RNDN); \ while (--i != 0); \ t = speed_endtime (); \ \ diff --git a/tune/tuneup.c b/tune/tuneup.c index caeef0578..19ae6bc3d 100644 --- a/tune/tuneup.c +++ b/tune/tuneup.c @@ -40,7 +40,7 @@ int verbose; do \ { \ unsigned i; \ - mp_ptr wp; \ + mpfr_limb_ptr wp; \ double t; \ mpfr_t w, x; \ mp_size_t size; \ @@ -78,7 +78,7 @@ int verbose; do \ { \ unsigned i; \ - mp_ptr vp, wp; \ + mpfr_limb_ptr vp, wp; \ double t; \ mpfr_t v, w, x; \ mp_size_t size; \ @@ -118,7 +118,7 @@ int verbose; do \ { \ unsigned i; \ - mp_ptr wp; \ + mpfr_limb_ptr wp; \ double t; \ mpfr_t w, x, y; \ mp_size_t size; \ @@ -156,11 +156,11 @@ int verbose; while (0) /* special template for mpfr_mul(a,b,b) */ -#define SPEED_MPFR_SQR(mean_fun) \ +#define SPEED_MPFR_SQR(mean_fun) \ do \ { \ unsigned i; \ - mp_ptr wp; \ + mpfr_limb_ptr wp; \ double t; \ mpfr_t w, x; \ mp_size_t size; \ @@ -202,7 +202,7 @@ int verbose; do \ { \ unsigned i; \ - mp_ptr wp; \ + mpfr_limb_ptr wp; \ double t; \ mpfr_t w, x; \ mp_size_t size; \ |