diff options
author | Pixel <pixel@nobis-crew.org> | 2011-02-05 11:06:07 -0800 |
---|---|---|
committer | Pixel <pixel@nobis-crew.org> | 2011-02-05 11:06:07 -0800 |
commit | 8b1fadd6a89f12cbc81c5d621a75b91dd9eedec2 (patch) | |
tree | 0b130b02101391e206c07cb0a1c9031bb4d27f21 /libm/src/s_finite.c | |
parent | 4830af498e2d3a5440e65c63a3595b91f1cd4ac9 (diff) |
Adding Sun's fdlibm, and libnix's scanf, tweaked to become an xscanf. Adding a few more libc inlined also.
Diffstat (limited to 'libm/src/s_finite.c')
-rw-r--r-- | libm/src/s_finite.c | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/libm/src/s_finite.c b/libm/src/s_finite.c new file mode 100644 index 0000000..42e1728 --- /dev/null +++ b/libm/src/s_finite.c @@ -0,0 +1,31 @@ + +/* @(#)s_finite.c 1.3 95/01/18 */ +/* + * ==================================================== + * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. + * + * Developed at SunSoft, a Sun Microsystems, Inc. business. + * Permission to use, copy, modify, and distribute this + * software is freely granted, provided that this notice + * is preserved. + * ==================================================== + */ + +/* + * finite(x) returns 1 is x is finite, else 0; + * no branching! + */ + +#include "fdlibm.h" + +#ifdef __STDC__ + int finite(double x) +#else + int finite(x) + double x; +#endif +{ + int hx; + hx = __HI(x); + return (unsigned)((hx&0x7fffffff)-0x7ff00000)>>31; +} |