Add gc-timestamp for data structures that need to be updated after

gcs, but not necessarily after each gc.

diff --git a/v7/src/runtime/gcstat.scm b/v7/src/runtime/gcstat.scm
index 2b35280dcd753af457bc209e298863a8ae21075f..771ed3ada87221ba2574abec0568702fc0c812a2 100644 (file)
--- 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 876fac9244dd4acbff977120ab3e63d52a367354..cb1ffabc6ee5db682455ea4e9fdd11dc45a2e07a 100644 (file)
--- 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 d4cd170cb1975ad5438c262d4de2c2a687dda628..b3987bf6c5ed1c54a0365419dcdb2774f9185b69 100644 (file)
--- 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!