Mercurial > hg > octave-nkf

changeset 1308:8c8a83cf184a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-06-08 20:23:21 by jwe]
author jwe
date Thu, 08 Jun 1995 20:23:21 +0000
parents e357dced2de7
children c0187e1c02f9
files src/mappers.cc
diffstat 1 files changed, 14 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/mappers.cc
+++ b/src/mappers.cc
@@ -33,6 +33,7 @@
 #include "f77-uscore.h"
 #include "variables.h"
 #include "mappers.h"
+#include "sysdep.h"
 #include "error.h"
 #include "utils.h"
 #include "defun.h"
@@ -68,7 +69,11 @@
   if (x < 0.0)
     return M_PI;
   else
+#if defined (HAVE_ISNAN)
+    return xisnan (x) ? octave_NaN : 0.0;
+#else
     return 0.0;
+#endif
 }
 
 double
@@ -88,7 +93,11 @@
 double
 imag (double x)
 {
+#if defined (HAVE_ISNAN)
+  return xisnan (x) ? octave_NaN : 0.0;
+#else
   return 0.0;
+#endif
 }
 
 double
@@ -111,7 +120,12 @@
     tmp = -1.0;
   else if (x > 0.0)
     tmp = 1.0;
+
+#if defined (HAVE_ISNAN)
+  return xisnan (x) ? octave_NaN : tmp;
+#else
   return tmp;
+#endif
 }
 
 double