3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
4 long double floorl(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 floorl(long double x
)
16 union ldshape u
= {x
};
17 int e
= u
.i
.se
& 0x7fff;
20 if (e
>= 0x3fff+LDBL_MANT_DIG
-1 || x
== 0)
22 /* y = int(x) - x, where int(x) is an integer neighbor of x */
24 y
= x
- TOINT
+ TOINT
- x
;
26 y
= x
+ TOINT
- TOINT
- x
;
27 /* special case because of non-nearest rounding modes */
30 return u
.i
.se
>> 15 ? -1 : 0;