2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Change for long double by Jakub Jelinek <jj@ultra.linux.cz>
7 #if defined(LIBM_SCCS) && !defined(lint)
8 static char rcsid
[] = "$NetBSD: $";
12 * isinfl(x) returns 1 if x is inf, -1 if x is -inf, else 0;
17 #include "math_private.h"
18 #include <math_ldbl_opt.h>
21 ___isinfl (long double x
)
24 GET_LDOUBLE_WORDS64(hx
,lx
,x
);
25 lx
= (lx
& 0x7fffffffffffffffLL
);
26 lx
|= (hx
& 0x7fffffffffffffffLL
) ^ 0x7ff0000000000000LL
;
28 return ~(lx
>> 63) & (hx
>> 62);
30 hidden_ver (___isinfl
, __isinfl
)
32 weak_alias (___isinfl
, ____isinfl
)
33 long_double_symbol (libc
, ___isinfl
, isinfl
);
34 long_double_symbol (libc
, ____isinfl
, __isinfl
);