diff options
| author | Jeff Johnston <jjohnstn@redhat.com> | 2006-02-27 23:51:28 +0000 |
|---|---|---|
| committer | Jeff Johnston <jjohnstn@redhat.com> | 2006-02-27 23:51:28 +0000 |
| commit | e48682cff514c0480aff58a3e752edf7eb9ff228 (patch) | |
| tree | 0e9c096a2b54e60d287d32cec39017b36714871c /newlib/libm/common/s_isinf.c | |
| parent | 47a5b664e5095434abe0630008fce5dc9f323130 (diff) | |
| download | cygnal-e48682cff514c0480aff58a3e752edf7eb9ff228.tar.gz cygnal-e48682cff514c0480aff58a3e752edf7eb9ff228.tar.bz2 cygnal-e48682cff514c0480aff58a3e752edf7eb9ff228.zip | |
2006-02-27 Jeff Johnston <jjohnstn@redhat.com>
* Makefile.am (MATHOBJS_IN_LIBC): Add s_isinfd, sf_isinff,
s_isnand, and sf_isnanf object files.
* Makefile.in: Regenerated.
* libc/include/ieeefp.h: Undef isnan and isinf to avoid
conflict if <math.h> has previously been included.
* libc/include/math.h
* libm/common/Makefile.am: Add new s_isinfd, s_isnand, sf_isinff,
and sf_isnanf files. Also support s_isnan, sf_isnan, s_isinf, and
sf_isinf files which have been moved from math/mathfp directories.
* libm/common/Makefile.in: Regenerated.
* libm/common/s_isinfd.c: New file.
* libm/common/s_isnand.c: Ditto.
* libm/common/sf_isinff.c: Ditto.
* libm/common/sf_isnanf.c: Ditto.
* libm/common/s_isinf.c: Moved from libm/math directory.
* libm/common/s_isnan.c: Ditto.
* libm/common/sf_isinf.c: Ditto.
* libm/common/sf_isnan.c: Ditto.
* libm/math/Makefile.am: Remove isinf and isnan family functions
which have been moved into common directory.
* libm/mathfp/Makefile.am: Ditto.
* libm/math/Makefile.in: Regenerated.
* libm/mathfp/Makefile.in: Ditto.
* libm/math/s_isinf.c: Removed.
* libm/math/s_isnan.c: Ditto.
* libm/math/sf_isinf.c: Ditto.
* libm/math/sf_isnan.c: Ditto.
* libm/mathfp/s_isinf.c: Ditto.
* libm/mathfp/s_isnan.c: Ditto.
* libm/mathfp/sf_isinf.c: Ditto.
* libm/mathfp/sf_isnan.c: Ditto.
Diffstat (limited to 'newlib/libm/common/s_isinf.c')
| -rw-r--r-- | newlib/libm/common/s_isinf.c | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/newlib/libm/common/s_isinf.c b/newlib/libm/common/s_isinf.c new file mode 100644 index 000000000..db8e8f82b --- /dev/null +++ b/newlib/libm/common/s_isinf.c @@ -0,0 +1,29 @@ +/* + * isinf(x) returns 1 if x is infinity, else 0; + * no branching! + * + * isinf is a <math.h> macro in the C99 standard. It was previously + * implemented as a function by newlib and is declared as such in + * <ieeefp.h>. Newlib supplies it here as a function if the user + * chooses to use <ieeefp.h> or needs to link older code compiled with the + * previous <math.h> declaration. + */ + +#include "fdlibm.h" +#include <ieeefp.h> + +#ifndef _DOUBLE_IS_32BITS + +int +_DEFUN (isinf, (x), + double x) +{ + __int32_t hx,lx; + EXTRACT_WORDS(hx,lx,x); + hx &= 0x7fffffff; + hx |= (__uint32_t)(lx|(-lx))>>31; + hx = 0x7ff00000 - hx; + return 1 - (int)((__uint32_t)(hx|(-hx))>>31); +} + +#endif /* _DOUBLE_IS_32BITS */ |