GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

CGrammar: Remove left-over debugging statements

This commit is contained in:
Pragmatic Software 2014-07-06 04:49:10 +00:00
parent 8de131b871
commit 162e264e82
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/VERSION.pm
View File

@ -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",
}; };

3
modules/c2english/CGrammar.pm
View File

@ -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*\*+/$||;