2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Change for long double by Ulrich Drepper <drepper@cygnus.com>.
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_WORDS(se
,hx
,lx
,x
);
24 lx
|= (hx
& 0x7fffffff) | ((se
& 0x7fff) ^ 0x7fff);
27 return ~(lx
>> 31) & (1 - (se
>> 14));
29 weak_alias (__isinfl
, isinfl
)