(__ieee754_sqrt): Remove unused variables b and n.
[kopensolaris-gnu/glibc.git] / sysdeps / ieee754 / ldbl-96 / s_isinfl.c
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Change for long double by Ulrich Drepper <drepper@cygnus.com>.
4  * Public domain.
5  */
6
7 #if defined(LIBM_SCCS) && !defined(lint)
8 static char rcsid[] = "$NetBSD: $";
9 #endif
10
11 /*
12  * isinfl(x) returns 1 if x is inf, -1 if x is -inf, else 0;
13  * no branching!
14  */
15
16 #include "math.h"
17 #include "math_private.h"
18
19 int
20 __isinfl (long double x)
21 {
22         int32_t se,hx,lx;
23         GET_LDOUBLE_WORDS(se,hx,lx,x);
24         lx |= (hx & 0x7fffffff) | ((se & 0x7fff) ^ 0x7fff);
25         lx |= -lx;
26         se &= 0x8000;
27         return ~(lx >> 31) & (1 - (se >> 14));
28 }
29 weak_alias (__isinfl, isinfl)