--- ../gc.c	Fri Mar  9 10:46:09 2001
+++ gc.c	Fri Mar  9 10:53:30 2001
@@ -26,2 +26,7 @@
 
+static FILE *log;
+static int serial;
+static int nmarks;
+static int nheaps;
+
 #ifndef setjmp
@@ -289,2 +294,3 @@
     }
+    nheaps += HEAP_SLOTS;
 }
@@ -465,2 +471,3 @@
     obj->as.basic.flags |= FL_MARK;
+    nmarks++;
 
@@ -1031,2 +1038,6 @@
     malloc_memories = 0;
+    if (log == 0) {
+	log = fopen("ggc.out", "w");
+    }
+    nmarks = 0;
 
@@ -1118,2 +1129,3 @@
     gc_sweep();
+    fprintf(log, "%d %d %d\n", ++serial, nmarks, nheaps);
 }