blob: c1607872861a9ae67ec94c186f69dc150c0727be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/bin/sh
# This script parses the output of a gcc bootstrap when using warning
# flags and determines various statistics.
#
# By Kaveh Ghazi (ghazi@caip.rutgers.edu) 12/13/97.
# This function displays all warnings from stageN of the bootstrap.
stageNwarns()
{
stageNminus1=`expr $stageN - 1`
# Some awks choke on long lines so grep them out.
grep -v libf2c.a $1 | \
$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)]"
stageN=3
# Find a good awk.
if test -z "$AWK" ; then
for AWK in gawk nawk awk ; do
if type $AWK 2>&1 | grep 'not found' > /dev/null 2>&1 ; then
:
else
break
fi
done
fi
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 ;;
-*) echo $usage ; exit 1 ;;
*) break ;;
esac
done
for file in "$@" ; do
count=`stageNwarns $file | 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
echo
echo Number of warning types:
stageNwarns $file | sed 's/.*warning: //;
s/`\(int\)'"'"'/"\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/`\(longjmp\)'"'"' or `\(vfork\)'"'"'/"\1" or "\2"/g;
s/`'"[^']*'/"'`???'"'/g;"'
s/.*format, .* arg (arg [0-9]*)/??? format, ??? arg (arg ???)/;
s/(arg [0-9]*)/(arg ???)/;
s/"\([^"]*\)"/`\1'"'"'/g' | \
sort | uniq -c | sort -nr
done
|
