diff --git a/etc/bench.pl.in b/etc/bench.pl.in index 6ba0be0c..1498dd6f 100755 --- a/etc/bench.pl.in +++ b/etc/bench.pl.in @@ -252,7 +252,6 @@ sub generate_grammar_triangular ($$@) my $out = new IO::File ">$base.y" or die; print $out < #include @@ -388,7 +387,6 @@ sub generate_grammar_calc ($$@) %} %define api.value.type union -%define parse.error detailed $directives %{ @@ -812,7 +810,8 @@ sub compile ($) my ($base) = @_; my $compiler = compiler ($base); - my $my_bison = `sed -ne '/%bison "\\(.*\\)"/{s//\\1/;p;q;}' $base.y`; + my $my_bison = `sed -ne '/[/][/] %bison "\\(.*\\)"/{s//\\1/;p;q;}' $base.y`; + chop $my_bison; run ((length $my_bison ? $my_bison : $bison) . " $base.y -o $base.c"); if ($gbench) { @@ -902,8 +901,13 @@ directive list. sub bench_with_gbenchmark ($@) { my ($grammar, @directive) = @_; + my $compiler = compiler ("y0"); my $readme = new IO::File ">README.md"; + print $readme <