Use actual min and max times for errorbar. Limit the maxcache value by the number of buckets in the db plus 100.

4 files changed, 30 insertions, 19 deletions

diff --git a/gdbm/newcache b/gdbm/newcache
-Subproject 1f94a81a9f3a9955ca74dff07b7909595a85048
+Subproject 02bc2dc9bee96c0e7d93d23c6f0b7a24d0e1756
diff --git a/src/benchmark.mk.in b/src/benchmark.mk.in
index 9d8adff..5e02f11 100644
--- a/src/benchmark.mk.in
+++ b/src/benchmark.mk.in
@@ -30,3 +30,3 @@ test: master.log newcache.log
                                            -e 's/\.$$//' \
-                                           -e 'p}') * 2))} \
+                                           -e 'p}') + 100))} \
 			--log-file=$*.log \
diff --git a/src/gnuplot.m4 b/src/gnuplot.m4
index 29126f5..392eb94 100644
--- a/src/gnuplot.m4
+++ b/src/gnuplot.m4
@@ -14,5 +14,5 @@ set style line 4 linecolor rgb "#0072b2" linewidth 1.000 dashtype solid pointtyp
 plot "master.log" \
-        using 1:4:7 \
+        using 1:8:9:10 \
         title "GDBM 1.18.1" with errorbars ls 1, \
-     "" using 1:4 \
+     "" using 1:8 \
         notitle \
@@ -20,5 +20,5 @@ plot "master.log" \
      "newcache.log" \
-	using 1:4:7 \
+	using 1:8:9:10 \
 	title "GDBM newcache" with errorbars ls 3, \
-     "" using 1:4 \
+     "" using 1:8 \
 	notitle \
diff --git a/src/runtest b/src/runtest
index 7c8885c..2a24481 100755
--- a/src/runtest
+++ b/src/runtest
@@ -18,2 +18,22 @@ my $log_file;       # Name of the log file.
 
+use constant {
+    AVG   => 0,
+    MIN   => 1,
+    MAX   => 2
+};
+
+sub init_times {
+    my ($t) = @_;
+    $t->[AVG] = 0;
+    $t->[MIN] = 100;
+    $t->[MAX] = 0;
+}
+
+sub update_times {
+    my ($t, $v) = @_;
+    $t->[AVG] += $v;
+    $t->[MIN] = $v if $t->[MIN] > $v;
+    $t->[MAX] = $v if $t->[MAX] < $v;
+};
+
 sub runtest {
@@ -24,4 +44,3 @@ sub runtest {
     };
-    my @times = (0,0,0);
-    my @stddev = (0,0,0);
+    my @times = ([0,100,0],[0,100,0],[0,100,0]);
 
@@ -48,9 +67,5 @@ sub runtest {
 	if (@inbuf == 3) {
-	    $times[TOTAL] += $inbuf[TOTAL];
-	    $times[OPEN]  += $inbuf[OPEN];
-	    $times[LOOP]  += $inbuf[LOOP];
-	    
-	    $stddev[TOTAL]   += $inbuf[TOTAL] ** 2;
-	    $stddev[OPEN]    += $inbuf[OPEN] ** 2;
-	    $stddev[LOOP]    += $inbuf[LOOP] ** 2;
+	    update_times($times[TOTAL], $inbuf[TOTAL]);
+	    update_times($times[OPEN], $inbuf[OPEN]);
+	    update_times($times[LOOP], $inbuf[LOOP]);
         } else {
@@ -62,7 +77,3 @@ sub runtest {
     }
-    for (my $i = 0; $i < @times; $i++) {
-	$times[$i] /= $nsamples;
-	$stddev[$i] = sqrt($stddev[$i] / $nsamples - $times[$i] ** 2);
-    }
-    return (@times, @stddev);
+    map { $_->[AVG] /= $nsamples; @$_ } @times;
 }