3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
4 long double rintl(long double x
)
8 #elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
9 #if LDBL_MANT_DIG == 64
11 #elif LDBL_MANT_DIG == 113
14 long double rintl(long double x
)
16 union ldshape u
= {x
};
17 int e
= u
.i
.se
& 0x7fff;
21 if (e
>= 0x3fff+LDBL_MANT_DIG
-1)
24 y
= x
- TOINT
+ TOINT
;
26 y
= x
+ TOINT
- TOINT
;