diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2009-05-22 08:35:15 -0700 |
|---|---|---|
| committer | Ulrich Drepper <drepper@redhat.com> | 2009-05-22 08:35:15 -0700 |
| commit | 38ae768d88c47dd06030104eb3376212b0d8d164 (patch) | |
| tree | 0646aa5dd41d96365cd73a5a658c76642c9cfd21 /sysdeps/ieee754/ldbl-128ibm/s_tanl.c | |
| parent | 0323b051be1bee42592e6813064031aacfd6063d (diff) | |
| download | glibc-38ae768d88c47dd06030104eb3376212b0d8d164.zip glibc-38ae768d88c47dd06030104eb3376212b0d8d164.tar.gz glibc-38ae768d88c47dd06030104eb3376212b0d8d164.tar.bz2 | |
Fix errno for IBM long double.
After the last addition to the math test suite PPC routines haven't
been adjusted so far.
Diffstat (limited to 'sysdeps/ieee754/ldbl-128ibm/s_tanl.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-128ibm/s_tanl.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/sysdeps/ieee754/ldbl-128ibm/s_tanl.c b/sysdeps/ieee754/ldbl-128ibm/s_tanl.c index ea5a7f0..913f38f 100644 --- a/sysdeps/ieee754/ldbl-128ibm/s_tanl.c +++ b/sysdeps/ieee754/ldbl-128ibm/s_tanl.c @@ -44,6 +44,7 @@ * TRIG(x) returns trig(x) nearly rounded */ +#include <errno.h> #include "math.h" #include "math_private.h" #include <math_ldbl_opt.h> @@ -66,8 +67,11 @@ if(ix <= 0x3fe921fb54442d10LL) return __kernel_tanl(x,z,1); /* tanl(Inf or NaN) is NaN */ - else if (ix>=0x7ff0000000000000LL) return x-x; /* NaN */ - + else if (ix>=0x7ff0000000000000LL) { + if (ix == 0x7ff0000000000000LL) + __set_errno (EDOM); + return x-x; /* NaN */ + } /* argument reduction needed */ else { n = __ieee754_rem_pio2l(x,y); |