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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


/*
 * isinff(x) returns 1 if x is +-infinity, else 0;
 *
 * isinff is an extension declared in <ieeefp.h> and
 * <math.h>.
 */
 
#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
 
#undef isinf
 
int
_DEFUN (isinf, (x),
        double x)
{
        return isinff((float) x);
}
 
#endif /* defined(_DOUBLE_IS_32BITS) */

Line No.	Rev	Author	Line
1	148	jeremybenn	`/*`
2			`* isinff(x) returns 1 if x is +-infinity, else 0;`
3			`*`
4			`* isinff is an extension declared in <ieeefp.h> and`
5			`* <math.h>.`
6			`*/`
7
8			`#include "fdlibm.h"`
9
10			`int`
11			`_DEFUN (isinff, (x),`
12			`float x)`
13			`{`
14			`__int32_t ix;`
15			`GET_FLOAT_WORD(ix,x);`
16			`ix &= 0x7fffffff;`
17			`return FLT_UWORD_IS_INFINITE(ix);`
18			`}`
19
20			`#ifdef _DOUBLE_IS_32BITS`
21
22			`#undef isinf`
23
24			`int`
25			`_DEFUN (isinf, (x),`
26			`double x)`
27			`{`
28			`return isinff((float) x);`
29			`}`
30
31			`#endif /* defined(_DOUBLE_IS_32BITS) */`

Browse

Tools

Subversion Repositories openrisc

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