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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libm/] [common/] [sf_isinff.c] - Blame information for rev 207

Details | Compare with Previous | View Log


/*
 * __isinff(x) returns 1 if x is +-infinity, else 0;
 * Added by Cygnus Support.
 */
 
#include "fdlibm.h"
 
int
_DEFUN (__isinff, (x),
        float x)
{
        __int32_t ix;
        GET_FLOAT_WORD(ix,x);
        ix &= 0x7fffffff;
        return FLT_UWORD_IS_INFINITE(ix);
}
 
#ifdef _DOUBLE_IS_32BITS
 
int
_DEFUN (__isinfd, (x),
        double x)
{
        return __isinff((float) x);
}
 
#endif /* defined(_DOUBLE_IS_32BITS) */

Line No.	Rev	Author	Line
1	207	jeremybenn	`/*`
2			`* __isinff(x) returns 1 if x is +-infinity, else 0;`
3			`* Added by Cygnus Support.`
4			`*/`
5
6			`#include "fdlibm.h"`
7
8			`int`
9			`_DEFUN (__isinff, (x),`
10			`float x)`
11			`{`
12			`__int32_t ix;`
13			`GET_FLOAT_WORD(ix,x);`
14			`ix &= 0x7fffffff;`
15			`return FLT_UWORD_IS_INFINITE(ix);`
16			`}`
17
18			`#ifdef _DOUBLE_IS_32BITS`
19
20			`int`
21			`_DEFUN (__isinfd, (x),`
22			`double x)`
23			`{`
24			`return __isinff((float) x);`
25			`}`
26
27			`#endif /* defined(_DOUBLE_IS_32BITS) */`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libm/] [common/] [sf_isinff.c] - Blame information for rev 207