Print this page

        

*** 40,56 **** tiny = 1.0e-20L; long double asinhl(long double x) { long double t, w; w = fabsl(x); if (isnanl(x)) return (x + x); /* x is NaN */ if (w < tiny) { #ifndef lint ! volatile long double 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)); --- 40,57 ---- tiny = 1.0e-20L; long double asinhl(long double x) { long double t, w; + volatile long double dummy; 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));