From 4ede1cab86af36204a07bb24b57b8bc841a9e4dc Mon Sep 17 00:00:00 2001 From: Vasily Chekalkin Date: Thu, 17 Feb 2011 06:32:42 +1100 Subject: [PATCH] Warp gc_gms_validated_objects so we can validate GMS in optimized builds. Use C to enable validation. --- src/gc/gc_gms.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/gc/gc_gms.c b/src/gc/gc_gms.c index 0a85374d6f..ad6917fae0 100644 --- a/src/gc/gc_gms.c +++ b/src/gc/gc_gms.c @@ -777,6 +777,7 @@ Parrot_gc_gms_init(PARROT_INTERP, ARGIN(Parrot_GC_Init_Args *args)) * good performance overrall. */ self->gc_threshold = Parrot_sysmem_amount(interp) / 100; + self->gc_threshold = 1 * 1024 * 1024; Parrot_gc_str_initialize(interp, &self->string_gc); } @@ -2346,7 +2347,7 @@ gc_gms_validate_objects(PARROT_INTERP) { ASSERT_ARGS(gc_gms_validate_objects) -//#ifndef NDEBUG +#if defined(PARROT_GC_VALIDATE) || !defined(NDEBUG) INTVAL i; MarkSweep_GC *self = (MarkSweep_GC *)interp->gc_sys->gc_private; @@ -2361,7 +2362,7 @@ gc_gms_validate_objects(PARROT_INTERP) PMC *pmc = &((pmc_alloc_struct *)ptr)->pmc; PObj_live_CLEAR(pmc);); } -//#endif +#endif } /*