diff options
| author | Andreas Jaeger <aj@suse.de> | 2001-11-26 08:05:53 +0000 |
|---|---|---|
| committer | Andreas Jaeger <aj@suse.de> | 2001-11-26 08:05:53 +0000 |
| commit | 60a06b7ce15c3fd911c59693ee24fda12404f3a7 (patch) | |
| tree | e1a7c69715a316fc852702877aadc135e445bd47 /sysdeps/ieee754/ldbl-128/e_coshl.c | |
| parent | 9992bc08aa26c1cf00f6dad46c5be8e56265aa21 (diff) | |
| download | glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.tar glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.tar.gz glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.tar.bz2 glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.zip | |
Update.
2001-11-26 Stephen L Moshier <moshier@mediaone.net>
* sysdeps/ieee754/ldbl-128/e_log10l.c (L102B): Fix typo in
initialization.
* sysdeps/ieee754/ldbl-128/e_coshl.c (__ieee754_coshl): Remove
unused variables. Fix threshold for returning 1.0.
* sysdeps/ieee754/ldbl-128/e_lgammal_r.c (neval, deval): Constify
argument.
* sysdeps/ieee754/ldbl-128/s_erfl.c (neval, deval): Likewise, and
remove unused variables.
* sysdeps/ieee754/ldbl-128/e_j0l.c (neval, deval): Likewise.
* sysdeps/ieee754/ldbl-128/e_j1l.c (neval, deval): Likewise, and
include local math header files.
Diffstat (limited to 'sysdeps/ieee754/ldbl-128/e_coshl.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-128/e_coshl.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/sysdeps/ieee754/ldbl-128/e_coshl.c b/sysdeps/ieee754/ldbl-128/e_coshl.c index 7ffc4d5159..90c5f4fd6a 100644 --- a/sysdeps/ieee754/ldbl-128/e_coshl.c +++ b/sysdeps/ieee754/ldbl-128/e_coshl.c @@ -55,7 +55,6 @@ __ieee754_coshl (x) { long double t, w; int32_t ex; - u_int32_t mx, lx; ieee854_long_double_shape_type u; u.value = x; @@ -73,7 +72,7 @@ __ieee754_coshl (x) { t = __expm1l (u.value); w = one + t; - if (ex < 0x3fc60000) /* |x| < 2^-57 */ + if (ex < 0x3fb80000) /* |x| < 2^-116 */ return w; /* cosh(tiny) = 1 */ return one + (t * t) / (w + w); |