Mercurial > octave
changeset 11235:9900d375e585
eliminate additional special cases for SCO systems
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 10 Nov 2010 22:09:25 -0500 |
| parents | 2718e1fdf82f |
| children | 6ccf1130f23c |
| files | liboctave/ChangeLog liboctave/lo-cieee.c |
| diffstat | 2 files changed, 4 insertions(+), 38 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog Wed Nov 10 21:52:51 2010 -0500 +++ b/liboctave/ChangeLog Wed Nov 10 22:09:25 2010 -0500 @@ -1,3 +1,7 @@ +2010-11-10 John W. Eaton <jwe@octave.org> + + * lo-cieee.c Eliminate special cases for SCO. + 2010-11-10 John W. Eaton <jwe@octave.org> * lo-ieee.cc (octave_ieee_init): Don't initialize octave_Inf,
--- a/liboctave/lo-cieee.c Wed Nov 10 21:52:51 2010 -0500 +++ b/liboctave/lo-cieee.c Wed Nov 10 22:09:25 2010 -0500 @@ -34,16 +34,6 @@ #include <ieeefp.h> #endif -#if defined (HAVE_NAN_H) -#if defined (SCO) -#define _IEEE 1 -#endif -#include <nan.h> -#if defined (SCO) -#undef _IEEE -#endif -#endif - #include "lo-ieee.h" #include "lo-math.h" @@ -82,34 +72,6 @@ int lo_ieee_hw; int lo_ieee_lw; -#if defined (SCO) - -int -__isnan (double x) -{ - return (IsNANorINF (x) && NaN (x) && ! IsINF (x)) ? 1 : 0; -} - -int -__isinf (double x) -{ - return (IsNANorINF (x) && IsINF (x)) ? 1 : 0; -} - -int -__isnanf (float x) -{ - return (IsNANorINF (x) && NaN (x) && ! IsINF (x)) ? 1 : 0; -} - -int -__isinff (float x) -{ - return (IsNANorINF (x) && IsINF (x)) ? 1 : 0; -} - -#endif - int __lo_ieee_isnan (double x) {