[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-72-ga8d7fba

[Ludovic Courtès]

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=a8d7fba8d45220e4d12c57f5aa85bfade9d21100

The branch, stable-2.0 has been updated
       via  a8d7fba8d45220e4d12c57f5aa85bfade9d21100 (commit)
      from  73df2c37424e89956df6c0e9a7d777b477423a93 (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 a8d7fba8d45220e4d12c57f5aa85bfade9d21100
Author: Ludovic Courtès <address@hidden>
Date:   Fri Sep 9 09:06:30 2011 +0200

    Unoptimize the busy loop of `statprof.test'.
    
    This is a followup to f9c1b8278dbf1992d83f91f91391ee39e714d364 ("Tweak
    `statprof.test' for faster machines.").
    
    * test-suite/tests/statprof.test ("statistical sample counts within
      expected range"): Compile with `#:partial-eval? #f'.

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

Summary of changes:
 test-suite/tests/statprof.test |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/statprof.test b/test-suite/tests/statprof.test
index 96acb3c..7ce39ba 100644
--- a/test-suite/tests/statprof.test
+++ b/test-suite/tests/statprof.test
@@ -40,8 +40,11 @@
 
     ;; make sure these are compiled so we're not swamped in `eval'
     (define (make-func)
+      ;; Disable partial evaluation so that `(+ i i)' doesn't get
+      ;; stripped.
       (compile '(lambda (n)
-                  (do ((i 0 (+ i 1))) ((= 200 i)) (+ i i)))))
+                  (do ((i 0 (+ i 1))) ((= 200 i)) (+ i i)))
+               #:opts '(#:partial-eval? #f)))
     (define run-test
       (compile '(lambda (num-calls funcs)
                   (let loop ((x num-calls) (funcs funcs))
@@ -50,7 +53,7 @@
                       ((car funcs) x)
                       (loop (- x 1) (cdr funcs))))))))
     
-    (let ((num-calls 20000000)
+    (let ((num-calls 80000)
           (funcs (circular-list (make-func) (make-func) (make-func))))
 
       ;; Run test. 20000 us == 200 Hz.


hooks/post-receive
-- 
GNU Guile