From 20f421e1a1bdc4eb203198825120975a52dd1e30 Mon Sep 17 00:00:00 2001 From: Andreas Jaeger Date: Tue, 19 Jun 2001 12:41:02 +0000 Subject: Update 2001-06-19 Andreas Jaeger * sysdeps/ieee754/ldbl-128/s_tanhl.c: New file. * math/libm-test.inc (tanh_test): Test for 2^-56. * sysdeps/ieee754/ldbl-96/s_tanhl.c (__tanhl): Make sure result equals argument when x < 2^-55. Patches by Stephen L. Moshier . --- sysdeps/ieee754/ldbl-96/s_tanhl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sysdeps') diff --git a/sysdeps/ieee754/ldbl-96/s_tanhl.c b/sysdeps/ieee754/ldbl-96/s_tanhl.c index 5c0ac9a..45cea90 100644 --- a/sysdeps/ieee754/ldbl-96/s_tanhl.c +++ b/sysdeps/ieee754/ldbl-96/s_tanhl.c @@ -78,7 +78,7 @@ static long double one=1.0, two=2.0, tiny = 1.0e-4900L; if ((ix|j0|j1) == 0) return x; /* x == +- 0 */ if (ix<0x3fc8) /* |x|<2**-55 */ - return x*(one+x); /* tanh(small) = small */ + return x*(one+tiny); /* tanh(small) = small */ if (ix>=0x3fff) { /* |x|>=1 */ t = __expm1l(two*fabsl(x)); z = one - two/(t+two); -- cgit v1.1