Subversion Repositories Kolibri OS

Rev

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

  1. /*
  2.  * __isinfd(x) returns 1 if x is infinity, else 0;
  3.  * no branching!
  4.  * Added by Cygnus Support.
  5.  */
  6.  
  7. #include "fdlibm.h"
  8.  
  9. #ifndef _DOUBLE_IS_32BITS
  10.  
  11. int
  12. _DEFUN (__isinfd, (x),
  13.         double x)
  14. {
  15.         __int32_t hx,lx;
  16.         EXTRACT_WORDS(hx,lx,x);
  17.         hx &= 0x7fffffff;
  18.         hx |= (__uint32_t)(lx|(-lx))>>31;      
  19.         hx = 0x7ff00000 - hx;
  20.         return 1 - (int)((__uint32_t)(hx|(-hx))>>31);
  21. }
  22.  
  23. #endif /* _DOUBLE_IS_32BITS */
  24.