diff options
Diffstat (limited to 'ruby_1_8_5/missing/isinf.c')
-rw-r--r-- | ruby_1_8_5/missing/isinf.c | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/ruby_1_8_5/missing/isinf.c b/ruby_1_8_5/missing/isinf.c deleted file mode 100644 index e44ef6c3c1..0000000000 --- a/ruby_1_8_5/missing/isinf.c +++ /dev/null @@ -1,65 +0,0 @@ -/* public domain rewrite of isinf(3) */ - -#ifdef __osf__ - -#define _IEEE 1 -#include <nan.h> - -int -isinf(n) - double n; -{ - if (IsNANorINF(n) && IsINF(n)) { - return 1; - } - else { - return 0; - } -} - -#else - -#include "config.h" - -#if defined(HAVE_FINITE) && defined(HAVE_ISNAN) - -#include <math.h> -#ifdef HAVE_IEEEFP_H -#include <ieeefp.h> -#endif - -int -isinf(n) - double n; -{ - return (!finite(n) && !isnan(n)); -} - -#else - -#ifdef HAVE_STRING_H -# include <string.h> -#else -# include <strings.h> -#endif - -static double zero() { return 0.0; } -static double one() { return 1.0; } -static double inf() { return one() / zero(); } - -int -isinf(n) - double n; -{ - static double pinf = 0.0; - static double ninf = 0.0; - - if (pinf == 0.0) { - pinf = inf(); - ninf = -pinf; - } - return memcmp(&n, &pinf, sizeof n) == 0 - || memcmp(&n, &ninf, sizeof n) == 0; -} -#endif -#endif |