From 6eab4f9bc3749adecf69c06d812efbbeb4b5723f Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 26 Jul 1996 01:01:44 +0000 Subject: [PATCH] Tweaked format of time reports so that the non-gc process time is always first. --- v8/src/compiler/base/toplev.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/v8/src/compiler/base/toplev.scm b/v8/src/compiler/base/toplev.scm index 4fd7c6821..1c6234408 100644 --- a/v8/src/compiler/base/toplev.scm +++ b/v8/src/compiler/base/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: toplev.scm,v 1.12 1996/07/20 18:08:46 adams Exp $ +$Id: toplev.scm,v 1.13 1996/07/26 01:01:44 adams Exp $ Copyright (c) 1988-1996 Massachusetts Institute of Technology @@ -719,17 +719,17 @@ MIT in each case. |# (write-string *output-prefix*) (write-string prefix) (write-string ": ") - (write-time (+ process-non-gc process-gc)) + (write-time process-non-gc) (if (not (= process-gc 0)) (begin - (write-string " (") - (write-time process-non-gc) - (write-string " + ") + (write-string " (+ ") (write-time process-gc) - (write-string " GC)"))) - (write-string " (process time); ") + (write-string " GC = ") + (write-time (+ process-gc process-non-gc)) + (write-string ")"))) + (write-string " process time, ") (write-time real) - (write-string " (real time)")) + (write-string " real time")) (define compiler-intermediate-time-report (compiler-time-reporter " Time taken")) -- 2.25.1