12345678910111213141516171819202122 |
- ; Dumb benchmark to test the reporting of words marked during gc.
- ; Example: (foo 1000000)
- (define (ballast bytes)
- (do ((bytes bytes (- bytes 8))
- (x '() (cons bytes x)))
- ((zero? bytes) x)))
- (define (words-benchmark bytes0 bytes1)
- (let ((x (ballast bytes0)))
- (do ((bytes1 bytes1 (- bytes1 8)))
- ((not (positive? bytes1))
- (car (last-pair x)))
- (cons (car x) bytes1))))
- (define (foo n)
- (collect)
- (display-memstats (memstats))
- (run-benchmark "foo" (lambda () (words-benchmark 1000000 n)) 1)
- (display-memstats (memstats)))
|