X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=cflags.SH;h=7a07408cb72f9b5652ed51bd63a0d4ddaeec21c6;hb=b2e2905cd6316367cb36fd419288b5b5df9c574c;hp=c1510ea85ead22c7fc5ae77704424425a5459070;hpb=79072805bf63abe5b5978b5928ab00d360ea3e7f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/cflags.SH b/cflags.SH index c1510ea..7a07408 100755 --- a/cflags.SH +++ b/cflags.SH @@ -1,19 +1,93 @@ -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. 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*) ;; +*) 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*) ;; +*) 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 + 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!. @@ -21,23 +95,37 @@ 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 +137,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,62 +148,68 @@ 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 - array) ;; - cmd) ;; - cons) ;; - consarg) ;; - doarg) ;; + DB_File) ;; + GDBM_File) ;; + NDBM_File) ;; + ODBM_File) ;; + POSIX) ;; + SDBM_File) ;; + av) ;; + byterun) ;; + deb) ;; + dl) ;; doio) ;; - dolist) ;; + doop) ;; dump) ;; - eval) ;; - form) ;; - hash) ;; + gv) ;; + hv) ;; + locale) ;; + main) ;; malloc) ;; + mg) ;; + miniperlmain) ;; + numeric) ;; + op) ;; perl) ;; + perlapi) ;; + perlmain) ;; perly) ;; + pp) ;; + pp_ctl) ;; + pp_hot) ;; + pp_pack) ;; + pp_sys) ;; regcomp) ;; regexec) ;; - stab) ;; - str) ;; + run) ;; + scope) ;; + sv) ;; + taint) ;; toke) ;; usersub) ;; util) ;; - tarray) ;; - tcmd) ;; - tcons) ;; - tconsarg) ;; - tdoarg) ;; - tdoio) ;; - tdolist) ;; - tdump) ;; - teval) ;; - tform) ;; - thash) ;; - tmalloc) ;; - tperl) ;; - tperly) ;; - tregcomp) ;; - tregexec) ;; - tstab) ;; - tstr) ;; - ttoke) ;; - tusersub) ;; - tutil) ;; *) ;; esac - echo "$cc -c $ccflags $optimize $large $split" - eval "$also "'"$cc -c $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 $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