2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Change for long double by Ulrich Drepper <drepper@cygnus.com>.
4 * Intel i387 specific version.
8 #if defined(LIBM_SCCS) && !defined(lint)
9 static char rcsid[] = "$NetBSD: $";
13 * isinfl(x) returns 1 if x is inf, -1 if x is -inf, else 0;
18 #include <math_private.h>
20 int __isinfl(long double x)
23 GET_LDOUBLE_WORDS(se,hx,lx,x);
24 /* This additional ^ 0x80000000 is necessary because in Intel's
25 internal representation of the implicit one is explicit. */
26 lx |= (hx ^ 0x80000000) | ((se & 0x7fff) ^ 0x7fff);
29 return ~(lx >> 31) & (1 - (se >> 14));
32 weak_alias (__isinfl, isinfl)