Print this page
11210 libm should be cstyle(1ONBLD) clean
*** 20,29 ****
--- 20,30 ----
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
+
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
*** 62,81 ****
#include "libm.h"
#include "longdouble.h"
long double
! tanl(long double x) {
long double y[2], z = 0.0L;
int n, ix;
! ix = *(int *) &x; /* High word of x */
ix &= 0x7fffffff;
! if (ix <= 0x3ffe9220) /* |x| ~< pi/4 */
return (__k_tanl(x, z, 0));
! else if (ix >= 0x7fff0000) /* trig(Inf or NaN) is NaN */
return (x - x);
! else { /* argument reduction needed */
n = __rem_pio2l(x, y);
return (__k_tanl(y[0], y[1], (n & 1)));
}
}
--- 63,84 ----
#include "libm.h"
#include "longdouble.h"
long double
! tanl(long double x)
! {
long double y[2], z = 0.0L;
int n, ix;
! ix = *(int *)&x; /* High word of x */
ix &= 0x7fffffff;
!
! if (ix <= 0x3ffe9220) { /* |x| ~< pi/4 */
return (__k_tanl(x, z, 0));
! } else if (ix >= 0x7fff0000) { /* trig(Inf or NaN) is NaN */
return (x - x);
! } else { /* argument reduction needed */
n = __rem_pio2l(x, y);
return (__k_tanl(y[0], y[1], (n & 1)));
}
}