2006-04-25 Bruno Haible <bruno@clisp.org>

[cln.git] / src / float / transcendental / cl_F_sinh.cc

diff --git a/src/float/transcendental/cl_F_sinh.cc b/src/float/transcendental/cl_F_sinh.cc
index 7ffdb1a262c207dff4d714a303a75500d000a247..b1f0bfcece3aeec95d0c658f0eff8e3273263b13 100644 (file)
--- a/src/float/transcendental/cl_F_sinh.cc
+++ b/src/float/transcendental/cl_F_sinh.cc
@@ -37,7 +37,7 @@ const cl_F sinh (const cl_F& x)
                        } else
                        #endif
                        if ((TheLfloat(x)->len >= 500)
-                           && (float_exponent(x) > (-(sintL)float_digits(x))>>1)) {
+                           && (float_exponent(x) > (-(sintC)float_digits(x))>>1)) {
                                // verwende exp(x), schneller als cl_coshsinh_ratseries
                                // (aber nur bei 0 > e > -d/2, denn wir müssen, um
                                // Auslöschung zu verhindern, |e| Bits dazunehmen)