develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35362 - branches/pdd09gc_part1/src/gc

From:
Whiteknight
Date:
January 10, 2009 14:08
Subject:
[svn:parrot] r35362 - branches/pdd09gc_part1/src/gc
Message ID:
20090110220810.A21B8CB9F9@x12.develooper.com
Author: Whiteknight
Date: Sat Jan 10 14:08:09 2009
New Revision: 35362

Modified:
   branches/pdd09gc_part1/src/gc/incremental_ms.c

Log:
[pdd09gc_part1] move a directive to include more random tests in the DEBUG mode only

Modified: branches/pdd09gc_part1/src/gc/incremental_ms.c
==============================================================================
--- branches/pdd09gc_part1/src/gc/incremental_ms.c	(original)
+++ branches/pdd09gc_part1/src/gc/incremental_ms.c	Sat Jan 10 14:08:09 2009
@@ -135,6 +135,7 @@
     arena_base->do_gc_mark         = Parrot_gc_it_run;
     arena_base->finalize_gc_system = Parrot_gc_it_deinit;
     arena_base->init_pool          = Parrot_gc_it_pool_init;
+#  if GC_IT_DEBUG
     {
         /* Let's just test the hell out of this to make sure that things are
            doing what I think they are doing. */
@@ -152,7 +153,6 @@
         PARROT_ASSERT(hdr == PObj_to_IT_HDR(pobj));
         PARROT_ASSERT(pobj == IT_HDR_to_PObj(hdr));
     }
-#  if GC_IT_DEBUG
     fprintf(stderr, "GC IT Initialized: %p\n", gc_priv_data);
     fprintf(stderr, "SIZES. Hdr: %d, Data: %d\n", sizeof (Gc_it_hdr),
         sizeof (Gc_it_data));



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About