X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1c3d792e8fc9c2a36edfbd6c01156ef7e635040f..ab3bbdeb874c2a82798e2c9cc4b61acf5866b410:/cflags.SH diff --git a/cflags.SH b/cflags.SH old mode 100644 new mode 100755 index 52a122e..bc22c2c --- a/cflags.SH +++ b/cflags.SH @@ -1,80 +1,240 @@ -case $CONFIG in +case $PERL_CONFIG_SH in '') - if test ! -f config.sh; then - ln ../config.sh . || \ - ln ../../config.sh . || \ - ln ../../../config.sh . || \ - (echo "Can't find config.sh."; exit 1) - fi 2>/dev/null - . ./config.sh - ;; + if test -f config.sh; then TOP=.; + elif test -f ../config.sh; then TOP=..; + elif test -f ../../config.sh; then TOP=../..; + elif test -f ../../../config.sh; then TOP=../../..; + elif test -f ../../../../config.sh; then TOP=../../../..; + else + echo "Can't find config.sh."; exit 1 + fi + . $TOP/config.sh + ;; esac +: This forces SH files to create target in same directory as SH file. +: This is so that make depend always knows where to find SH derivatives. case "$0" in */*) cd `expr X$0 : 'X\(.*\)/'` ;; esac +warn='' + +# Add -Wall for the core modules iff gcc and not already -Wall +case "$gccversion" in +'') ;; +Intel*) ;; # The Intel C++ plays gcc on TV but is not really it. +*) case "$ccflags" in + *-Wall*) ;; + *) warn="$warn -Wall" ;; + esac + ;; +esac + +# The gcc -ansi -pedantic require their own dance, too. +case "$gccversion" in +'') ;; +Intel*) ;; # Is that you, Intel C++? +*) case "$gccansipedantic" in + define) + case "$gccversion" in + [12]*) ;; # gcc versions 1 (gasp!) and 2 are not good for this. + *) case "$osname" in + # Add -ansi -pedantic only for known platforms. + aix|dec_osf|freebsd|hpux|irix|linux) + ansipedantic="-ansi -pedantic" ;; + solaris) +# Can't add -ansi for Solaris. +# Off_t/off_t is a struct in Solaris with largefiles, and with -ansi +# that struct cannot be compared with a flat integer, such as a STRLEN. +# The -ansi will also cause a lot of noise in Solaris because of: +# /usr/include/sys/resource.h:148: warning: `struct rlimit64' declared inside parameter list + ansipedantic="-pedantic" ;; + esac + for i in $ansipedantic + do + case "$ccflags" in + *$i*) ;; + *) warn="$warn $i" ;; + esac + done + case "$warn$ccflags" in + *-pedantic*) warn="$warn -DPERL_GCC_PEDANTIC" ;; + esac + ;; + esac + ;; + esac + ;; +esac + +# Further gcc warning options. +case "$gccversion" in +'') ;; +[12]*) ;; +Intel*) ;; # Haven't we been through this already? +*) for opt in '' extra declaration-after-statement endif-labels + do + case " $ccflags " in + *"-W$opt "*) ;; + *) case "`echo >_cflags.c | $cc -W$opt -c _cflags.c -o _cflags.o 2>&1`" in + *"unrecognized"*) ;; + *"Invalid"*) ;; + *) warn="$warn -W$opt" ;; + esac + ;; + esac + rm -f _cflags.c cflags.o + done + ;; +esac + + +stdflags='' + +# Be strict C89 for gcc (but not for g++). +case "$gccversion" in +'') ;; +Intel*) ;; # Nice try, Intel C++. +12]*) ;; # Go easy on the older versions of gcc. +*) case "$cc" in + *g++*) ;; + *) stdflags="$stdflags -std=c89" ;; + esac + ;; +esac + +echo "Extracting cflags (with variable substitutions)" +: This section of the file will have variable substitutions done on it. +: Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!. +: Protect any dollar signs and backticks that you do not want interpreted +: by putting a backslash in front. You may delete these comments. +rm -f cflags +$spitshell >cflags <>cflags <<'!NO!SUBS!' +case $PERL_CONFIG_SH in +'') + if test -f config.sh; then TOP=.; + elif test -f ../config.sh; then TOP=..; + elif test -f ../../config.sh; then TOP=../..; + elif test -f ../../../config.sh; then TOP=../../..; + elif test -f ../../../../config.sh; then TOP=../../../..; + else + echo "Can't find config.sh."; exit 1 + fi + . $TOP/config.sh + ;; +esac + +: syntax: cflags [optimize=XXX] [file[.suffix]] +: displays the compiler command line for file + +case "X$1" in +Xoptimize=*|X"optimize=*") + eval "$1" + shift + ;; +esac + also=': ' case $# in -1) also='echo 1>&2 " CFLAGS = "' +1) also='echo 1>&2 " CCCMD = "' esac case $# in 0) set *.c; echo "The current C flags are:" ;; -*) set `echo "$* " | sed 's/\.o /.c /g'` esac + +set `echo "$* " | sed -e 's/\.[oc] / /g' -e 's/\.obj / /g' -e "s/\\$obj_ext / /g"` + for file do case "$#" in 1) ;; - *) echo $n " $file $c" ;; + *) echo $n " $file.c $c" ;; esac + : allow variables like toke_cflags to be evaluated + + if echo $file | grep -v / >/dev/null + then + eval 'eval ${'"${file}_cflags"'-""}' + fi + + : or customize here + case "$file" in - array.c) ;; - cmd.c) ;; - cons.c) ;; - consarg.c) ;; - doarg.c) ;; - doio.c) ;; - dolist.c) ;; - dump.c) ;; - eval.c) ;; - form.c) ;; - hash.c) ;; - malloc.c) ;; - perl.c) ;; - perly.c) ;; - regcomp.c) ;; - regexec.c) ;; - stab.c) ;; - str.c) ;; - toke.c) ;; - usersub.c) ;; - util.c) ;; - tarray.c) ;; - tcmd.c) ;; - tcons.c) ;; - tconsarg.c) ;; - tdoarg.c) ;; - tdoio.c) ;; - tdolist.c) ;; - tdump.c) ;; - teval.c) ;; - tform.c) ;; - thash.c) ;; - tmalloc.c) ;; - tperl.c) ;; - tperly.c) ;; - tregcomp.c) ;; - tregexec.c) ;; - tstab.c) ;; - tstr.c) ;; - ttoke.c) ;; - tusersub.c) ;; - tutil.c) ;; + DB_File) ;; + GDBM_File) ;; + NDBM_File) ;; + ODBM_File) ;; + POSIX) ;; + SDBM_File) ;; + av) ;; + byterun) ;; + deb) ;; + dl) ;; + doio) ;; + doop) ;; + dump) ;; + globals) ;; + gv) ;; + hv) ;; + locale) ;; + madly) ;; + main) ;; + malloc) ;; + mg) ;; + miniperlmain) ;; + numeric) ;; + op) ;; + opmini) ;; + pad) ;; + perl) ;; + perlapi) ;; + perlmain) ;; + perly) ;; + pp) ;; + pp_ctl) ;; + pp_hot) ;; + pp_pack) ;; + pp_sort) ;; + pp_sys) ;; + regcomp) ;; + regexec) ;; + run) ;; + scope) ;; + sv) ;; + taint) ;; + toke) ;; + universal) ;; + usersub) ;; + utf8) ;; + util) ;; + xsutils) ;; *) ;; esac - echo "$ccflags $optimize $large $split" - eval "$also $ccflags $optimize $large $split" +if test -f .patch; then + ccflags="-DPERL_PATCHNUM=`cat .patch` $ccflags" +fi + + : Can we perhaps use $ansi2knr here + echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn" + eval "$also "'"$cc -DPERL_CORE -c $ccflags $stdflags $optimize $warn"' + + . $TOP/config.sh + done +!NO!SUBS! +chmod 755 cflags +$eunicefix cflags