diff options
| -rw-r--r-- | README.tru64 | 6 | ||||
| -rw-r--r-- | hints/dec_osf.sh | 19 |
2 files changed, 23 insertions, 2 deletions
diff --git a/README.tru64 b/README.tru64 index 4eb6a001f9..75f929376d 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 9275932659..71bc05f4c1 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 # |