3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
4 long double sinl(long double x
)
8 #elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
9 long double sinl(long double x
)
11 union ldshape u
= {x
};
13 long double y
[2], hi
, lo
;
19 if (u
.i
.se
< 0x3fff - LDBL_MANT_DIG
/2) {
20 /* raise inexact if x!=0 and underflow if subnormal */
21 FORCE_EVAL(u
.i
.se
== 0 ? x
*0x1p
-120f
: x
+0x1p
120f
);
24 return __sinl(x
, 0.0, 0);
26 n
= __rem_pio2l(x
, y
);
31 return __sinl(hi
, lo
, 1);
33 return __cosl(hi
, lo
);
35 return -__sinl(hi
, lo
, 1);
38 return -__cosl(hi
, lo
);