Subversion Repositories Kolibri OS

Rev

Rev 4872 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4349 Serge 1
/*
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