From 7d85189b98ae004c095f4c1b58804f021f67880a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 23 May 2008 01:04:38 +0000
Subject: Port htadd to win32

---
 src/lib/cfuns-c.c | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'src/lib/cfuns-c.c')

diff --git a/src/lib/cfuns-c.c b/src/lib/cfuns-c.c
index 2620be00..fe5380e8 100644
--- a/src/lib/cfuns-c.c
+++ b/src/lib/cfuns-c.c
@@ -540,3 +540,33 @@ oa_get_tmpdir(void)
    return "/tmp";
 #endif   
 }
+
+
+
+OPENAXIOM_EXPORT double 
+plus_infinity(void )
+{
+#ifdef INFINITY   
+   return INFINITY;
+#else
+   /* This must be a curious platform.  */
+   volatile double zero = 0.0;
+   return 1.0 / zero;           /* If it traps, well, it traps.  */
+#endif   
+}
+
+OPENAXIOM_EXPORT double 
+minus_infinity(void)
+{
+   return -plus_infinity();
+}
+
+OPENAXIOM_EXPORT double 
+NANQ(void)
+{
+#ifdef NAN
+   return NAN;
+#else
+   return sqrt(-1.0);            /* Juts pick one.  */
+#endif
+}
-- 
cgit v1.2.3