/* * Written by J.T. Conklin <jtc@netbsd.org>. * Changed to return -1 for -Inf by Ulrich Drepper <drepper@cygnus.com>. * Public domain. */ /* * isinf(x) returns 1 is x is inf, -1 if x is -inf, else 0; * no branching! */ #include "math.h" #include "math_private.h" int __isinf (double x) { int32_t hx,lx; EXTRACT_WORDS(hx,lx,x); lx |= (hx & 0x7fffffff) ^ 0x7ff00000; lx |= -lx; return ~(lx >> 31) & (hx >> 30); } libm_hidden_def(__isinf) weak_alias (__isinf, isinf) libm_hidden_weak(isinf)