diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-09-09 09:06:30 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-09-09 09:06:30 +0200 |
commit | a8d7fba8d45220e4d12c57f5aa85bfade9d21100 (patch) | |
tree | 1faee3ed657c8c83076522c3d2c14c30188649e2 | |
parent | 73df2c37424e89956df6c0e9a7d777b477423a93 (diff) | |
download | guile-a8d7fba8d45220e4d12c57f5aa85bfade9d21100.tar.gz |
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'.
-rw-r--r-- | 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 96acb3cc0..7ce39badb 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. |