Subversion Repositories Kolibri OS

Rev

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

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