From 31df4384e16ab37082a0d1c2b70745f5c8d5d128 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 27 Apr 2011 11:25:30 -0400 Subject: [PATCH] Chicken doesn't print GC time if the GC doesn't fire. --- collects/tests/racket/benchmarks/common/auto.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt index caa6935286..d335a95b31 100755 --- a/collects/tests/racket/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -297,10 +297,12 @@ exec racket -qu "$0" ${1+"$@"} (bytes->number (caddr m))))) (define (extract-chicken-times bm str) - (let ([m (regexp-match #rx#"([0-9.]+)s CPU time, ([0-9.]+)s GC time" str)]) + (let ([m (regexp-match #rx#"([0-9.]+)s CPU time(, ([0-9.]+)s GC time)?" str)]) (list (* 1000 (string->number (format "#e~a" (cadr m)))) #f - (* 1000 (string->number (format "#e~a" (caddr m))))))) + (if (caddr m) ; if the GC doesn't kick in, chicken doesn't print anything for GC time + (* 1000 (string->number (format "#e~a" (cadddr m)))) + #f)))) (define (extract-time-times bm str) (let ([m (regexp-match #rx#"real[ \t]+([0-9m.]+)s.*user[ \t]+([0-9m.]+)s.sys[ \t]+([0-9m.]+)s." str)]