15 lines
297 B
C
15 lines
297 B
C
|
#include "libc/math/libm.h"
|
||
|
|
|
||
|
|
#if (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
|
||
|
|
int __signbitl(long double x)
|
||
|
|
{
|
||
|
|
union ldshape u = {x};
|
||
|
|
return u.i.se >> 15;
|
||
|
|
}
|
||
|
|
#elif LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
|
||
|
|
int __signbitl(long double x)
|
||
|
|
{
|
||
|
|
return __signbit(x);
|
||
|
|
}
|
||
|
|
#endif
|