7 my $warns_file = shift;
8 if ($warns_file =~ /--store/) {
12 if ($warns_file =~ /--unstore/) {
17 my $du = `du $warns_file`;
18 $du =~ s/([0-9]+).*/$1/;
21 if (int($du) > 100000) {
22 print "$warns_file is too big\n";
26 open(WARNS
, $warns_file);
28 my ($orig, $file, $line, $msg);
31 if (!($_ =~ /(error|warn|info)/)) {
36 ($file, $line, $msg) = split(/[: ]/, $_, 3);
38 $msg =~ s/^.*?:\d+(|:\d+:) .*? //;
39 $msg =~ s/[us](16|32|64)(min|max)//g;
40 $msg =~ s/[01234567890]//g;
41 if ($msg =~ /can't/) {
42 $msg =~ s/(.*can't.*').*?('.*)/$1 $2/;
43 } elsif ($msg =~ /don't/) {
44 $msg =~ s/(.*don't.*').*?('.*)/$1 $2/;
49 $msg =~ s/\(\w+ returns null\)/(... returns null)/;
50 $msg =~ s/dma on the stack \(.*?\)/dma on the stack (...)/;
51 $msg =~ s/possible ERR_PTR '' to .*/possible ERR_PTR '' to .../;
52 $msg =~ s/inconsistent returns ([^ ]+?) locked \(\)/inconsistent returns ... locked ()/;
53 $msg =~ s/(.*) [^ ]* (too large for) [^ ]+ (.*)/$1 $2 $3/;
62 unless(-e
"old_warnings/" or mkdir "old_warnings/") {
63 die "Unable to create old_warnings/";
65 open(TMP
, '>', "old_warnings/$file.$msg") or
66 die "Error opening: old_warnings/$file.$msg\n";
72 unlink("old_warnings/$file.$msg") and
73 print "removed: old_warnings/$file.$msg\n";
77 unless (-e
"old_warnings/$file.$msg") {