/* | |
* Written by J.T. Conklin <jtc@netbsd.org>. | |
* Change for long double by Jakub Jelinek <jj@ultra.linux.cz> | |
* Public domain. | |
*/ | |
#if defined(LIBM_SCCS) && !defined(lint) | |
static char rcsid[] = "$NetBSD: $"; | |
#endif | |
/* | |
* isinfq(x) returns 1 if x is inf, -1 if x is -inf, else 0; | |
* no branching! | |
*/ | |
#include "quadmath-imp.h" | |
int | |
isinfq (__float128 x) | |
{ | |
int64_t hx,lx; | |
GET_FLT128_WORDS64(hx,lx,x); | |
lx |= (hx & 0x7fffffffffffffffLL) ^ 0x7fff000000000000LL; | |
lx |= -lx; | |
return ~(lx >> 63) & (hx >> 62); | |
} |