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

Subversion Repositories openrisc

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

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


/*
 * nanf () returns a nan.
 * Added by Cygnus Support.
 */
 
#include "fdlibm.h"
 
        float nanf(const char *unused)
{
        float x;
 
        SET_FLOAT_WORD(x,0x7fc00000);
        return x;
}
 
#ifdef _DOUBLE_IS_32BITS
 
        double nan(const char *arg)
{
        return (double) nanf(arg);
}
 
#endif /* defined(_DOUBLE_IS_32BITS) */
 

Line No.	Rev	Author	Line
1	148	jeremybenn	`/*`
2			`* nanf () returns a nan.`
3			`* Added by Cygnus Support.`
4			`*/`
5
6			`#include "fdlibm.h"`
7
8			`float nanf(const char *unused)`
9			`{`
10			`float x;`
11
12			`SET_FLOAT_WORD(x,0x7fc00000);`
13			`return x;`
14			`}`
15
16			`#ifdef _DOUBLE_IS_32BITS`
17
18			`double nan(const char *arg)`
19			`{`
20			`return (double) nanf(arg);`
21			`}`
22
23			`#endif /* defined(_DOUBLE_IS_32BITS) */`
24

Browse

Tools

Subversion Repositories openrisc

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