Print this page
*** 109,127 ****
t12 = 1.588300018848323824227640064883334101288e-0005L,
t13 = 6.916271223396808311166202285131722231723e-0006L;
/* INDENT ON */
long double
__k_tanl(long double x, long double y, int k) {
! long double a, t, z, w, s, c;
int *pt = (int *) &t, *px = (int *) &x;
int i, j, hx, ix;
t = 1.0;
! #if defined(_BIG_ENDIAN)
! hx = px[0];
! #else
XTOI(px, hx);
#endif
ix = hx & 0x7fffffff;
if (ix < 0x3ffc4000) {
if (ix < 0x3fc60000) {
if ((i = (int) x) == 0) /* generate inexact */
--- 109,127 ----
t12 = 1.588300018848323824227640064883334101288e-0005L,
t13 = 6.916271223396808311166202285131722231723e-0006L;
/* INDENT ON */
long double
__k_tanl(long double x, long double y, int k) {
! long double a, t, z, w = 0.0, s, c;
int *pt = (int *) &t, *px = (int *) &x;
int i, j, hx, ix;
t = 1.0;
! #if defined(__i386) || defined(__amd64)
XTOI(px, hx);
+ #else
+ hx = px[0];
#endif
ix = hx & 0x7fffffff;
if (ix < 0x3ffc4000) {
if (ix < 0x3fc60000) {
if ((i = (int) x) == 0) /* generate inexact */
*** 140,153 ****
}
return (k == 0 ? w : -one / w);
}
j = (ix + 0x400) & 0x7ffff800;
i = (j - 0x3ffc4000) >> 11;
! #if defined(_BIG_ENDIAN)
! pt[0] = j;
! #else
ITOX(j, pt);
#endif
if (hx > 0)
x = y - (t - x);
else
x = (-y) - (t + x);
--- 140,153 ----
}
return (k == 0 ? w : -one / w);
}
j = (ix + 0x400) & 0x7ffff800;
i = (j - 0x3ffc4000) >> 11;
! #if defined(__i386) || defined(__amd64)
ITOX(j, pt);
+ #else
+ pt[0] = j;
#endif
if (hx > 0)
x = y - (t - x);
else
x = (-y) - (t + x);