|
@@ -66,6 +66,7 @@ if ($#ARGV < 0) {
|
|
|
my $dbg_values = 0;
|
|
|
my $dbg_possible = 0;
|
|
|
my $dbg_type = 0;
|
|
|
+my $dbg_attr = 0;
|
|
|
for my $key (keys %debug) {
|
|
|
eval "\${dbg_$key} = '$debug{$key}';"
|
|
|
}
|
|
@@ -1367,6 +1368,15 @@ sub process {
|
|
|
}
|
|
|
next;
|
|
|
}
|
|
|
+# TEST: allow direct testing of the attribute matcher.
|
|
|
+ if ($dbg_attr) {
|
|
|
+ if ($line =~ /^.\s*$Attribute\s*$/) {
|
|
|
+ ERROR("TEST: is attr\n" . $herecurr);
|
|
|
+ } elsif ($dbg_attr > 1 && $line =~ /^.+($Attribute)/) {
|
|
|
+ ERROR("TEST: is not attr ($1 is)\n". $herecurr);
|
|
|
+ }
|
|
|
+ next;
|
|
|
+ }
|
|
|
|
|
|
# check for initialisation to aggregates open brace on the next line
|
|
|
if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ &&
|