1 /* 2 * Written by J.T. Conklin <jtc@netbsd.org>. 3 * Change for long double by Jakub Jelinek <jj@ultra.linux.cz> 4 * Public domain. 5 */ 6 7 #if defined(LIBM_SCCS) && !defined(lint) 8 static char rcsid[] = "NetBSD: "; 9 #endif 10 11 /* 12 * isinfq(x) returns 1 if x is inf, -1 if x is -inf, else 0; 13 * no branching! 14 */ 15 16 #include "quadmath-imp.h" 17 18 int isinfq(__float128 x)19isinfq (__float128 x) 20 { 21 int64_t hx,lx; 22 GET_FLT128_WORDS64(hx,lx,x); 23 lx |= (hx & 0x7fffffffffffffffLL) ^ 0x7fff000000000000LL; 24 lx |= -lx; 25 return ~(lx >> 63) & (hx >> 62); 26 } 27