summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2011-09-09 09:06:30 +0200
committerLudovic Courtès <ludo@gnu.org>2011-09-09 09:06:30 +0200
commita8d7fba8d45220e4d12c57f5aa85bfade9d21100 (patch)
tree1faee3ed657c8c83076522c3d2c14c30188649e2
parent73df2c37424e89956df6c0e9a7d777b477423a93 (diff)
downloadguile-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.test7
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.