Showing the changes to scripts (1 of 143 files). Show all
Unified · Split
| @@ -10,7 +10,7 @@ use strict; · 9 unmodified lines | ||
| 10 | 10 | my $P = $0; |
| 11 | 11 | $P =~ s@.*/@@g; |
| 12 | 12 | |
| 13 | −my $V = '0.27'; | |
| 13 | +my $V = '0.28'; | |
| 14 | 14 | |
| 15 | 15 | use Getopt::Long qw(:config no_auto_abbrev); |
| 16 | 16 | |
| @@ -110,7 +110,8 @@ our $Sparse = qr{ · 93 unmodified lines | ||
| 110 | 110 | __iomem| |
| 111 | 111 | __must_check| |
| 112 | 112 | __init_refok| |
| 113 | − __kprobes | |
| 113 | + __kprobes| | |
| 114 | + __ref | |
| 114 | 115 | }x; |
| 115 | 116 | our $Attribute = qr{ |
| 116 | 117 | const| |
| @@ -1240,7 +1241,8 @@ sub process { · 1123 unmodified lines | ||
| 1240 | 1241 | $realfile =~ s@^([^/]*)/@@; |
| 1241 | 1242 | |
| 1242 | 1243 | $p1_prefix = $1; |
| 1243 | − if ($tree && $p1_prefix ne '' && -e "$root/$p1_prefix") { | |
| 1244 | + if (!$file && $tree && $p1_prefix ne '' && | |
| 1245 | + -e "$root/$p1_prefix") { | |
| 1244 | 1246 | WARN("patch prefix '$p1_prefix' exists, appears to be a -p0 patch\n"); |
| 1245 | 1247 | } |
| 1246 | 1248 | |
| @@ -1583,9 +1585,9 @@ sub process { · 336 unmodified lines | ||
| 1583 | 1585 | } |
| 1584 | 1586 | # TEST: allow direct testing of the attribute matcher. |
| 1585 | 1587 | if ($dbg_attr) { |
| 1586 | − if ($line =~ /^.\s*$Attribute\s*$/) { | |
| 1588 | + if ($line =~ /^.\s*$Modifier\s*$/) { | |
| 1587 | 1589 | ERROR("TEST: is attr\n" . $herecurr); |
| 1588 | − } elsif ($dbg_attr > 1 && $line =~ /^.+($Attribute)/) { | |
| 1590 | + } elsif ($dbg_attr > 1 && $line =~ /^.+($Modifier)/) { | |
| 1589 | 1591 | ERROR("TEST: is not attr ($1 is)\n". $herecurr); |
| 1590 | 1592 | } |
| 1591 | 1593 | next; |
| @@ -1657,7 +1659,7 @@ sub process { · 65 unmodified lines | ||
| 1657 | 1659 | |
| 1658 | 1660 | # * goes on variable not on type |
| 1659 | 1661 | # (char*[ const]) |
| 1660 | − if ($line =~ m{\($NonptrType(\s*\*[\s\*]*(?:$Modifier\s*)*)\)}) { | |
| 1662 | + if ($line =~ m{\($NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)\)}) { | |
| 1661 | 1663 | my ($from, $to) = ($1, $1); |
| 1662 | 1664 | |
| 1663 | 1665 | # Should start with a space. |
| @@ -1672,7 +1674,7 @@ sub process { · 8 unmodified lines | ||
| 1672 | 1674 | if ($from ne $to) { |
| 1673 | 1675 | ERROR("\"(foo$from)\" should be \"(foo$to)\"\n" . $herecurr); |
| 1674 | 1676 | } |
| 1675 | − } elsif ($line =~ m{\b$NonptrType(\s*\*[\s\*]*(?:$Modifier\s*)?)($Ident)}) { | |
| 1677 | + } elsif ($line =~ m{\b$NonptrType(\s*(?:$Modifier\b\s*|\*\s*)+)($Ident)}) { | |
| 1676 | 1678 | my ($from, $to, $ident) = ($1, $1, $2); |
| 1677 | 1679 | |
| 1678 | 1680 | # Should start with a space. |
| @@ -1685,8 +1687,8 @@ sub process { · 6 unmodified lines | ||
| 1685 | 1687 | # Modifiers should have spaces. |
| 1686 | 1688 | $to =~ s/(\b$Modifier$)/$1 /; |
| 1687 | 1689 | |
| 1688 | − #print "from<$from> to<$to>\n"; | |
| 1689 | − if ($from ne $to) { | |
| 1690 | + #print "from<$from> to<$to> ident<$ident>\n"; | |
| 1691 | + if ($from ne $to && $ident !~ /^$Modifier$/) { | |
| 1690 | 1692 | ERROR("\"foo${from}bar\" should be \"foo${to}bar\"\n" . $herecurr); |
| 1691 | 1693 | } |
| 1692 | 1694 | } |
| @@ -1885,11 +1887,11 @@ sub process { · 192 unmodified lines | ||
| 1885 | 1887 | if ($ctx !~ /[WEBC]x./ && $ca !~ /(?:\)|!|~|\*|-|\&|\||\+\+|\-\-|\{)$/) { |
| 1886 | 1888 | ERROR("space required before that '$op' $at\n" . $hereptr); |
| 1887 | 1889 | } |
| 1888 | − if ($op eq '*' && $cc =~/\s*const\b/) { | |
| 1890 | + if ($op eq '*' && $cc =~/\s*$Modifier\b/) { | |
| 1889 | 1891 | # A unary '*' may be const |
| 1890 | 1892 | |
| 1891 | 1893 | } elsif ($ctx =~ /.xW/) { |
| 1892 | − ERROR("space prohibited after that '$op' $at\n" . $hereptr); | |
| 1894 | + ERROR("Aspace prohibited after that '$op' $at\n" . $hereptr); | |
| 1893 | 1895 | } |
| 1894 | 1896 | |
| 1895 | 1897 | # unary ++ and unary -- are allowed no space on one side. |
| @@ -2560,7 +2562,7 @@ sub process { · 664 unmodified lines | ||
| 2560 | 2562 | if ($line =~ /\bin_atomic\s*\(/) { |
| 2561 | 2563 | if ($realfile =~ m@^drivers/@) { |
| 2562 | 2564 | ERROR("do not use in_atomic in drivers\n" . $herecurr); |
| 2563 | − } else { | |
| 2565 | + } elsif ($realfile !~ m@^kernel/@) { | |
| 2564 | 2566 | WARN("use of in_atomic() is incorrect outside core kernel code\n" . $herecurr); |
| 2565 | 2567 | } |
| 2566 | 2568 | } |