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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libm/] [math/] [s_isinf.c] - Diff between revs 40 and 1765

Rev 40	Rev 1765
`/*`	`/*`
`* isinf(x) returns 1 if x is infinity, else 0;`	`* isinf(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`

`#ifdef __STDC__`	`#ifdef __STDC__`
`int isinf(double x)`	`int isinf(double x)`
`#else`	`#else`
`int isinf(x)`	`int isinf(x)`
`double x;`	`double x;`
`#endif`	`#endif`
`{`	`{`
`__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 */`