[svn:parrot] r49671 - branches/generational_gc/src/gc
bacek at svn.parrot.org
bacek at svn.parrot.org
Mon Oct 25 10:32:51 UTC 2010
Author: bacek
Date: Mon Oct 25 10:32:51 2010
New Revision: 49671
URL: https://trac.parrot.org/parrot/changeset/49671
Log:
Wrap validating functions in ifndef NEBUG.
Modified:
branches/generational_gc/src/gc/gc_ms2.c
Modified: branches/generational_gc/src/gc/gc_ms2.c
==============================================================================
--- branches/generational_gc/src/gc/gc_ms2.c Mon Oct 25 10:32:39 2010 (r49670)
+++ branches/generational_gc/src/gc/gc_ms2.c Mon Oct 25 10:32:51 2010 (r49671)
@@ -681,7 +681,9 @@
else
gen = self->current_generation = 0;
+#ifdef DETAIL_MEMORY_DEBUG
gc_ms2_print_stats(interp, "Before", gen);
+#endif
gc_ms2_check_sanity(interp);
@@ -800,9 +802,15 @@
gc_ms2_check_sanity(interp);
+#ifdef DETAIL_MEMORY_DEBUG
gc_ms2_print_stats(interp, "Bringing", gen);
+#endif
+
gc_ms2_bring_them_together(interp, old_object_tails);
+
+#ifdef DETAIL_MEMORY_DEBUG
gc_ms2_print_stats(interp, "Here", gen);
+#endif
/* Now. Sweep all dead objects */
@@ -871,7 +879,9 @@
gc_ms2_ensure_flags(interp);
+#ifdef DETAIL_MEMORY_DEBUG
gc_ms2_print_stats(interp, "After", gen);
+#endif
}
/*
@@ -942,7 +952,7 @@
gc_ms2_check_sanity(interp);
-#if 1
+#ifndef NDEBUG
// DEBUG ONLY. Simple recursive check
interp->gc_sys->mark_pmc_header = gc_ms2_pmc_validate;
interp->gc_sys->mark_str_header = gc_ms2_string_validate;
@@ -2143,7 +2153,7 @@
gc_ms2_check_sanity(PARROT_INTERP)
{
ASSERT_ARGS(gc_ms2_check_sanity)
-
+#ifndef NDEBUG
MarkSweep_GC *self = (MarkSweep_GC *)interp->gc_sys->gc_private;
List_Item_Header *tmp;
int gen;
@@ -2158,6 +2168,7 @@
tmp = tmp->next;
}
}
+#endif
}
/*
@@ -2175,7 +2186,6 @@
gc_ms2_print_stats(PARROT_INTERP, const char* header, int gen)
{
ASSERT_ARGS(gc_ms2_print_stats)
-#ifdef DETAIL_MEMORY_DEBUG
MarkSweep_GC *self = (MarkSweep_GC *)interp->gc_sys->gc_private;
fprintf(stderr, "%s\ngen: %d\n0: %d %d\n1: %d %d\n2: %d %d\n",
@@ -2197,7 +2207,6 @@
fprintf(stderr, "\n");
-#endif
}
static void
@@ -2215,6 +2224,7 @@
static void
gc_ms2_ensure_flags(PARROT_INTERP)
{
+#ifndef NDEBUG
MarkSweep_GC *self = (MarkSweep_GC *)interp->gc_sys->gc_private;
gc_ms2_ensure_flags_in_list(interp, self->objects[0]);
gc_ms2_ensure_flags_in_list(interp, self->objects[1]);
@@ -2222,6 +2232,7 @@
gc_ms2_ensure_flags_in_list(interp, self->strings[0]);
gc_ms2_ensure_flags_in_list(interp, self->strings[1]);
gc_ms2_ensure_flags_in_list(interp, self->strings[2]);
+#endif
}
/*
More information about the parrot-commits
mailing list