Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-09 12:23:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix eof condition

Browse Source
This commit is contained in:
Akim Demaille
2008-08-07 20:53:08 +02:00
parent 9b0efa5bc2
commit db65ca1f12
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
etc/bench.pl.in
View File

@@ -575,8 +575,7 @@ sub generate_grammar_list ($$@)
{
my ($base, $max, @directive) = @_;
my $directives = directives ($base, @directive);
my $variant = grep { $_ eq '%define variant' } @directive;
my $variant = grep { /%define variant/ } @directive;
my $out = new IO::File ">$base.y"
or die;
print $out <<EOF;
@@ -917,7 +916,10 @@ sub parse (@)
{
@token = @_;
verbose 2, "Parsing: @token\n";
return parse_expr ();
my @res = parse_expr ();
die "expected end of directives, unexpected: @token"
if defined $token[0];
return @res;
}
sub parse_expr ()