From f18f6ea0a334d7f81bcce0d1d23860d31e3c3741 Mon Sep 17 00:00:00 2001
From: Zakariyya Mughal <zaki.mughal@gmail.com>
Date: Mon, 10 Aug 2015 12:58:12 -0500
Subject: [PATCH] for Solaris: use long type for function signature of
 quiet_nan()

---
 Basic/Math/mconf.h     | 4 +++-
 Basic/Math/quiet_nan.c | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Basic/Math/mconf.h b/Basic/Math/mconf.h
index c34606c29..5db65c85f 100644
--- a/Basic/Math/mconf.h
+++ b/Basic/Math/mconf.h
@@ -86,6 +86,7 @@ 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>
@@ -93,6 +94,7 @@ Copyright 1984, 1987, 1989, 1995 by Stephen L. Moshier
 #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
index 7d56d94ab..4c3051f57 100644
--- 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;