3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
4 long double roundl(long double x
)
8 #elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
10 static const long double toint
= 1/LDBL_EPSILON
;
12 long double roundl(long double x
)
14 union ldshape u
= {x
};
15 int e
= u
.i
.se
& 0x7fff;
18 if (e
>= 0x3fff+LDBL_MANT_DIG
-1)
23 FORCE_EVAL(x
+ toint
);
26 y
= x
+ toint
- toint
- x
;