aboutsummaryrefslogtreecommitdiffstats
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/checkpatch.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl
index c6782ac6f130..1c032b1fa9eb 100755
--- a/scripts/checkpatch.pl
+++ b/scripts/checkpatch.pl
@@ -66,6 +66,7 @@ if ($#ARGV < 0) {
66my $dbg_values = 0; 66my $dbg_values = 0;
67my $dbg_possible = 0; 67my $dbg_possible = 0;
68my $dbg_type = 0; 68my $dbg_type = 0;
69my $dbg_attr = 0;
69for my $key (keys %debug) { 70for my $key (keys %debug) {
70 eval "\${dbg_$key} = '$debug{$key}';" 71 eval "\${dbg_$key} = '$debug{$key}';"
71} 72}
@@ -1367,6 +1368,15 @@ sub process {
1367 } 1368 }
1368 next; 1369 next;
1369 } 1370 }
1371# TEST: allow direct testing of the attribute matcher.
1372 if ($dbg_attr) {
1373 if ($line =~ /^.\s*$Attribute\s*$/) {
1374 ERROR("TEST: is attr\n" . $herecurr);
1375 } elsif ($dbg_attr > 1 && $line =~ /^.+($Attribute)/) {
1376 ERROR("TEST: is not attr ($1 is)\n". $herecurr);
1377 }
1378 next;
1379 }
1370 1380
1371# check for initialisation to aggregates open brace on the next line 1381# check for initialisation to aggregates open brace on the next line
1372 if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ && 1382 if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ &&