@@ -70,10 +70,11 @@ long double tanhl(long double x) { long double t, y, z; int signx; + volatile long double dummy; if (isnanl(x)) return (x + x); /* x is NaN */ signx = signbitl(x); t = fabsl(x);
@@ -84,11 +85,11 @@ else if (t > small) { y = expm1l(-t - t); z = -y / (y + two); } else { #ifndef lint - volatile long double dummy = t + big; + dummy = t + big; /* inexact if t != 0 */ #endif return (x); } } else if (!finitel(t))