# HG changeset patch
# User jwe
# Date 802643001 0
# Node ID 8c8a83cf184a3831acfa7283de5080f71cd6d68a
# Parent  e357dced2de7bb4d7d9134e95387b6517c37c557
[project @ 1995-06-08 20:23:21 by jwe]

diff -r e357dced2de7 -r 8c8a83cf184a src/mappers.cc
--- a/src/mappers.cc	Wed Jun 07 03:34:02 1995 +0000
+++ b/src/mappers.cc	Thu Jun 08 20:23:21 1995 +0000
@@ -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