1 /*
2  * ====================================================
3  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
4  *
5  * Developed at SunPro, a Sun Microsystems, Inc. business.
6  * Permission to use, copy, modify, and distribute this
7  * software is freely granted, provided that this notice
8  * is preserved.
9  * ====================================================
10  */
11 
12 /*
13  * __isnanf(x) returns 1 is x is nan, else 0;
14  */
15 
16 #define _ADD_D_TO_DOUBLE_FUNCS
17 
18 #include "fdlibm.h"
19 
20 int
__isnanf(float x)21 __isnanf (float x)
22 {
23 	__int32_t ix;
24 	GET_FLOAT_WORD(ix,x);
25 	ix &= 0x7fffffff;
26 	return FLT_UWORD_IS_NAN(ix);
27 }
28 
29 _MATH_ALIAS_i_f(__isnan)
30