diff options
Diffstat (limited to 'Build/source/libs/mpfr/mpfr-src/src/atanh.c')
-rw-r--r-- | Build/source/libs/mpfr/mpfr-src/src/atanh.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Build/source/libs/mpfr/mpfr-src/src/atanh.c b/Build/source/libs/mpfr/mpfr-src/src/atanh.c index 8b5adcbae67..db0c8ad141a 100644 --- a/Build/source/libs/mpfr/mpfr-src/src/atanh.c +++ b/Build/source/libs/mpfr/mpfr-src/src/atanh.c @@ -1,6 +1,6 @@ /* mpfr_atanh -- Inverse Hyperbolic Tangente -Copyright 2001-2019 Free Software Foundation, Inc. +Copyright 2001-2020 Free Software Foundation, Inc. Contributed by the AriC and Caramba projects, INRIA. This file is part of the GNU MPFR Library. @@ -44,9 +44,9 @@ mpfr_atanh_small (mpfr_ptr y, mpfr_srcptr x) mpfr_init2 (t, p); mpfr_init2 (u, p); mpfr_init2 (x2, p); - mpfr_set (t, x, MPFR_RNDF); /* t = x * (1 + theta) */ - mpfr_set (y, t, MPFR_RNDF); /* exact */ - mpfr_mul (x2, x, x, MPFR_RNDF); /* x2 = x^2 * (1 + theta) */ + mpfr_set (t, x, MPFR_RNDF); /* t = x * (1 + theta) */ + mpfr_set (y, t, MPFR_RNDF); /* exact */ + mpfr_sqr (x2, x, MPFR_RNDF); /* x2 = x^2 * (1 + theta) */ for (i = 3; ; i += 2) { mpfr_mul (t, t, x2, MPFR_RNDF); /* t = x^i * (1 + theta)^i */ |