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,85 ****
#include "libm.h"
#include "longdouble.h"
void
! sincosl(long double x, long double *s, long double *c) {
long double y[2], z = 0.0L;
int n, ix;
! ix = *(int *) &x; /* High word of x */
/* |x| ~< pi/4 */
ix &= 0x7fffffff;
! if (ix <= 0x3ffe9220)
*s = __k_sincosl(x, z, c);
! else if (ix >= 0x7fff0000)
*s = *c = x - x; /* trig(Inf or NaN) is NaN */
! else { /* argument reduction needed */
n = __rem_pio2l(x, y);
switch (n & 3) {
case 0:
*s = __k_sincosl(y[0], y[1], c);
break;
case 1:
--- 63,89 ----
#include "libm.h"
#include "longdouble.h"
void
! sincosl(long double x, long double *s, long double *c)
! {
long double y[2], z = 0.0L;
int n, ix;
! ix = *(int *)&x; /* High word of x */
/* |x| ~< pi/4 */
ix &= 0x7fffffff;
!
! if (ix <= 0x3ffe9220) {
*s = __k_sincosl(x, z, c);
! } else if (ix >= 0x7fff0000) {
*s = *c = x - x; /* trig(Inf or NaN) is NaN */
! } else { /* argument reduction needed */
n = __rem_pio2l(x, y);
+
switch (n & 3) {
case 0:
*s = __k_sincosl(y[0], y[1], c);
break;
case 1: