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. */
*** 36,60 **** one = 1.0L, big = 1.0e+20L, tiny = 1.0e-20L; long double ! asinhl(long double x) { long double t, w; #ifndef lint volatile long double dummy __unused; #endif w = fabsl(x); if (isnanl(x)) return (x + x); /* x is NaN */ if (w < tiny) { #ifndef lint dummy = x + big; /* inexact if x != 0 */ #endif return (x); /* tiny x */ } else if (w < big) { t = one / w; return (copysignl(log1pl(w + w / (t + sqrtl(one + t * t))), x)); ! } else return (copysignl(logl(w) + ln2, x)); } --- 37,66 ---- one = 1.0L, big = 1.0e+20L, tiny = 1.0e-20L; long double ! asinhl(long double x) ! { long double t, w; + #ifndef lint volatile long double dummy __unused; #endif w = fabsl(x); + if (isnanl(x)) return (x + x); /* x is NaN */ + if (w < tiny) { #ifndef lint dummy = x + big; /* inexact if x != 0 */ #endif return (x); /* tiny x */ } else if (w < big) { t = one / w; return (copysignl(log1pl(w + w / (t + sqrtl(one + t * t))), x)); ! } else { return (copysignl(logl(w) + ln2, x)); + } }