Print this page
11210 libm should be cstyle(1ONBLD) clean
*** 20,29 ****
--- 20,30 ----
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
+
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
*** 46,61 ****
* atanhl(+-1) is +-INF with signal.
*
*/
static const long double zero = 0.0L, half = 0.5L, one = 1.0L;
-
long double
! atanhl(long double x) {
long double t;
t = fabsl(x);
if (t == one)
return (x / zero);
t = t / (one - t);
return (copysignl(half, x) * log1pl(t + t));
}
--- 47,64 ----
* atanhl(+-1) is +-INF with signal.
*
*/
static const long double zero = 0.0L, half = 0.5L, one = 1.0L;
long double
! atanhl(long double x)
! {
long double t;
t = fabsl(x);
+
if (t == one)
return (x / zero);
+
t = t / (one - t);
return (copysignl(half, x) * log1pl(t + t));
}