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 * finite(x) returns 1 is x is finite, else 0;
18 #include <math_private.h>
25 EXTRACT_WORDS64(lx
,x
);
26 return (int)((uint64_t)((lx
&INT64_C(0x7fffffffffffffff))-INT64_C(0x7ff0000000000000))>>63);
29 weak_alias (__finite
, finite
)
31 strong_alias (__finite
, __finitel
)
32 weak_alias (__finite
, finitel
)