diff --git a/src/ikarus.boot b/src/ikarus.boot index 3cfeee3..c19ea0b 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.timer.ss b/src/ikarus.timer.ss index 43c0a23..54e7de9 100644 --- a/src/ikarus.timer.ss +++ b/src/ikarus.timer.ss @@ -48,6 +48,16 @@ (stats-real-usecs t1) (stats-real-usecs t0)) (msecs (stats-gc-real-secs t1) (stats-gc-real-secs t0) (stats-gc-real-usecs t1) (stats-gc-real-usecs t0))) + (print-time "user" + (msecs (stats-user-secs t1) (stats-user-secs t0) + (stats-user-usecs t1) (stats-user-usecs t0)) + (msecs (stats-gc-user-secs t1) (stats-gc-user-secs t0) + (stats-gc-user-usecs t1) (stats-gc-user-usecs t0))) + (print-time "sys" + (msecs (stats-sys-secs t1) (stats-sys-secs t0) + (stats-sys-usecs t1) (stats-sys-usecs t0)) + (msecs (stats-gc-sys-secs t1) (stats-gc-sys-secs t0) + (stats-gc-sys-usecs t1) (stats-gc-sys-usecs t0))) (printf " ~a bytes allocated\n" bytes)) (define (print-stats-old message bytes t1 t0)