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 #include "quadmath-imp.h" 8 9 int isinfq(__float128 x)10isinfq (__float128 x) 11 { 12 int64_t hx,lx; 13 GET_FLT128_WORDS64(hx,lx,x); 14 lx |= (hx & 0x7fffffffffffffffLL) ^ 0x7fff000000000000LL; 15 lx |= -lx; 16 return ~(lx >> 63) & (hx >> 62); 17 } 18