2 * ====================================================
3 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
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
9 * ====================================================
13 * isnan(x) returns 1 is x is nan, else 0;
18 #include "math_private.h"
23 EXTRACT_WORDS(hx,lx,x);
25 hx |= (u_int32_t)(lx|(-lx))>>31;
27 return (int)(((u_int32_t)hx)>>31);
29 libm_hidden_def(__isnan)