diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2009-11-03 22:50:07 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2009-11-03 22:50:07 +0000 |
commit | 9084db993e36b0e97e1669c030d42bf25b68c2a7 (patch) | |
tree | 3ebea62b88f863bf48d42ecc53afa35dc47eb000 /benchmark-suite | |
parent | ed7e0765c48bbf6d028d9eefd15a3dedb53c92ec (diff) | |
download | guile-9084db993e36b0e97e1669c030d42bf25b68c2a7.tar.gz |
Increase benchmark iterations to improve precision in comparisons over time
* benchmark-suite/benchmarks/continuations.bm: Increase "call/cc"
iterations from 300 to 12000.
* benchmark-suite/benchmarks/srfi-13.bm ("strings"): Increase "copy"
iterations from 1100 to 20000, and "pad" from 6800 to 34000.
* benchmark-suite/benchmarks/uniform-vector-read.bm
("uniform-vector-read!"): Increase "uniform-vector-write" iterations
from 500 to 4000, and "uniform-vector-read!" from 500 to 20000.
Diffstat (limited to 'benchmark-suite')
-rw-r--r-- | benchmark-suite/benchmarks/continuations.bm | 2 | ||||
-rw-r--r-- | benchmark-suite/benchmarks/srfi-13.bm | 4 | ||||
-rw-r--r-- | benchmark-suite/benchmarks/uniform-vector-read.bm | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/benchmark-suite/benchmarks/continuations.bm b/benchmark-suite/benchmarks/continuations.bm index 59d3d0842..3ca498da5 100644 --- a/benchmark-suite/benchmarks/continuations.bm +++ b/benchmark-suite/benchmarks/continuations.bm @@ -5,5 +5,5 @@ (define (callee continuation) (continuation #t)) -(benchmark "call/cc" 300 +(benchmark "call/cc" 12000 (call-with-current-continuation callee)) diff --git a/benchmark-suite/benchmarks/srfi-13.bm b/benchmark-suite/benchmarks/srfi-13.bm index c6afd7ee4..a9ee27615 100644 --- a/benchmark-suite/benchmarks/srfi-13.bm +++ b/benchmark-suite/benchmarks/srfi-13.bm @@ -122,7 +122,7 @@ Italiam, fato profugus, Laviniaque venit") (string-ref long-string k) (loop (+ k 1)))))) - (benchmark "copy" 1100 + (benchmark "copy" 20000 (string-copy short-string) (string-copy medium-string) (string-copy long-string) @@ -130,7 +130,7 @@ Italiam, fato profugus, Laviniaque venit") (substring/copy medium-string 10 20) (substring/copy long-string 100 200)) - (benchmark "pad" 6800 + (benchmark "pad" 34000 (string-pad short-string 100) (string-pad medium-string 100) (string-pad long-string 100)) diff --git a/benchmark-suite/benchmarks/uniform-vector-read.bm b/benchmark-suite/benchmarks/uniform-vector-read.bm index d188b2b86..8cda82457 100644 --- a/benchmark-suite/benchmarks/uniform-vector-read.bm +++ b/benchmark-suite/benchmarks/uniform-vector-read.bm @@ -36,12 +36,12 @@ (with-benchmark-prefix "uniform-vector-read!" - (benchmark "uniform-vector-write" 500 + (benchmark "uniform-vector-write" 4000 (let ((output (open-output-file file-name))) (uniform-vector-write buf output) (close output))) - (benchmark "uniform-vector-read!" 500 + (benchmark "uniform-vector-read!" 20000 (let ((input (open-input-file file-name))) (setvbuf input _IONBF) (uniform-vector-read! buf input) |