Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  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.  
  25.