newlib/libm/common/sf_isnanf.c

   1 /*
   2  * ====================================================
   3  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
   4  *
   5  * Developed at SunPro, a Sun Microsystems, Inc. business.
   6  * Permission to use, copy, modify, and distribute this
   7  * software is freely granted, provided that this notice
   8  * is preserved.
   9  * ====================================================
  10  */
  11
  12 /*
  13  * __isnanf(x) returns 1 is x is nan, else 0;
  14  */
  15
  16 #include "fdlibm.h"
  17
  18 int
  19 __isnanf (float x)
  20 {
  21         __int32_t ix;
  22         GET_FLOAT_WORD(ix,x);
  23         ix &= 0x7fffffff;
  24         return FLT_UWORD_IS_NAN(ix);
  25 }
  26
  27 #ifdef _DOUBLE_IS_32BITS
  28
  29 int
  30 __isnand (double x)
  31 {
  32         return __isnanf((float) x);
  33 }
  34
  35 #endif /* defined(_DOUBLE_IS_32BITS) */