From f5f7883fc7cf47d38ed493a882fd7109bdd589bb Mon Sep 17 00:00:00 2001 From: zimmerma Date: Tue, 3 Mar 2009 16:51:07 +0000 Subject: GMP_RNDX -> MPFR_RNDX git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@6053 280ebfd0-de03-0410-8827-d642c229c3f4 --- sqr.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sqr.c') diff --git a/sqr.c b/sqr.c index 97a3976ce..2a5a46c1f 100644 --- a/sqr.c +++ b/sqr.c @@ -96,9 +96,9 @@ mpfr_sqr (mpfr_ptr a, mpfr_srcptr b, mp_rnd_t rnd_mode) result (i.e. before rounding, i.e. without taking cc into account) is < __gmpfr_emin - 1 or the exact result is a power of 2 (i.e. if both arguments are powers of 2), then round to zero. */ - if (rnd_mode == GMP_RNDN && + if (rnd_mode == MPFR_RNDN && (ax + (mp_exp_t) b1 < __gmpfr_emin || mpfr_powerof2_raw (b))) - rnd_mode = GMP_RNDZ; + rnd_mode = MPFR_RNDZ; return mpfr_underflow (a, rnd_mode, MPFR_SIGN_POS); } MPFR_SET_EXP (a, ax2); -- cgit v1.2.1