2 * Intel i387 specific version.
6 #if defined(LIBM_SCCS) && !defined(lint)
7 static char rcsid
[] = "$NetBSD: $";
11 * isinfl(x) returns 1 if x is inf, -1 if x is -inf, else 0;
16 #include <math_private.h>
18 int __isinfl(long double x
)
21 GET_LDOUBLE_WORDS(se
,hx
,lx
,x
);
22 /* This additional ^ 0x80000000 is necessary because in Intel's
23 internal representation of the implicit one is explicit. */
24 lx
|= (hx
^ 0x80000000) | ((se
& 0x7fff) ^ 0x7fff);
27 return ~(lx
>> 31) & (1 - (se
>> 14));
30 weak_alias (__isinfl
, isinfl
)