From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 1 May 2000 22:50:11 +0000 (+0000)
Subject: Use HUGE_VALL if applicable.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4d46a988fb57e00fb9da4a6d7b635516b5f56306;p=p5sagit%2Fp5-mst-13.2.git

Use HUGE_VALL if applicable.

p4raw-id: //depot/cfgperl@6037
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 3a523d1..9f1e855 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -1517,6 +1517,15 @@ constant(char *name, int arg)
 	break;
     case 'H':
 	if (strEQ(name, "HUGE_VAL"))
+#ifdef USE_LONG_DOUBLE 
+	  /* HUGE_VALL is admittedly non-POSIX but if are using long doubles
+	   * we might as well use long doubles. --jhi */
+#   ifdef HUGE_VALL
+	    return HUGE_VALL;
+#   else
+	    goto not_there;
+#   endif
+#endif
 #ifdef HUGE_VAL
 	    return HUGE_VAL;
 #else
diff --git a/util.c b/util.c
index 059d9a4..41ded13 100644
--- a/util.c
+++ b/util.c
@@ -3577,7 +3577,7 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
 }
 #endif /* USE_THREADS */
 
-#ifdef HUGE_VAL
+#if defined(HUGE_VAL) || (defined(USE_LONG_DOUBLE) && defined(HUGE_VALL))
 /*
  * This hack is to force load of "huge" support from libm.a
  * So it is in perl for (say) POSIX to use. 
@@ -3586,7 +3586,10 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
 NV 
 Perl_huge(void)
 {
- return HUGE_VAL;
+#   if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
+    return HUGE_VALL;
+#   endif
+    return HUGE_VAL;
 }
 #endif