Improve the display of sizes.

	* etc/bench.p.in: Higher precision.
	Sort by decreasing size.

diff --git a/ChangeLog b/ChangeLog
index ba6b25f41e4b119e4e85de706c2bb98b75e0ccc4..80807011f957e72bc9f38c00b60b0b911fe41d98 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-11-04  Akim Demaille  <demaille@gostai.com>
+
+       Improve the display of sizes.
+       * etc/bench.p.in: Higher precision.
+       Sort by decreasing size.
+

 2008-11-04  Akim Demaille  <demaille@gostai.com>
 
        Don't memcpy C++ structures.
 2008-11-04  Akim Demaille  <demaille@gostai.com>
 
        Don't memcpy C++ structures.

diff --git a/etc/bench.pl.in b/etc/bench.pl.in
index 93f3d176e7fb1927331302f9b3c463d9149e78ea..d1b2aa449ad127106514be3c64e933d46b9f3c6e 100755 (executable)
--- a/etc/bench.pl.in
+++ b/etc/bench.pl.in
@@ -725,16 +725,18 @@ sub bench_grammar ($%)
   cmpthese ($res, 'nop');
 
   # Display the sizes.
   cmpthese ($res, 'nop');
 
   # Display the sizes.

-  print "Sizes:\n";
+  print "Sizes (decreasing):\n";

   my $width = 10;
   for my $bench (keys %size)
     {
       $width = length $bench
         if $width < length $bench;
     }
   my $width = 10;
   for my $bench (keys %size)
     {
       $width = length $bench
         if $width < length $bench;
     }

-  for my $bench (keys %size)
+  # Benches sorted by decreasing size.
+  my @benches_per_size = sort {$size{$b} <=> $size{$a}} keys %size;
+  for my $bench (@benches_per_size)

     {
     {

-      printf "%${width}s: %5dkB\n", $bench, int ($size{$bench} / 1024);
+      printf "%${width}s: %5.2fkB\n", $bench, $size{$bench} / 1024;

     }
 }
 
     }
 }