From 677970772bae053dbc5f2b6a77bdcad80977718d Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 8 Aug 1995 15:32:15 +0000 Subject: [PATCH] SHOW-TIME now uses WITH-TIMINGS. --- v8/src/runtime/global.scm | 33 ++++++++++++--------------------- 1 file changed, 12 insertions(+), 21 deletions(-) diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm index 2403e1e9e..91822fdd2 100644 --- a/v8/src/runtime/global.scm +++ b/v8/src/runtime/global.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: global.scm,v 14.50 1995/07/28 17:45:09 adams Exp $ +$Id: global.scm,v 14.51 1995/08/08 15:32:15 adams Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -183,26 +183,17 @@ MIT in each case. |# |# (define (show-time thunk) - (let ((process-start (process-time-clock)) - (process-start/nogc (runtime)) - (real-start (real-time-clock))) - (let ((value (thunk))) - (let* ((process-end (process-time-clock)) - (process-end/nogc (runtime)) - (real-end (real-time-clock)) - (process-time (- process-end process-start)) - (process-time/nogc - (round->exact (* 1000 (- process-end/nogc process-start/nogc))))) - (newline) - (write-string "process time: ") - (write process-time) - (write-string " (") - (write process-time/nogc) - (write-string " RUN + ") - (write (- process-time process-time/nogc)) - (write-string " GC); real time: ") - (write (- real-end real-start))) - value))) + (with-timings thunk + (lambda (process-non-gc process-gc real) + (newline) + (write-string "process time: ") + (write (+ process-non-gc process-gc)) + (write-string " (") + (write process-non-gc) + (write-string " RUN + ") + (write process-gc) + (write-string " GC); real time: ") + (write real)))) (define (wait-interval ticks) (let ((end (+ (real-time-clock) ticks))) -- 2.25.1