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