[svn:parrot] r45148 - in trunk: src/gc t/op

bacek at svn.parrot.org bacek at svn.parrot.org
Wed Mar 24 09:47:46 UTC 2010


Author: bacek
Date: Wed Mar 24 09:47:43 2010
New Revision: 45148
URL: https://trac.parrot.org/parrot/changeset/45148

Log:
Wallpapering latest failure in t/op/gc.t by cleaning up number of early_gc_PMCs in mark_sweep and explicitely call it in test

Modified:
   trunk/src/gc/gc_ms.c
   trunk/t/op/gc.t

Modified: trunk/src/gc/gc_ms.c
==============================================================================
--- trunk/src/gc/gc_ms.c	Wed Mar 24 08:35:56 2010	(r45147)
+++ trunk/src/gc/gc_ms.c	Wed Mar 24 09:47:43 2010	(r45148)
@@ -523,6 +523,10 @@
     --mem_pools->gc_mark_block_level;
     mem_pools->header_allocs_since_last_collect = 0;
 
+    /* Clean early GC */
+    if (!mem_pools->lazy_gc)
+        mem_pools->num_early_gc_PMCs = 0;
+
     return;
 }
 

Modified: trunk/t/op/gc.t
==============================================================================
--- trunk/t/op/gc.t	Wed Mar 24 08:35:56 2010	(r45147)
+++ trunk/t/op/gc.t	Wed Mar 24 09:47:43 2010	(r45148)
@@ -77,6 +77,7 @@
 
 # sweep 0, with object that needs destroy/destroy
 .sub sweep_0_need_destroy_destroy_obj
+    sweep 1
     $P0 = new 'Undef'
     needs_destroy $P0
     $I1 = interpinfo .INTERPINFO_GC_MARK_RUNS   # How many GC mark runs have we done already?


More information about the parrot-commits mailing list