This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Increase $XS::APItest::VERSION from 0.31 to 0.32
[perl5.git] / hints / dec_osf.sh
index f08c318..9856961 100644 (file)
 
 cc=${cc:-cc}
 
+# Intentional leading tabs.
+       myosvers="`/usr/sbin/sizer -v 2>/dev/null || uname -r`"
+       unamer="`uname -r`"
+
+# Fancy compiler suites use optimising linker as well as compiler.
+# <spider@Orb.Nashua.NH.US>
+case "$unamer" in
+*[123].*)      # old loader
+               lddlflags="$lddlflags -O3"
+               ;;
+*)            if $test "X$optimize" = "X$undef"; then
+                      lddlflags="$lddlflags -msym"
+              else
+                 case "$myosvers" 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 $_lddlflags_strict_ansi"
+              fi
+               ;;
+esac
+# Yes, the above loses if gcc does not use the system linker.
+# If that happens, let me know about it. <jhi@iki.fi>
+
+# Because there is no other handy way to recognize 3.X.
+case "$unamer" in
+*3.*)  ccflags="$ccflags -DDEC_OSF1_3_X" ;;
+esac
+
 case "`$cc -v 2>&1 | grep cc`" in
 *gcc*) isgcc=gcc ;;
 esac
@@ -71,7 +107,7 @@ esac
 case "$isgcc" in
 gcc)   if [ "X$gccversion" = "X" ]; then
            # Done too late in Configure if hinted
-           gccversion=`$cc --version | sed 's/.*(GCC) *//'`
+           gccversion=`$cc -dumpversion`
        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
@@ -84,7 +120,7 @@ gcc) if [ "X$gccversion" = "X" ]; then
 ***
 *** 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.)
+*** system, produces good code, and is very ANSI C fastidious.)
 
 Cannot continue, aborting.
 
@@ -105,11 +141,16 @@ Since you explicitly chose gcc, I assume that you know what are doing.
 
 EOF
        fi
+       # -ansi is fine for gcc in Tru64 (-ansi is not universally so).
+       _ccflags_strict_ansi="-ansi"
         ;;
-*)     # compile something small: taint.c is fine for this.
+*)     # compile something.
+       cat >try.c <<EOF
+int main() { return 0; }
+EOF
        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 taint$$.o 2>&1`" in
+       # the main point is the '-v' flag of 'cc'.
+       case "`cc -v -c try.c 2>&1`" in
        */gemc_cc*)     # we have the new DEC GEM CC
                        _DEC_cc_style=new
                        ;;
@@ -117,17 +158,58 @@ EOF
                        _DEC_cc_style=old
                        ;;
        esac
-       # cleanup
-       rm -f taint$$.o
+       # We need to figure out whether -c99 is a valid flag to use.
+       # If it is, we can use it for being nauseatingly C99 ANSI --
+       # but even then the lddlflags needs to stay -std1.
+       # If it is not, we must use -std1 for both flags.
+       #
+       case "`cc -c99 try.c 2>&1`" in
+       *"-c99: Unknown flag"*)
+               _ccflags_strict_ansi="-std1"
+               ;;
+       *)      # However, use the -c99 only if compiling for
+               # -DPERL_MEM_LOG, where the C99 feature __func__
+               # is useful to have.  Otherwise use the good old
+               # -std1 so that we stay C89 strict, which the goal
+               # of the Perl C code base (no //, no code between
+               # declarations, etc).  Moreover, the Tru64 cc is
+               # not fully C99, and most probably never will be.
+               #
+               # The -DPERL_MEM_LOG can be either in ccflags
+               # (if using an old config.sh) or in the command line
+               # (which has been stowed away in UU/cmdline.opt).
+               #
+               case "$ccflags `cat UU/cmdline.opt`" in
+               *-DPERL_MEM_LOG*)       _ccflags_strict_ansi="-c99"  ;;
+               *)                      _ccflags_strict_ansi="-std1" ;;
+               esac
+               ;;
+       esac
+       _lddlflags_strict_ansi="-std1"
+       # -no_ansi_alias because Perl code is not that strict
+       # (also gcc uses by default -fno-strict-aliasing).
+       case "$unamer" in
+       *[1234].*) ;;
+       *5.*)   _ccflags_strict_ansi="$_ccflags_strict_ansi -no_ansi_alias" ;;
+       esac
+       # Cleanup.
+       rm -f try.c try.o
        ;;
 esac
 
-# be nauseatingly ANSI
-case "$isgcc" in
-gcc)   ccflags="$ccflags -ansi"
-       ;;
-*)     ccflags="$ccflags -std"
-       ;;
+# Be nauseatingly ANSI
+ccflags="$ccflags $_ccflags_strict_ansi"
+
+# g++ needs a lot of definitions to see the same set of
+# prototypes from <unistd.h> et alia as cxx/cc see.
+# Note that we cannot define _XOPEN_SOURCE_EXTENDED or
+# its moral equivalent, _XOPEN_SOURCE=500 (which would
+# define a lot of the required prototypes for us), because
+# the gcc-processed version of <sys/wait.h> contains fatally
+# conflicting prototypes for wait3().  The _SOCKADDR_LEN is
+# needed to get struct sockaddr and struct sockaddr_in to align.
+case "$cc" in
+*g++*) ccflags="$ccflags -D_XOPEN_SOURCE -D_OSF_SOURCE -D_AES_SOURCE -D_BSD -D_POSIX_C_SOURCE=199309L -D_POSIX_PII_SOCKET -D_SOCKADDR_LEN" ;;
 esac
 
 # for gcc the Configure knows about the -fpic:
@@ -141,17 +223,28 @@ case "$optimize" in
        *)      case "$_DEC_cc_style" in
                new)    optimize='-O4'                  ;;
                old)    optimize='-O2 -Olimit 3200'     ;;
-               esac
+               esac
                ccflags="$ccflags -D_INTRINSICS"
                ;;
        esac
        ;;
 esac
 
+case "$isgcc" in
+gcc)   ;;
+*)     case "$optimize" in
+       *-O*)   # With both -O and -g, the -g must be -g3.
+               optimize="`echo $optimize | sed 's/-g[1-4]*/-g3/'`"
+               ;;
+       esac
+       ;;
+esac
+
 ## Optimization limits
 case "$isgcc" in
 gcc) #  gcc 3.2.1 wants a lot of memory for -O3'ing toke.c
 cat >try.c <<EOF
+#include <stdio.h>
 #include <sys/resource.h>
 
 int main ()
@@ -184,9 +277,20 @@ toke_cflags='optimize=-O2'
 ;;
 esac
 
+# The patch 23787
+# http://perl5.git.perl.org/perl.git/commit/73cb726371990cd489597c4fee405a9815abf4da
+# broke things for gcc (at least gcc 3.3) so that many of the pack()
+# checksum tests for formats L, j, J, especially when combined
+# with the < and > specifiers, started to fail if compiled with plain -O3.
+case "$isgcc" in
+gcc)
+pp_pack_cflags='optimize="-O3 -fno-cse-skip-blocks"'
+;;
+esac
+
 # we want dynamic fp rounding mode, and we want ieee exception semantics
 case "$isgcc" in
-gcc)   ;;
+gcc)   ccflags="$ccflags -mfp-rounding-mode=d -mieee" ;;
 *)     case "$_DEC_cc_style" in
        new)    ccflags="$ccflags -fprm d -ieee"        ;;
        esac
@@ -225,40 +329,12 @@ libswanted="`echo $libswanted | sed -e 's/ ndbm / /'`"
 # the basic lddlflags used always
 lddlflags='-shared -expect_unresolved "*"'
 
-# Fancy compiler suites use optimising linker as well as compiler.
-# <spider@Orb.Nashua.NH.US>
-case "`uname -r`" in
-*[123].*)      # old loader
-               lddlflags="$lddlflags -O3"
-               ;;
-*)            if $test "X$optimize" = "X$undef"; then
-                      lddlflags="$lddlflags -msym"
-              else
-                 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
-               ;;
-esac
-# Yes, the above loses if gcc does not use the system linker.
-# If that happens, let me know about it. <jhi@iki.fi>
-
-
 # If debugging or (old systems and doing shared)
 # then do not strip the lib, otherwise, strip.
 # As noted above the -DDEBUGGING is added automagically by Configure if -g.
 case "$optimize" in
        *-g*) ;; # left intentionally blank
-*)     case "`uname -r`" in
+*)     case "$unamer" in
        *[123].*)
                case "$useshrplib" in
                false|undef|'') lddlflags="$lddlflags -s"       ;;
@@ -266,8 +342,8 @@ case "$optimize" in
                ;;
         *) lddlflags="$lddlflags -s"
                ;;
-       esac
-       ;;
+       esac
+       ;;
 esac
 
 #
@@ -286,7 +362,7 @@ esac
 # emulate_eaccess().
 
 # Fixed in V5.0A.
-case "`/usr/sbin/sizer -v`" in
+case "$myosvers" in
 *5.0[A-Z]*|*5.[1-9]*|*[6-9].[0-9]*)
        : ok
        ;;
@@ -299,7 +375,7 @@ 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 
+# This script UU/usethreads.cbu will get 'called-back' by Configure
 # after it has prompted the user for whether to use threads.
 case "$usethreads" in
 $define|true|[yY]*)
@@ -307,10 +383,10 @@ $define|true|[yY]*)
        # cannot be used to compile a threaded Perl.
        cat > pthread.c <<EOF
 #include <pthread.h>
-extern int foo;        
+extern int foo;
 EOF
        $cc -c pthread.c 2> pthread.err
-       if grep -q "unrecognized compiler" pthread.err; then
+       if egrep -q "unrecognized compiler|syntax error" pthread.err; then
            cat >&4 <<EOF
 ***
 *** I'm sorry but your C compiler ($cc) cannot be used to
@@ -329,13 +405,13 @@ EOF
        gcc)
            ccflags="-D_REENTRANT $ccflags"
            ;;
-       *)  case "`uname -r`" in
+       *)  case "$unamer" in
            *[123].*)   ccflags="-threads $ccflags" ;;
            *)          ccflags="-pthread $ccflags" ;;
            esac
            ;;
-       esac    
-       case "`uname -r`" in
+       esac
+       case "$unamer" in
        *[123].*) libswanted="$libswanted pthreads mach exc c_r" ;;
        *)        libswanted="$libswanted pthread exc" ;;
        esac
@@ -355,12 +431,17 @@ EOF
 esac
 EOCBU
 
+# malloc wrap works
+case "$usemallocwrap" in
+'') usemallocwrap='define' ;;
+esac
+
 cat > UU/uselongdouble.cbu <<'EOCBU'
-# This script UU/uselongdouble.cbu will get 'called-back' by Configure 
+# 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
+       case "$myosvers" in
        *[1-4].0*)      cat >&4 <<EOF
 
 ***
@@ -373,7 +454,7 @@ EOF
                exit 1
                ;;
        *)
-               # Test whether libc's been fixed yet.
+               # Test whether libc's been fixed yet for long doubles.
                cat >try.c <<\TRY
 #include <stdio.h>
 int main(int argc, char **argv)
@@ -390,7 +471,7 @@ 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
+               if cc -o try $_ccflags_strict_ansi try.c && ./try
                then
                        : ok
                else
@@ -412,7 +493,7 @@ UGLY
 esac
 EOCBU
 
-case "`/usr/sbin/sizer -v`" in
+case "$myosvers" in
 *[1-4].0*) d_modfl=undef ;; # must wait till 5.0
 esac
 
@@ -426,7 +507,7 @@ do
            '') LD_LIBRARY_PATH=$p                  ;;
            *)  LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$p ;;
            esac
-       fi      
+       fi
 done
 case "$LD_LIBRARY_PATH" in
 "$old_LD_LIBRARY_PATH") ;;
@@ -437,12 +518,33 @@ case "$LD_LIBRARY_PATH" in
 * ) export LD_LIBRARY_PATH ;;
 esac
 
+# Enforce strict data.
+case "$isgcc" in
+gcc)   ;;
+*)     # -trapuv poisons uninitialized stack with
+       #  0xfff58005fff58005 which is as a pointer a segmentation fault and
+       #  as a floating point a signaling NaN.  As integers/longs that causes
+       #  no traps but at least it is not zero.
+       # -readonly_strings moves string constants into read-only section
+       #  which hopefully means that modifying them leads into segmentation
+       #  faults.
+       #
+       for i in -trapuv -readonly_strings
+       do
+               case "$ccflags" in
+               *$i*) ;;
+               *) ccflags="$ccflags $i" ;;
+               esac
+       done
+       ;;
+esac
+
 #
 # Unset temporary variables no more needed.
 #
 
 unset _DEC_cc_style
-    
+
 #
 # History:
 #
@@ -482,14 +584,14 @@ unset _DEC_cc_style
 #      * Restructuring Spider's suggestions.
 #
 #      * Older Digital UNIXes cannot handle -Olimit ... for $lddlflags.
-#      
+#
 #      * ld -s cannot be used in older Digital UNIXes when doing shared.
 #
 #
 #       21-Feb-1997 Spider Boardman <spider@Orb.Nashua.NH.US>
 #
 #      * -hidden removed.
-#      
+#
 #      * -DSTANDARD_C removed.
 #
 #      * -D_INTRINSICS added. (that -fast does not seem to buy much confirmed)
@@ -555,7 +657,7 @@ unset _DEC_cc_style
 #
 #      * now 'dl' is always removed from libswanted. Not only if
 #        optimize is an empty string.
-#       
+#
 #
 #      17-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
 #
@@ -565,10 +667,11 @@ unset _DEC_cc_style
 #        Because the dlopen, dlclose,... calls are in the
 #        C library it not necessary at all to check for the
 #        dl library.  Therefore dl is removed from libswanted.
-#      
+#
 #
 #      1-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
-#      
+#
 #      * Set -Olimit to 3200 because perl_yylex.c got too big
 #        for the optimizer.
 #
+