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"
20 __isinfl (long double x)
23 GET_LDOUBLE_WORDS64(hx,lx,x);
24 lx |= (hx & 0x7fffffffffffffffLL) ^ 0x7fff000000000000LL;
26 return ~(lx >> 63) & (hx >> 62);
29 weak_alias (__isinfl, isinfl)