X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hints%2Fdec_osf.sh;h=8cf54b19dfd95729425d036ba91a240086a8a124;hb=53df3d8cb98cbfbef669eddaaa174212d27bd68c;hp=65c6cb34411ce620e4cbadde2bde30333eaa092a;hpb=75d72f2c8b64d5e89ae0080adfff19385a568f22;p=p5sagit%2Fp5-mst-13.2.git diff --git a/hints/dec_osf.sh b/hints/dec_osf.sh index 65c6cb3..8cf54b1 100644 --- a/hints/dec_osf.sh +++ b/hints/dec_osf.sh @@ -58,15 +58,58 @@ # and it is called GEM. Many of the options we are going to use depend # on the compiler style. +cc=${cc:-cc} + +case "`$cc -v 2>&1 | grep cc`" in +*gcc*) isgcc=gcc ;; +esac + # do NOT, I repeat, *NOT* take away the leading tabs # Configure Black Magic (TM) # reset _DEC_cc_style= -case "$cc -v 2>&1 | grep cc" in -*gcc*) ;; # pass +case "$isgcc" in +gcc) if [ "X$gccversion" = "X" ]; then + # Done too late in Configure if hinted + gccversion=`$cc --version | sed 's/.*(GCC) *//'` + fi + set $gccversion + if test "$1" -lt 2 -o \( "$1" -eq 2 -a \( "$2" -lt 95 -o \( "$2" -eq 95 -a "$3" -lt 3 \) \) \); then + cat >&4 <&4 <&1`" in + case "`cc -v -I. -c taint.c -o taint$$.o 2>&1`" in */gemc_cc*) # we have the new DEC GEM CC _DEC_cc_style=new ;; @@ -75,13 +118,13 @@ case "$cc -v 2>&1 | grep cc" in ;; esac # cleanup - rm -f /tmp/taint$$.o + rm -f taint$$.o ;; esac # be nauseatingly ANSI -case "$cc -v 2>&1 | grep gcc" in -*gcc*) ccflags="$ccflags -ansi" +case "$isgcc" in +gcc) ccflags="$ccflags -ansi" ;; *) ccflags="$ccflags -std" ;; @@ -93,13 +136,10 @@ esac # we want optimisation case "$optimize" in -'') case "$cc -v 2>&1 | grep gcc" in - *gcc*) - optimize='-O3' ;; +'') case "$isgcc" in + gcc) optimize='-O3' ;; *) case "$_DEC_cc_style" in - new) optimize='-O4' - ccflags="$ccflags -fprm d -ieee" - ;; + new) optimize='-O4' ;; old) optimize='-O2 -Olimit 3200' ;; esac ccflags="$ccflags -D_INTRINSICS" @@ -108,6 +148,51 @@ case "$optimize" in ;; esac +## Optimization limits +case "$isgcc" in +gcc) # gcc 3.2.1 wants a lot of memory for -O3'ing toke.c +cat >try.c < + +int main () +{ + struct rlimit rl; + int i = getrlimit (RLIMIT_DATA, &rl); + printf ("%d\n", rl.rlim_cur / (1024 * 1024)); + } /* main */ +EOF +$cc -o try $ccflags $ldflags try.c + maxdsiz=`./try` +rm -f try try.c core +if [ $maxdsiz -lt 256 ]; then + # less than 256 MB is probably not enough to optimize toke.c with gcc -O3 + cat <&4 + +Your process datasize is limited to $maxdsiz MB, which is (sadly) not +always enough to fully optimize some source code files of Perl, +at least 256 MB seems to be necessary as of Perl 5.8.0. I'll try to +use a lower optimization level for those parts. You could either try +using your shell's ulimit/limit/limits command to raise your datasize +(assuming the system-wide hard resource limits allow you to go higher), +or if you can't go higher and if you are a sysadmin, and you *do* want +the full optimization, you can tune the 'max_per_proc_data_size' +kernel parameter: see man sysconfigtab, and man sys_attrs_proc. + +EOM +toke_cflags='optimize=-O2' + fi +;; +esac + +# we want dynamic fp rounding mode, and we want ieee exception semantics +case "$isgcc" in +gcc) ;; +*) case "$_DEC_cc_style" in + new) ccflags="$ccflags -fprm d -ieee" ;; + esac + ;; +esac + # Make glibpth agree with the compiler suite. Note that /shlib # is not here. That's on purpose. Even though that's where libc # really lives from V4.0 on, the linker (and /sbin/loader) won't @@ -149,7 +234,7 @@ case "`uname -r`" in *) if $test "X$optimize" = "X$undef"; then lddlflags="$lddlflags -msym" else - case "`sizer -v`" in + case "`/usr/sbin/sizer -v`" in *4.0D*) # QAR 56761: -O4 + .so may produce broken code, # fixed in 4.0E or better. @@ -160,7 +245,7 @@ case "`uname -r`" in esac # -msym: If using a sufficiently recent /sbin/loader, # keep the module symbols with the modules. - lddlflags="$lddlflags -msym" + lddlflags="$lddlflags -msym -std" fi ;; esac @@ -200,16 +285,27 @@ esac # please adjust this appropriately. See also pp_sys.c just before the # emulate_eaccess(). +# Fixed in V5.0A. +case "`/usr/sbin/sizer -v`" in +*5.0[A-Z]*|*5.[1-9]*|*[6-9].[0-9]*) + : ok + ;; +*) +# V5.0 or previous pp_sys_cflags='ccflags="$ccflags -DNO_EFF_ONLY_OK"' + ;; +esac +# The off_t is already 8 bytes, so we do have largefileness. + +cat > UU/usethreads.cbu <<'EOCBU' # This script UU/usethreads.cbu will get 'called-back' by Configure # after it has prompted the user for whether to use threads. -cat > UU/usethreads.cbu <<'EOCBU' case "$usethreads" in $define|true|[yY]*) # Threads interfaces changed with V4.0. - case "$cc -v 2>&1 | grep gcc" in - *gcc*)ccflags="-D_REENTRANT $ccflags" ;; + case "$isgcc" in + gcc) ccflags="-D_REENTRANT $ccflags" ;; *) case "`uname -r`" in *[123].*) ccflags="-threads $ccflags" ;; *) ccflags="-pthread $ccflags" ;; @@ -221,11 +317,99 @@ $define|true|[yY]*) *) libswanted="$libswanted pthread exc" ;; esac - usemymalloc='n' + case "$usemymalloc" in + '') + usemymalloc='n' + ;; + esac + # These symbols are renamed in so + # that the Configure hasproto doesn't see them. + d_asctime_r_proto="$define" + d_ctime_r_proto="$define" + d_gmtime_r_proto="$define" + d_localtime_r_proto="$define" + ;; +esac +EOCBU + +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]*) + case "`/usr/sbin/sizer -v`" in + *[1-4].0*) cat >&4 <try.c <<\TRY +#include +int main(int argc, char **argv) +{ + unsigned long uvmax = ~0UL; + long double ld = uvmax + 0.0L; + char buf1[30], buf2[30]; + + (void) sprintf(buf1, "%lu", uvmax); + (void) sprintf(buf2, "%.0Lf", ld); + return strcmp(buf1, buf2) != 0; +} +TRY + # Don't bother trying to work with Configure's idea of + # cc and the various flags. This might not work as-is + # with gcc -- but we're testing libc, not the compiler. + if cc -o try -std try.c && ./try + then + : ok + else + cat <<\UGLY >&4 +! +Warning! Your libc has not yet been patched so that its "%Lf" format for +printing long doubles shows all the significant digits. You will get errors +in the t/op/numconvert test because of this. (The data is still good +internally, and the "%e" format of printf() or sprintf() in perl will still +produce valid results.) See README.tru64 for additional details. + +Continuing anyway. +! +UGLY + fi + $rm -f try try.c + esac ;; esac EOCBU +case "`/usr/sbin/sizer -v`" in +*[1-4].0*) d_modfl=undef ;; # must wait till 5.0 +esac + +# Keep that leading tab. + old_LD_LIBRARY_PATH=$LD_LIBRARY_PATH +for p in $loclibpth +do + if test -d $p; then + echo "Appending $p to LD_LIBRARY_PATH." >& 4 + case "$LD_LIBRARY_PATH" in + '') LD_LIBRARY_PATH=$p ;; + *) LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$p ;; + esac + fi +done +case "$LD_LIBRARY_PATH" in +"$old_LD_LIBRARY_PATH") ;; +*) echo "LD_LIBRARY_PATH is now $LD_LIBRARY_PATH." >& 4 ;; +esac + # # Unset temporary variables no more needed. #