Re: [ID 20010825.006] -DCRIPPLED_CC is broken
[p5sagit/p5-mst-13.2.git] / hints / dec_osf.sh
index c6c09e5..ae56198 100644 (file)
 # 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" in
-*gcc*) ;; # pass
+case "$isgcc" in
+gcc)   _gcc_version=`$cc --version 2>&1 | tr . ' '`
+       set $_gcc_version
+       if test "$1" -lt 2 -o \( "$1" -eq 2 -a \( "$2" -lt 95 -o \( "$2" -eq 95 -a "$3" -lt 2 \) \) \); then
+           cat >&4 <<EOF
+
+*** Your cc seems to be gcc and its version ($_gcc_version) seems to be
+*** less than 2.95.2.  This is not a good idea since old versions of gcc
+*** are known to produce buggy code when compiling Perl (and no doubt for
+*** other programs, too).
+***
+*** Therefore, I strongly suggest upgrading your gcc.  (Why don't you use
+*** the vendor cc is also a good question.  It comes with the operating
+*** system and produces good code.)
+
+Cannot continue, aborting.
+
+EOF
+           exit 1
+       fi
+       if test "$1" -eq 2 -a "$2" -eq 95 -a "$3" -le 2; then
+           cat >&4 <<EOF
+
+*** Note that as of gcc 2.95.2 (19991024) and Perl 5.6.0 (March 2000)
+*** if the said Perl is compiled with the said gcc the lib/sdbm test
+*** may dump core (meaning that the SDBM_File extension is unusable).
+*** As this core dump never happens with the vendor cc, this is most
+*** probably a lingering bug in gcc.  Therefore unless you have a better
+*** gcc installation you are still better off using the vendor cc.
+
+Since you explicitly chose gcc, I assume that you know what are doing.
+
+EOF
+       fi
+        ;;
 *)     # compile something small: taint.c is fine for this.
+       ccversion=`cc -V | awk '/(Compaq|DEC) C/ {print $3}' | grep '^V'`
        # the main point is the '-v' flag of 'cc'.
-               case "`cc -v -I. -c taint.c -o /tmp/taint$$.o 2>&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 +115,13 @@ case "$cc" in
                        ;;
        esac
        # cleanup
-       rm -f /tmp/taint$$.o
+       rm -f taint$$.o
        ;;
 esac
 
 # be nauseatingly ANSI
-case "$cc" in
-*gcc*) ccflags="$ccflags -ansi"
+case "$isgcc" in
+gcc)   ccflags="$ccflags -ansi"
        ;;
 *)     ccflags="$ccflags -std"
        ;;
@@ -93,13 +133,10 @@ esac
 # we want optimisation
 
 case "$optimize" in
-'')    case "$cc" 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 +145,15 @@ case "$optimize" in
        ;;
 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,10 +195,19 @@ case "`uname -r`" in
 *)            if $test "X$optimize" = "X$undef"; then
                       lddlflags="$lddlflags -msym"
               else
-                      lddlflags="$lddlflags $optimize -msym"
+                 case "`/usr/sbin/sizer -v`" in
+                 *4.0D*)
+                     # QAR 56761: -O4 + .so may produce broken code,
+                     # fixed in 4.0E or better.
+                     ;;
+                 *)    
+                      lddlflags="$lddlflags $optimize"
+                     ;;
+                 esac
+                 # -msym: If using a sufficiently recent /sbin/loader,
+                 # keep the module symbols with the modules.
+                  lddlflags="$lddlflags -msym -std"
               fi
-               # -msym: If using a sufficiently recent /sbin/loader,
-               # keep the module symbols with the modules.
                ;;
 esac
 # Yes, the above loses if gcc does not use the system linker.
@@ -191,30 +246,74 @@ 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 and flags changed with V4.0.
-        case "`uname -r`" in
-        *[123].*)
-           libswanted="$libswanted pthreads mach exc c_r"
-           ccflags="-threads $ccflags"
+       # Threads interfaces changed with V4.0.
+       case "$isgcc" in
+       gcc)    ccflags="-D_REENTRANT $ccflags" ;;
+       *)  case "`uname -r`" in
+           *[123].*)   ccflags="-threads $ccflags" ;;
+           *)          ccflags="-pthread $ccflags" ;;
+           esac
            ;;
-        *)
-           libswanted="$libswanted pthread exc"
-           ccflags="-pthread $ccflags"
-           ;;
-        esac
-       ccflags="-D_REENTRANT $ccflags"
-        usemymalloc='n'
+       esac    
+       case "`uname -r`" in
+       *[123].*) libswanted="$libswanted pthreads mach exc c_r" ;;
+       *)        libswanted="$libswanted pthread exc" ;;
+       esac
+
+       case "$usemymalloc" in
+       '')
+               usemymalloc='n'
+               ;;
+       esac
        ;;
 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 <<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
+*[1-4].0*) d_modfl=undef ;; # must wait till 5.0
+esac
+
 #
 # Unset temporary variables no more needed.
 #
@@ -350,5 +449,3 @@ unset _DEC_cc_style
 #      * Set -Olimit to 3200 because perl_yylex.c got too big
 #        for the optimizer.
 #
-
-