toolchain/gcc/newlib/libm/common/sf_nan.c

   1 /*
   2  * nanf () returns a nan.
   3  * Added by Cygnus Support.
   4  */
   5
   6 #include "fdlibm.h"
   7
   8         float nanf(const char *unused)
   9 {
  10         float x;
  11
  12         SET_FLOAT_WORD(x,0x7fc00000);
  13         return x;
  14 }
  15
  16 #ifdef _DOUBLE_IS_32BITS
  17
  18         double nan(const char *arg)
  19 {
  20         return (double) nanf(arg);
  21 }
  22
  23 #endif /* defined(_DOUBLE_IS_32BITS) */
  24