blob: 22657ccebfd0ea2df53b23625deb6125ea744405 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#include "libm.h" // for ldshape, ldshape::(anonymous), __tanl, __rem_pio2l
#include <float.h> // for LDBL_MANT_DIG, LDBL_MAX_EXP
#include <math.h> // for tanl, M_PI_4
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double tanl(long double x)
{
return tan(x);
}
#elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
long double tanl(long double x)
{
union ldshape u = { x };
long double y[2];
unsigned n;
u.i.se &= 0x7fff;
if (u.i.se == 0x7fff)
return NAN;
if (u.f < M_PI_4) {
if (u.i.se < 0x3fff - LDBL_MANT_DIG / 2) {
/* raise inexact if x!=0 and underflow if subnormal */
FORCE_EVAL(u.i.se == 0 ? x * 0x1p-120f : x + 0x1p120f);
return x;
}
return __tanl(x, 0, 0);
}
n = __rem_pio2l(x, y);
return __tanl(y[0], y[1], (int)(n & 1));
}
#endif
|
