X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=cflags.SH;h=3ee7c5f0c64d6bc2a1dc73a60fa3d2e761132f65;hb=97ea268b1482091665a2c54da30873227f203194;hp=dc1c9deaf2cc555d31cd8755d84d43ba8517d545;hpb=2304df62caa7d9be70e8b8bcdb454e139c9c103d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/cflags.SH b/cflags.SH index dc1c9de..3ee7c5f 100755 --- a/cflags.SH +++ b/cflags.SH @@ -1,13 +1,15 @@ -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 - . ./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. @@ -21,23 +23,33 @@ echo "Extracting cflags (with variable substitutions)" : by putting a backslash in front. You may delete these comments. rm -f cflags $spitshell >cflags <>cflags <<'!NO!SUBS!' -case "$0" in -*/*) cd `expr X$0 : 'X\(.*\)/'` ;; -esac -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 + +: 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=': ' @@ -49,7 +61,7 @@ case $# in 0) set *.c; echo "The current C flags are:" ;; esac -set `echo "$* " | sed 's/\.[oc] / /g'` +set `echo "$* " | sed -e 's/\.[oc] / /g' -e 's/\.obj / /g' -e "s/\\$obj_ext / /g"` for file do @@ -60,16 +72,22 @@ for file do : allow variables like toke_cflags to be evaluated - eval 'eval ${'"${file}_cflags"'-""}' + if echo $file | grep -v / >/dev/null + then + eval 'eval ${'"${file}_cflags"'-""}' + fi : or customize here case "$file" in + DB_File) ;; + GDBM_File) ;; NDBM_File) ;; ODBM_File) ;; POSIX) ;; SDBM_File) ;; av) ;; + byterun) ;; deb) ;; dl) ;; doio) ;; @@ -77,15 +95,22 @@ for file do dump) ;; gv) ;; hv) ;; + locale) ;; main) ;; malloc) ;; mg) ;; miniperlmain) ;; + numeric) ;; op) ;; perl) ;; + perlapi) ;; perlmain) ;; perly) ;; pp) ;; + pp_ctl) ;; + pp_hot) ;; + pp_pack) ;; + pp_sys) ;; regcomp) ;; regexec) ;; run) ;; @@ -98,12 +123,29 @@ for file do *) ;; esac - echo "$cc -c $ccflags $optimize $large $split" - eval "$also "'"$cc -c $ccflags $optimize $large $split"' +# Add -Wall for the core and core modules iff gcc and not already -Wall +warn='' +case "$gccversion" in +'') ;; +*) case "$ccflags" in + *-Wall*) ;; +# Can't add -ansi here because it will fail e.g. in 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 + *) warn='-Wall' ;; + esac + ;; +esac + + : Can we perhaps use $ansi2knr here + echo "$cc -c -DPERL_CORE $ccflags $optimize $warn" + eval "$also "'"$cc -DPERL_CORE -c $ccflags $optimize $warn"' - . ./config.sh + . $TOP/config.sh done !NO!SUBS! -chmod +x cflags +chmod 755 cflags $eunicefix cflags