CHECKPATCH: Add --debug adv_dcs
Add debug options to find this issue. They were not listed in the help because the are not simple to understand the output of. Signed-off-by: Don Slutz <Don@CloudSwitch.com> Signed-off-by: Blue Swirl <blauwirbel@gmail.com>
This commit is contained in:
parent
f45ddd1420
commit
a99ac041e9
|
@ -97,6 +97,7 @@ my $dbg_values = 0;
|
|||
my $dbg_possible = 0;
|
||||
my $dbg_type = 0;
|
||||
my $dbg_attr = 0;
|
||||
my $dbg_adv_dcs = 0;
|
||||
for my $key (keys %debug) {
|
||||
## no critic
|
||||
eval "\${dbg_$key} = '$debug{$key}';";
|
||||
|
@ -2575,6 +2576,8 @@ sub process {
|
|||
$allowed = 1;
|
||||
}
|
||||
}
|
||||
print "DCS: level=$level block<$block> allowed=$allowed\n"
|
||||
if $dbg_adv_dcs;
|
||||
if ($level == 0 && $block !~ /^\s*\{/ && !$allowed) {
|
||||
my $herectx = $here . "\n";;
|
||||
my $cnt = statement_rawlines($block);
|
||||
|
|
Loading…
Reference in New Issue