mirror of
https://github.com/pragma-/pbot.git
synced 2024-10-04 18:38:47 +02:00
CGrammar: Remove left-over debugging statements
This commit is contained in:
parent
8de131b871
commit
162e264e82
@ -13,7 +13,7 @@ use warnings;
|
|||||||
# These are set automatically by the build/commit script
|
# These are set automatically by the build/commit script
|
||||||
use constant {
|
use constant {
|
||||||
BUILD_NAME => "PBot",
|
BUILD_NAME => "PBot",
|
||||||
BUILD_REVISION => 710,
|
BUILD_REVISION => 711,
|
||||||
BUILD_DATE => "2014-07-05",
|
BUILD_DATE => "2014-07-05",
|
||||||
};
|
};
|
||||||
|
|
||||||
|
@ -640,7 +640,6 @@ declaration_list:
|
|||||||
declaration:
|
declaration:
|
||||||
declaration_specifiers init_declarator_list(?) ';'
|
declaration_specifiers init_declarator_list(?) ';'
|
||||||
{
|
{
|
||||||
print STDERR "wtf1\n", ::Dumper \%item;
|
|
||||||
my @init_list = defined $item{'init_declarator_list(?)'}->[0] ? @{$item{'init_declarator_list(?)'}->[0]} : ('');
|
my @init_list = defined $item{'init_declarator_list(?)'}->[0] ? @{$item{'init_declarator_list(?)'}->[0]} : ('');
|
||||||
my $typedef = $item{declaration_specifiers} =~ s/^type definition of //;
|
my $typedef = $item{declaration_specifiers} =~ s/^type definition of //;
|
||||||
my $noreturn = $item{declaration_specifiers} =~ s/_Noreturn//g;
|
my $noreturn = $item{declaration_specifiers} =~ s/_Noreturn//g;
|
||||||
@ -1527,7 +1526,6 @@ declaration_specifiers:
|
|||||||
}
|
}
|
||||||
| type_specifier(s) declaration_specifiers(?)
|
| type_specifier(s) declaration_specifiers(?)
|
||||||
{
|
{
|
||||||
print STDERR "wtf3\n", ::Dumper \%item;
|
|
||||||
my $decl_spec = join(' ', @{$item{'declaration_specifiers(?)'}});
|
my $decl_spec = join(' ', @{$item{'declaration_specifiers(?)'}});
|
||||||
if ($decl_spec =~ s/\s*(with.*)$//) {
|
if ($decl_spec =~ s/\s*(with.*)$//) {
|
||||||
push @{$item{'type_specifier(s)'}}, $1;
|
push @{$item{'type_specifier(s)'}}, $1;
|
||||||
@ -1737,7 +1735,6 @@ comment:
|
|||||||
comment_c:
|
comment_c:
|
||||||
m{/\*[^*]*\*+([^/*][^*]*\*+)*/}s
|
m{/\*[^*]*\*+([^/*][^*]*\*+)*/}s
|
||||||
{
|
{
|
||||||
print STDERR "wtf4\n", ::Dumper \%arg;
|
|
||||||
$return = $item[1];
|
$return = $item[1];
|
||||||
$return =~ s|^/\*+\s*||;
|
$return =~ s|^/\*+\s*||;
|
||||||
$return =~ s|\s*\*+/$||;
|
$return =~ s|\s*\*+/$||;
|
||||||
|
Loading…
Reference in New Issue
Block a user