diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2018-02-14 09:36:58 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2018-02-14 09:36:58 +0000 |
| commit | 39fd8f72559df39e946301e6683fdbc03ba74d10 (patch) | |
| tree | 5d1fe332f3e7622f3ec80619f4fd1f25f93f59dd /src/sub1sp.c | |
| parent | c14b624ab07a82d1335c8f501da4b243486af002 (diff) | |
| download | mpfr-39fd8f72559df39e946301e6683fdbc03ba74d10.tar.gz | |
[configure.ac] detect mpn_rsblsh1_n instead of mpn_rsblsh_n
[src/sub1sp.c] use mpn_rsblsh1_n instead of mpn_rsblsh_n with k=1
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@12238 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'src/sub1sp.c')
| -rw-r--r-- | src/sub1sp.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/sub1sp.c b/src/sub1sp.c index cdc2d318c..67970e4c9 100644 --- a/src/sub1sp.c +++ b/src/sub1sp.c @@ -1343,9 +1343,10 @@ mpfr_sub1sp (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mpfr_rnd_t rnd_mode) /* The exponent decreases by one. */ SubD1Lose: /* Compute 2*b-c (Exact) */ -#if defined(WANT_GMP_INTERNALS) && defined(HAVE___GMPN_RSBLSH_N) +#if defined(WANT_GMP_INTERNALS) && defined(HAVE___GMPN_RSBLSH1_N) /* {ap, n} = 2*{bp, n} - {cp, n} */ - __gmpn_rsblsh_n (ap, MPFR_MANT(c), MPFR_MANT(b), n, 1); + /* mpn_rsblsh1_n -- rp[] = (vp[] << 1) - up[] */ + __gmpn_rsblsh1_n (ap, MPFR_MANT(c), MPFR_MANT(b), n); #else bp = MPFR_TMP_LIMBS_ALLOC (n); /* Shift b in the allocated temporary block */ |