* Stats record now contains gc-info fields.

2007-08-30 12:54:21 -04:00
parent 46755415b4
commit f030e4e11d
6 changed files with 75 additions and 34 deletions
@@ -4,10 +4,17 @@
  (import (except (ikarus) time-it))

  (define-record stats 
-    (user-secs user-usecs sys-secs sys-usecs real-secs real-usecs collection-id))
+    (user-secs user-usecs 
+     sys-secs sys-usecs 
+     real-secs real-usecs
+     collection-id
+     gc-user-secs gc-user-usecs
+     gc-sys-secs gc-sys-usecs 
+     gc-real-secs gc-real-usecs
+     ))

  (define (mk-stats)
-    (make-stats #f #f #f #f #f #f #f))
+    (make-stats #f #f #f #f #f #f #f #f #f #f #f #f #f))

  (define (set-stats! t)
    (foreign-call "ikrt_stats_now" t))