summaryrefslogtreecommitdiff
path: root/Build/source/libs/mpfr/mpfr-src/src/atanh.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/libs/mpfr/mpfr-src/src/atanh.c')
-rw-r--r--Build/source/libs/mpfr/mpfr-src/src/atanh.c8
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 */