diff options
author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 1998-10-05 11:27:05 +0000 |
---|---|---|
committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 1998-10-05 11:27:05 +0000 |
commit | a3225b7a3d1f0c26cd64397ea8b6c524e12d0574 (patch) | |
tree | 8ed506a5e505844c9d1fe6af345bcc98cd550815 /contrib | |
parent | b75ab88ba3b591f07692be10df267f0bddecc055 (diff) | |
download | gcc-a3225b7a3d1f0c26cd64397ea8b6c524e12d0574.zip gcc-a3225b7a3d1f0c26cd64397ea8b6c524e12d0574.tar.gz gcc-a3225b7a3d1f0c26cd64397ea8b6c524e12d0574.tar.bz2 |
warn_summary (subdirectoryFilter): New shell function to optionally filter in/out gcc subdirectories when...
* warn_summary (subdirectoryFilter): New shell function to
optionally filter in/out gcc subdirectories when summarizing
warnings. Add new flags to support subdirectory filtering.
Also, ensure the bootstrap stage is a number. Add some more C
keywords that are preserved in the "warning type" summary and
tighten up the "arg ???" regexp.
From-SVN: r22839
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/ChangeLog | 10 | ||||
-rwxr-xr-x | contrib/warn_summary | 52 |
2 files changed, 54 insertions, 8 deletions
diff --git a/contrib/ChangeLog b/contrib/ChangeLog index fbdc5cc..1e7c1e4 100644 --- a/contrib/ChangeLog +++ b/contrib/ChangeLog @@ -1,3 +1,13 @@ +Mon Oct 5 14:19:48 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> + + * warn_summary (subdirectoryFilter): New shell function to + optionally filter in/out gcc subdirectories when summarizing + warnings. Add new flags to support subdirectory filtering. + + Also, ensure the bootstrap stage is a number. Add some more C + keywords that are preserved in the "warning type" summary and + tighten up the "arg ???" regexp. + Tue Sep 22 07:30 Bruce Korb <korb@datadesign.com> * fixinc/inclhack.def: Not all C++ comments in C headers diff --git a/contrib/warn_summary b/contrib/warn_summary index c160787..2ce6403 100755 --- a/contrib/warn_summary +++ b/contrib/warn_summary @@ -4,6 +4,25 @@ # # By Kaveh Ghazi (ghazi@caip.rutgers.edu) 12/13/97. +# This function does one of three things. It either passes through +# all warning data, or passes through gcc toplevel warnings, or passes +# through a particular subdirectory set of warnings. +subdirectoryFilter() +{ + if test "$filter" = '' ; then + # Pass through all lines. + cat $1 + else + if test "$filter" = nosub ; then + # Omit all subdirectories. + $AWK 'BEGIN{t=1} ; /^cd [a-z]*; make/{if(t==1)t=0} ; /Leaving directory/{if(t==0)t=1} ; {if(t==1)print}' $1 + else + # Pass through only subdir $filter. + $AWK "/^cd $filter"'; make/{if(t==0)t=1} ; /Leaving directory/{if(t==1)t=0} ; {if(t==1)print}' $1 + fi + fi +} + # This function displays all warnings from stageN of the bootstrap. stageNwarns() { @@ -13,7 +32,7 @@ stageNwarns() $AWK "/ warning: /{if(t==1)print} ; /stage$stageNminus1/{if(t==0)t=1} ; /stage$stageN/{if(t==1)t=0}" } -usage="usage: `basename $0` [-s stage] [file(s)]" +usage="usage: `basename $0` [-s stage] [-nosub|-ch|-cp|-f|-java] [file(s)]" stageN=3 # Find a good awk. @@ -31,36 +50,53 @@ while test -n "$1" ; do case "$1" in -s) if test -z "$2"; then echo $usage; exit 1; fi; stageN="$2"; shift 2 ;; -s*) stageN="`expr $1 : '-s\(.*\)'`" ; shift ;; + -nosub|-ch|-cp|-f|-java) filter="`expr $1 : '-\(.*\)'`" ; shift ;; -*) echo $usage ; exit 1 ;; *) break ;; esac done - +# Check for a valid value of $stageN. +case "$stageN" in + [1-9]) ;; + *) echo "Stage <$stageN> must be in the range [1..9]." ; exit 1 ;; +esac for file in "$@" ; do - count=`stageNwarns $file | wc -l` - echo There are $count warnings in stage$stageN of this bootstrap. + if test "$filter" = '' ; then + echo "Counting all warnings," + else + if test "$filter" = nosub ; then + echo "Counting non-subdirectory warnings," + else + echo "Counting warnings in the gcc/$filter subdirectory," + fi + fi + count=`subdirectoryFilter $file | stageNwarns | wc -l` + echo there are $count warnings in stage$stageN of this bootstrap. echo echo Number of warnings per file: - stageNwarns $file | $AWK -F: '{print$1}' | sort | uniq -c | sort -nr + subdirectoryFilter $file | stageNwarns | $AWK -F: '{print$1}' | \ + sort | uniq -c | sort -nr echo echo Number of warning types: - stageNwarns $file | sed 's/.*warning: //; + subdirectoryFilter $file | stageNwarns | sed 's/.*warning: //; s/`\(int\)'"'"'/"\1"/g; + s/`\(long\)'"'"'/"\1"/g; s/`\(char\)'"'"'/"\1"/g; s/`\(inline\)'"'"'/"\1"/g; s/`\(else\)'"'"'/"\1"/g; s/`\(return\)'"'"'/"\1"/g; s/`\(static\)'"'"'/"\1"/g; s/`\(extern\)'"'"'/"\1"/g; + s/`\(const\)'"'"'/"\1"/g; s/`\(longjmp\)'"'"' or `\(vfork\)'"'"'/"\1" or "\2"/g; s/`'"[^']*'/"'`???'"'/g;"' - s/.*format, .* arg (arg [0-9]*)/??? format, ??? arg (arg ???)/; - s/(arg [0-9]*)/(arg ???)/; + s/.*format, .* arg (arg [0-9][0-9]*)/??? format, ??? arg (arg ???)/; + s/\([( ]\)arg [0-9][0-9]*\([) ]\)/\1arg ???\2/; s/"\([^"]*\)"/`\1'"'"'/g' | \ sort | uniq -c | sort -nr |