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
 * __isinfd(x) returns 1 if x is infinity, else 0;
3
 * no branching!
4
 * Added by Cygnus Support.
5
 */
6
 
7
#include "fdlibm.h"
8
 
9
#ifndef _DOUBLE_IS_32BITS
10
 
11
int
12
_DEFUN (__isinfd, (x),
13
	double x)
14
{
15
	__int32_t hx,lx;
16
	EXTRACT_WORDS(hx,lx,x);
17
	hx &= 0x7fffffff;
18
	hx |= (__uint32_t)(lx|(-lx))>>31;
19
	hx = 0x7ff00000 - hx;
20
	return 1 - (int)((__uint32_t)(hx|(-hx))>>31);
21
}
22
 
23
#endif /* _DOUBLE_IS_32BITS */