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

bench: report the size too.

Browse Source 
* etc/bench.pl.in ($iterations): Defaults to -3.
	(&bench_grammar): Require hireswallclock.
	Compute and display the size of the result.
	More comments.
This commit is contained in:
Akim Demaille
2008-07-17 15:23:46 +02:00
parent e1b74b92a0
commit d11ee647c3
2 changed files with 35 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@@ -1,3 +1,11 @@
2008-11-03 Akim Demaille <demaille@gostai.com>
bench: report the size too.
* etc/bench.pl.in ($iterations): Defaults to -3.
(&bench_grammar): Require hireswallclock.
Compute and display the size of the result.
More comments.
2008-11-03 Akim Demaille <demaille@gostai.com> 2008-11-03 Akim Demaille <demaille@gostai.com>
bench: More use of the verbosity level. bench: More use of the verbosity level.

32
etc/bench.pl.in
View File

@@ -35,7 +35,9 @@ Flags to pass to the C or C++ compiler.
=item B<-i>, B<--iterations>=I<integer> =item B<-i>, B<--iterations>=I<integer>
Say how many times a single test of the bench must be run. Say how many times a single test of the bench must be run. If
negative, specify the minimum number of CPU seconds to run. Defaults
to -3.
=item B<-v>, B<--verbose> =item B<-v>, B<--verbose>
@@ -46,7 +48,6 @@ Raise the verbosity level. Currently only affects B<--help>.
=cut =cut
use IO::File; use IO::File;
use Benchmark qw (:all);
################################################################## ##################################################################
@@ -86,7 +87,7 @@ my $bison = $ENV{'BISON'} || '@abs_top_builddir@/tests/bison';
my $cc = $ENV{'CC'} || 'gcc'; my $cc = $ENV{'CC'} || 'gcc';
my $cxx = $ENV{'CXX'} || 'g++'; my $cxx = $ENV{'CXX'} || 'g++';
my $cflags = ''; my $cflags = '';
my $iterations = 50; my $iterations = -3;
my $verbose = 0; my $verbose = 0;
=head1 FUNCTIONS =head1 FUNCTIONS
@@ -658,8 +659,12 @@ sub bench_grammar ($%)
{ {
my ($gram, %test) = @_; my ($gram, %test) = @_;
use Benchmark qw (:all :hireswallclock);
# Set up the benches as expected by timethese. # Set up the benches as expected by timethese.
my %bench; my %bench;
# For each bench, capture the size.
my %size;
while (my ($name, $directives) = each %test) while (my ($name, $directives) = each %test)
{ {
verbose 1, "Generating $name\n"; verbose 1, "Generating $name\n";
@@ -668,13 +673,30 @@ sub bench_grammar ($%)
&$generator ($name, 200, @$directives); &$generator ($name, 200, @$directives);
compile ($name); compile ($name);
$bench{$name} = "system ('./$name');"; $bench{$name} = "system ('./$name');";
chop($size{$name} = `wc -c <$name`);
} }
verbose 1, "Running the benches for $gram\n";
# Run the benches. # Run the benches.
#
# STYLE can be any of 'all', 'none', 'noc', 'nop' or 'auto'. 'all'
# shows each of the 5 times available ('wallclock' time, user time,
# system time, user time of children, and system time of
# children). 'noc' shows all except the two children times. 'nop'
# shows only wallclock and the two children times. 'auto' (the
# default) will act as 'all' unless the children times are both
# zero, in which case it acts as 'noc'. 'none' prevents output.
verbose 1, "Running the benches for $gram\n";
my $res = timethese ($iterations, \%bench, 'nop'); my $res = timethese ($iterations, \%bench, 'nop');
# Output the result.
# Output the speed result.
cmpthese ($res, 'nop'); cmpthese ($res, 'nop');
# Display the sizes.
print "Sizes:\n";
for my $bench (keys %size)
{
printf "%10s: %10dkB\n", $bench, int ($size{$bench} / 1024);
}
} }