Fix to Solaris build problem re quiet_nan (use long in signature)

The quiet_nan() function on Solaris has the signature: double quiet_nan(long n); and this adds a define to set the `long` parameter in the function prototype and function definition. It appears that the logic is already in the code, just that the NANARG determined in mconf.h was not used to declare the local quiet_nan version.
PDLPorters · Aug 11, 2015 · 6a320a2 · 6a320a2
1 parent e9e7bfa
commit 6a320a2
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(void)
+double quiet_nan(NANARG_SIGNATURE)
 {
 #ifdef NaN
   double a;