Mercurial > hg > CbC > CbC_gcc
diff libquadmath/math/atanhq.c @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line diff
--- a/libquadmath/math/atanhq.c Thu Oct 25 07:37:49 2018 +0900 +++ b/libquadmath/math/atanhq.c Thu Feb 13 11:34:05 2020 +0900 @@ -1,5 +1,5 @@ -/* s_atanhl.c -- __float128 version of s_atan.c. - * Conversion to __float128 by Ulrich Drepper, +/* s_atanhl.c -- long double version of s_atan.c. + * Conversion to long double by Ulrich Drepper, * Cygnus Support, drepper@cygnus.com. */ @@ -22,8 +22,8 @@ * atanhl(x) = --- * log(1 + -------) = 0.5 * log1p(2 * --------) * 2 1 - x 1 - x * - * For x<0.5 - * atanhl(x) = 0.5*log1pl(2x+2x*x/(1-x)) + * For x<0.5 + * atanhl(x) = 0.5*log1pq(2x+2x*x/(1-x)) * * Special cases: * atanhl(x) is NaN if |x| > 1 with signal; @@ -34,11 +34,12 @@ #include "quadmath-imp.h" -static const __float128 one = 1.0Q, huge = 1e4900Q; -static const __float128 zero = 0.0Q; +static const __float128 one = 1, huge = 1e4900Q; + +static const __float128 zero = 0; __float128 -atanhq (__float128 x) +atanhq(__float128 x) { __float128 t; uint32_t jx, ix;