Subversion Repositories Kolibri OS

Rev

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

  1. /*
  2.  * __isinff(x) returns 1 if x is +-infinity, else 0;
  3.  * Added by Cygnus Support.
  4.  */
  5.  
  6. #include "fdlibm.h"
  7.  
  8. int
  9. _DEFUN (__isinff, (x),
  10.         float x)
  11. {
  12.         __int32_t ix;
  13.         GET_FLOAT_WORD(ix,x);
  14.         ix &= 0x7fffffff;
  15.         return FLT_UWORD_IS_INFINITE(ix);
  16. }
  17.  
  18. #ifdef _DOUBLE_IS_32BITS
  19.  
  20. int
  21. _DEFUN (__isinfd, (x),
  22.         double x)
  23. {
  24.         return __isinff((float) x);
  25. }
  26.  
  27. #endif /* defined(_DOUBLE_IS_32BITS) */
  28.