From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 19 Apr 2003 16:38:12 +0000 (+0000)
Subject: If long doubles fail, we really cannot sensibly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe63a0b4487686a4d99ab713bc73995cff5ffdc0;p=p5sagit%2Fp5-mst-13.2.git

If long doubles fail, we really cannot sensibly
drop back to doubles anymore, therefore abort.
Pointed out by Slaven Rezic. (I tried to fix this
via metaconfig but ended up with a vicious cyclic
dependency.)

p4raw-id: //depot/perl@19272
---

diff --git a/Configure b/Configure
index 5099566..cb33533 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Thu Apr 17 20:57:08 EET DST 2003 [metaconfig 3.0 PL70]
+# Generated on Sat Apr 19 20:43:09 EET DST 2003 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -5488,14 +5488,10 @@ case "$doublesize" in
 	echo "Checking to see how big your double precision numbers are..." >&4
 	$cat >try.c <<EOCP
 #include <stdio.h>
-#$i_stdlib I_STDLIB
-#ifdef I_STDLIB
-#include <stdlib.h>
-#endif
 int main()
 {
     printf("%d\n", (int)sizeof(double));
-    exit(0);
+    return(0);
 }
 EOCP
 	set try
@@ -13808,11 +13804,12 @@ if $test "$uselongdouble" = "$define"; then
 *** You requested the use of long doubles but you do not seem to have
 *** the mathematic functions for long doubles.
 *** ($message)
-*** I'm disabling the use of long doubles.
+*** Please rerun Configure without -Duselongdouble and/or -Dusemorebits.
+*** Cannot continue, aborting.
 
 EOM
 
-	uselongdouble=$undef
+	exit 1
     fi
 fi