This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Disable long doubles from pre-5.0 Tru64s.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 6 Jun 2001 20:56:04 +0000 (20:56 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 6 Jun 2001 20:56:04 +0000 (20:56 +0000)
p4raw-id: //depot/perl@10458

README.tru64
hints/dec_osf.sh

index 4eb6a00..75f9293 100644 (file)
@@ -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
index 9275932..71bc05f 100644 (file)
@@ -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
 
 #