Mercurial > hg > octave-lyh

changeset 11235:9900d375e585

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
+++ b/liboctave/ChangeLog
@@ -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
+++ b/liboctave/lo-cieee.c
@@ -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)
 {