Mercurial > hg > CbC > CbC_gcc
view libquadmath/math/isinfq.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
/* * 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); }