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)10 isinfq (__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