suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bigloo does not report time in centiseconds anymore (as of 3.6a).

Browse Source
This commit is contained in:
Vincent St-Amour 2011-04-27 11:43:45 -04:00
parent 31df4384e1
commit 99f4ae14ee
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/racket/benchmarks/common/auto.rkt
View File

@ -282,12 +282,10 @@ exec racket -qu "$0" ${1+"$@"}
(map bytes->number (cdr m)))) (map bytes->number (cdr m))))
(define (extract-bigloo-times bm str) (define (extract-bigloo-times bm str)
(let ([m (regexp-match #rx#"real: ([0-9]+) sys: ([0-9]+) user: ([0-9]+)" str)] (let ([m (regexp-match #rx#"real: ([0-9]+) sys: ([0-9]+) user: ([0-9]+)" str)])
;; `time' result is 10s of milliseconds? OS ticks, maybe? (list (+ (bytes->number (caddr m))
[msec/tick 10]) (bytes->number (cadddr m)))
(list (* msec/tick (+ (bytes->number (caddr m)) (bytes->number (cadr m))
(bytes->number (cadddr m))))
(* msec/tick (bytes->number (cadr m)))
0))) 0)))
(define (extract-larceny-times bm str) (define (extract-larceny-times bm str)