diff options
Diffstat (limited to 'coth.c')
| -rw-r--r-- | coth.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -42,10 +42,10 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc., if (MPFR_GET_EXP(z) == 1) /* 1 <= |z| < 2 */ \ { \ /* the following is exact by Sterbenz theorem */ \ - mpfr_sub_si (z, z, MPFR_SIGN(z) > 0 ? 1 : -1, GMP_RNDN); \ + mpfr_sub_si (z, z, MPFR_SIGN(z) > 0 ? 1 : -1, MPFR_RNDN); \ if (MPFR_IS_ZERO(z) || MPFR_GET_EXP(z) <= - (mp_exp_t) precy) \ { \ - mpfr_add_si (z, z, MPFR_SIGN(z) > 0 ? 1 : -1, GMP_RNDN); \ + mpfr_add_si (z, z, MPFR_SIGN(z) > 0 ? 1 : -1, MPFR_RNDN); \ break; \ } \ } @@ -69,13 +69,13 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc., inexact = mpfr_ui_div (y, 1, x, r); \ if (inexact == 0) /* x is a power of two */ \ { /* result always 1/x, except when rounding away from zero */ \ - if (rnd_mode == GMP_RNDU) \ + if (rnd_mode == MPFR_RNDU) \ { \ if (signx > 0) \ mpfr_nextabove (y); /* 2^k + epsilon */ \ inexact = 1; \ } \ - else if (rnd_mode == GMP_RNDD) \ + else if (rnd_mode == MPFR_RNDD) \ { \ if (signx < 0) \ mpfr_nextbelow (y); /* -2^k - epsilon */ \ |