From 78da2ea8f3d9c5ddf6c01ff7e5cf3e352a5d9829 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 30 Mar 1988 23:05:03 +0000 Subject: [PATCH] Change time reports to match compiler. --- v7/src/sf/toplev.scm | 8 ++++---- v8/src/sf/toplev.scm | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm index d6dffc1a6..a4a30757f 100644 --- a/v7/src/sf/toplev.scm +++ b/v7/src/sf/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 3.8 1988/03/30 21:59:38 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 3.9 1988/03/30 23:05:03 cph Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -336,7 +336,7 @@ Currently only the 68000 implementation needs this." (set! previous-name this-name)) (define (end-phase) - (let ((this-process-time (runtime)) + (let ((this-process-time (process-time-clock)) (this-real-time (real-time-clock))) (if previous-process-time (let ((delta-process-time (- this-process-time previous-process-time))) @@ -344,8 +344,8 @@ Currently only the 68000 implementation needs this." (time-report " Time taken" delta-process-time (- this-real-time previous-real-time)))) - (set! previous-real-time this-time) - (set! previous-process-time this-process-time))) + (set! previous-process-time this-process-time) + (set! previous-real-time this-real-time))) ;; Should match the compiler. We'll merge the two at some point. (define (time-report prefix process-time real-time) diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm index 8d61367a4..16d5c04bc 100644 --- a/v8/src/sf/toplev.scm +++ b/v8/src/sf/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 3.8 1988/03/30 21:59:38 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 3.9 1988/03/30 23:05:03 cph Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -336,7 +336,7 @@ Currently only the 68000 implementation needs this." (set! previous-name this-name)) (define (end-phase) - (let ((this-process-time (runtime)) + (let ((this-process-time (process-time-clock)) (this-real-time (real-time-clock))) (if previous-process-time (let ((delta-process-time (- this-process-time previous-process-time))) @@ -344,8 +344,8 @@ Currently only the 68000 implementation needs this." (time-report " Time taken" delta-process-time (- this-real-time previous-real-time)))) - (set! previous-real-time this-time) - (set! previous-process-time this-process-time))) + (set! previous-process-time this-process-time) + (set! previous-real-time this-real-time))) ;; Should match the compiler. We'll merge the two at some point. (define (time-report prefix process-time real-time) -- 2.25.1