Print this page

        

@@ -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))