for Solaris: use long type for function signature of quiet_nan()

PDLPorters · Aug 10, 2015 · f18f6ea · f18f6ea
1 parent e9636f3
commit f18f6ea
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Basic/Math/mconf.h b/Basic/Math/mconf.h
@@ -86,13 +86,15 @@ Copyright 1984, 1987, 1989, 1995 by Stephen L. Moshier
 #include <ieeefp.h>
 #include <float.h>
 #define NANARG 1L
+#define NANARG_SIGNATURE long n
 #endif
 #if defined __alpha && ! defined __linux
 #include <float.h>
 #include <nan.h>
 #endif
 #ifndef NANARG
 #define NANARG
+#define NANARG_SIGNATURE
 #endif
 
 /* Redefine nan so PDL doesn't die when we see one.
@@ -154,7 +156,7 @@ int mtherr();
 extern int merror;
 
 #ifdef MY_QUIET_NAN
-extern double quiet_nan();
+extern double quiet_nan(NANARG_SIGNATURE);
 #endif
 #ifdef MY_INFINITY
 extern double infinity();

diff --git a/Basic/Math/quiet_nan.c b/Basic/Math/quiet_nan.c
@@ -1,6 +1,6 @@
 #include "mconf.h"
 /* Patch NaN function where no system NaN is available */
-double quiet_nan(NANARG)
+double quiet_nan(NANARG_SIGNATURE)
 {
 #ifdef NaN
   double a;