|
@@ -859,8 +859,10 @@ sub possible {
|
|
|
|
|
|
} elsif ($possible =~ /\s/) {
|
|
} elsif ($possible =~ /\s/) {
|
|
$possible =~ s/\s*$Type\s*//g;
|
|
$possible =~ s/\s*$Type\s*//g;
|
|
- warn "MODIFIER: $possible ($line)\n" if ($dbg_possible);
|
|
|
|
- push(@modifierList, $possible);
|
|
|
|
|
|
+ for my $modifier (split(' ', $possible)) {
|
|
|
|
+ warn "MODIFIER: $modifier ($possible) ($line)\n" if ($dbg_possible);
|
|
|
|
+ push(@modifierList, $modifier);
|
|
|
|
+ }
|
|
|
|
|
|
} else {
|
|
} else {
|
|
warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
|
|
warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
|
|
@@ -1186,7 +1188,7 @@ sub process {
|
|
} elsif ($s =~ /^.\s*$Ident\s*\(/s) {
|
|
} elsif ($s =~ /^.\s*$Ident\s*\(/s) {
|
|
|
|
|
|
# declarations always start with types
|
|
# declarations always start with types
|
|
- } elsif ($prev_values eq 'E' && $s =~ /^.\s*(?:$Storage\s+)?(?:$Inline\s+)?(?:const\s+)?((?:\s*$Ident)+)\b(?:\s+$Sparse)?\s*\**\s*(?:$Ident|\(\*[^\)]*\))\s*(?:;|=|,|\()/s) {
|
|
|
|
|
|
+ } elsif ($prev_values eq 'E' && $s =~ /^.\s*(?:$Storage\s+)?(?:$Inline\s+)?(?:const\s+)?((?:\s*$Ident)+?)\b(?:\s+$Sparse)?\s*\**\s*(?:$Ident|\(\*[^\)]*\))(?:\s*$Modifier)?\s*(?:;|=|,|\()/s) {
|
|
my $type = $1;
|
|
my $type = $1;
|
|
$type =~ s/\s+/ /g;
|
|
$type =~ s/\s+/ /g;
|
|
possible($type, "A:" . $s);
|
|
possible($type, "A:" . $s);
|