[Guile-commits] GNU Guile branch, master, updated. release_1-9-4-81-g9084db9

[Neil Jerram]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=9084db993e36b0e97e1669c030d42bf25b68c2a7

The branch, master has been updated
       via  9084db993e36b0e97e1669c030d42bf25b68c2a7 (commit)
      from  ed7e0765c48bbf6d028d9eefd15a3dedb53c92ec (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 9084db993e36b0e97e1669c030d42bf25b68c2a7
Author: Neil Jerram <address@hidden>
Date:   Tue Nov 3 22:50:07 2009 +0000

    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.

-----------------------------------------------------------------------

Summary of changes:
 benchmark-suite/benchmarks/continuations.bm       |    2 +-
 benchmark-suite/benchmarks/srfi-13.bm             |    4 ++--
 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 59d3d08..3ca498d 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 c6afd7e..a9ee276 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 d188b2b..8cda824 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)


hooks/post-receive
-- 
GNU Guile