sysdeps/ieee754/ldbl-96/s_isinf_nsl.c

   1 /*
   2  * Written by Ulrich Drepper <drepper@gmail.com>.
   3  */
   4
   5 /*
   6  * __isinf_nsl(x) returns != 0 if x is ±inf, else 0;
   7  */
   8
   9 #include <math.h>
  10 #include <math_private.h>
  11
  12 int
  13 __isinf_nsl (long double x)
  14 {
  15         int32_t se,hx,lx;
  16         GET_LDOUBLE_WORDS(se,hx,lx,x);
  17         return !(((se & 0x7fff) ^ 0x7fff) | lx | (hx & 0x7fffffff));
  18 }