From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 6 Jun 2001 20:56:04 +0000 (+0000)
Subject: Disable long doubles from pre-5.0 Tru64s.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bef5f0791f598e360cf5fd6b8d073db19bd2955c;p=p5sagit%2Fp5-mst-13.2.git

Disable long doubles from pre-5.0 Tru64s.

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

diff --git a/README.tru64 b/README.tru64
index 4eb6a00..75f9293 100644
--- a/README.tru64
+++ b/README.tru64
@@ -42,6 +42,12 @@ example the regular expressions are not thread-safe.  The bugs are
 very hard to fix are and therefore the 5.005 threads model is still
 classified as an experimental feature.
 
+=head2 Long Doubles on Tru64
+
+You cannot Configure Perl to use long doubles unless you have at least
+Tru64 V5.0, the long double support simply wasn't functional before
+that.
+
 =head2 64-bit Perl on Tru64
 
 In Tru64 Perl's integers are automatically 64-bit wide, there is
diff --git a/hints/dec_osf.sh b/hints/dec_osf.sh
index 9275932..71bc05f 100644
--- a/hints/dec_osf.sh
+++ b/hints/dec_osf.sh
@@ -281,12 +281,27 @@ cat > UU/uselongdouble.cbu <<'EOCBU'
 # This script UU/uselongdouble.cbu will get 'called-back' by Configure 
 # after it has prompted the user for whether to use long doubles.
 case "$uselongdouble" in
-$define|true|[yY]*) d_Gconvert='sprintf((b),"%.*Lg",(n),(x))' ;;
+$define|true|[yY]*)
+	case "`/usr/sbin/sizer -v`" in
+	*[1-4].0*)	cat >&4 <<EOF
+
+***
+*** Sorry, you cannot use long doubles in pre-V5.0 releases of Tru64.
+***
+
+Cannot continue, aborting.
+
+EOF
+		exit 1
+		;;
+	esac
+	d_Gconvert='sprintf((b),"%.*Lg",(n),(x))'
+	;;
 esac
 EOCBU
 
 case "`/usr/sbin/sizer -v`" in
-*4.0*) d_modfl=undef ;; # must wait till 5.0
+*[1-4].0*) d_modfl=undef ;; # must wait till 5.0
 esac
 
 #