URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [s_isinfd.c] - Rev 816
Compare with Previous | Blame | View Log
/* * __isinfd(x) returns 1 if x is infinity, else 0; * no branching! * Added by Cygnus Support. */ #include "fdlibm.h" #ifndef _DOUBLE_IS_32BITS int _DEFUN (__isinfd, (x), double x) { __int32_t hx,lx; EXTRACT_WORDS(hx,lx,x); hx &= 0x7fffffff; hx |= (__uint32_t)(lx|(-lx))>>31; hx = 0x7ff00000 - hx; return 1 - (int)((__uint32_t)(hx|(-hx))>>31); } #endif /* _DOUBLE_IS_32BITS */