URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [newlib-1.18.0/] [newlib/] [libm/] [common/] [s_isinfd.c] - Diff between revs 816 and 829

Rev 816	Rev 829
`/*`	`/*`
`* __isinfd(x) returns 1 if x is infinity, else 0;`	`* __isinfd(x) returns 1 if x is infinity, else 0;`
`* no branching!`	`* no branching!`
`* Added by Cygnus Support.`	`* Added by Cygnus Support.`
`*/`	`*/`

`#include "fdlibm.h"`	`#include "fdlibm.h"`

`#ifndef _DOUBLE_IS_32BITS`	`#ifndef _DOUBLE_IS_32BITS`

`int`	`int`
`_DEFUN (__isinfd, (x),`	`_DEFUN (__isinfd, (x),`
`double x)`	`double x)`
`{`	`{`
`__int32_t hx,lx;`	`__int32_t hx,lx;`
`EXTRACT_WORDS(hx,lx,x);`	`EXTRACT_WORDS(hx,lx,x);`
`hx &= 0x7fffffff;`	`hx &= 0x7fffffff;`
`hx \|= (__uint32_t)(lx\|(-lx))>>31;`	`hx \|= (__uint32_t)(lx\|(-lx))>>31;`
`hx = 0x7ff00000 - hx;`	`hx = 0x7ff00000 - hx;`
`return 1 - (int)((__uint32_t)(hx\|(-hx))>>31);`	`return 1 - (int)((__uint32_t)(hx\|(-hx))>>31);`
`}`	`}`

`#endif /* _DOUBLE_IS_32BITS */`	`#endif /* _DOUBLE_IS_32BITS */`