From c93e3b77ef17c3bfade23212562a20f82cb1c472 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 26 Mar 1990 19:38:43 +0000 Subject: [PATCH] Add gc-timestamp for data structures that need to be updated after gcs, but not necessarily after each gc. --- v7/src/runtime/gcstat.scm | 10 +++++++--- v7/src/runtime/runtime.pkg | 3 ++- v8/src/runtime/runtime.pkg | 3 ++- 3 files changed, 11 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/gcstat.scm b/v7/src/runtime/gcstat.scm index 2b35280dc..771ed3ada 100644 --- a/v7/src/runtime/gcstat.scm +++ b/v7/src/runtime/gcstat.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gcstat.scm,v 14.1 1988/06/13 11:45:17 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gcstat.scm,v 14.2 1990/03/26 19:38:43 jinx Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -44,6 +44,7 @@ MIT in each case. |# (BOUNDED . ,bounded:install-history!) (UNBOUNDED . ,unbounded:install-history!))) (set-history-mode! 'BOUNDED) + (set! meter (cons 0 0)) (statistics-reset!) (add-event-receiver! event:after-restore statistics-reset!) (set! hook/gc-start recorder/gc-start) @@ -62,8 +63,11 @@ MIT in each case. |# (define last-gc-start) (define last-gc-end) +(define (gc-timestamp) + meter) + (define (statistics-reset!) - (set! meter 1) + (set! meter (cons 1 (1+ (cdr meter)))) (set! total-gc-time 0) (set! last-gc-start false) (set! last-gc-end (process-time-clock)) @@ -82,7 +86,7 @@ MIT in each case. |# (make-gc-statistic meter heap-left start-time end-time last-gc-start last-gc-end))) - (set! meter (1+ meter)) + (set! meter (cons (1+ (car meter)) (cdr meter))) (set! total-gc-time (+ (- end-time start-time) total-gc-time)) (set! last-gc-start start-time) (set! last-gc-end end-time) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 876fac924..cb1ffabc6 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.62 1990/02/27 19:53:29 markf Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.63 1990/03/26 19:38:29 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -605,6 +605,7 @@ MIT in each case. |# gc-statistic/this-gc-end gc-statistic/this-gc-start gc-statistics + gc-timestamp gctime) (export (runtime gc-notification) default/record-statistic! diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index d4cd170cb..b3987bf6c 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.62 1990/02/27 19:53:29 markf Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.63 1990/03/26 19:38:29 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -605,6 +605,7 @@ MIT in each case. |# gc-statistic/this-gc-end gc-statistic/this-gc-start gc-statistics + gc-timestamp gctime) (export (runtime gc-notification) default/record-statistic! -- 2.25.1