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] - Blame information for rev 148

Go to most recent revision | Details | Compare with Previous | 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 */

Line No.	Rev	Author	Line
1	148	jeremybenn	`/*`
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 */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [s_isinfd.c] - Blame information for rev 148