This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Tru64: use -c99 for ccflags if available
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 28 Jul 2005 10:01:51 +0000 (13:01 +0300)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 28 Jul 2005 06:48:14 +0000 (06:48 +0000)
Message-ID: <42E882DF.6020100@gmail.com>
Message-ID: <42E86DE9.6090709@gmail.com>

p4raw-id: //depot/perl@25231

handy.h
hints/dec_osf.sh

diff --git a/handy.h b/handy.h
index f7ffc28..7b5eb16 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -95,7 +95,7 @@ Null SV pointer.
 #  define FUNCTION__ __func__
 #else
 #  if (defined(_MSC_VER) && _MSC_VER < 1300) || /* Pre-MSVC 7.0 has neither __func__ nor __FUNCTION and no good workarounds, either. */ \
-      (defined(__DECC_VER)) /* Tru64 or VMS, and strict C89 being used. */
+      (defined(__DECC_VER)) /* Tru64 or VMS, and strict C89 being used, but not modern enough cc (in Tur64, -c99 not known, only -std1). */
 #    define FUNCTION__ ""
 #  else
 #    define FUNCTION__ __FUNCTION__ /* Common extension. */
index 310486b..fbdf624 100644 (file)
@@ -84,7 +84,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 +105,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
+               case "`cc -v -c try.c 2>&1`" in
        */gemc_cc*)     # we have the new DEC GEM CC
                        _DEC_cc_style=new
                        ;;
@@ -117,18 +122,35 @@ 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).
+               # 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"
+       # Cleanup.
+       rm -f try.c try.o
        ;;
 esac
 
-# be nauseatingly ANSI
-case "$isgcc" in
-gcc)   ccflags="$ccflags -ansi"
-       ;;
-*)     ccflags="$ccflags -std1"
-       ;;
-esac
+# Be nauseatingly ANSI
+ccflags="$ccflags $_ccflags_strict_ansi"
 
 # for gcc the Configure knows about the -fpic:
 # position-independent code for dynamic loading
@@ -259,7 +281,7 @@ case "`uname -r`" in
                  esac
                  # -msym: If using a sufficiently recent /sbin/loader,
                  # keep the module symbols with the modules.
-                  lddlflags="$lddlflags -msym -std1"
+                  lddlflags="$lddlflags -msym $_lddlflags_strict_ansi"
               fi
                ;;
 esac
@@ -396,7 +418,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)
@@ -413,7 +435,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 -std1 try.c && ./try
+               if cc -o try $_ccflags_strict_ansi try.c && ./try
                then
                        : ok
                else
@@ -595,3 +617,4 @@ unset _DEC_cc_style
 #      * Set -Olimit to 3200 because perl_yylex.c got too big
 #        for the optimizer.
 #
+