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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib-1.10.0/] [newlib/] [libm/] [math/] [sf_isinf.c] - Blame information for rev 1773

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


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

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

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib-1.10.0/] [newlib/] [libm/] [math/] [sf_isinf.c] - Blame information for rev 1773