The memory_collected GC statistic does not get updated at present. Patch
below fixes.

Note that a 5000-generation run of life.pasm allocates 32K, and copies
almost 58MB.

--
Peter Gibbs
EmKel Systems

Index: resources.c
===================================================================
RCS file: /home/perlcvs/parrot/resources.c,v
retrieving revision 1.40
diff -u -r1.40 resources.c
--- resources.c 9 Apr 2002 03:49:48 -0000       1.40
+++ resources.c 11 Apr 2002 15:02:49 -0000
@@ -787,6 +787,7 @@
   /* How much is free. That's the total size minus the amount we used */
   new_block->free = new_block->size - (new_block->top - new_block->start);

+  interpreter->memory_collected += (new_block->top - new_block->start);

   /* Now we're done. Put us as the only block on the free list and
      free the rest */


Reply via email to