[svn:parrot] r47375 - branches/gc_massacre/src/gc

mikehh at svn.parrot.org mikehh at svn.parrot.org
Sat Jun 5 08:04:20 UTC 2010


Author: mikehh
Date: Sat Jun  5 08:04:20 2010
New Revision: 47375
URL: https://trac.parrot.org/parrot/changeset/47375

Log:
fix/add ASSERT_ARGS

Modified:
   branches/gc_massacre/src/gc/gc_ms2.c

Modified: branches/gc_massacre/src/gc/gc_ms2.c
==============================================================================
--- branches/gc_massacre/src/gc/gc_ms2.c	Sat Jun  5 03:10:19 2010	(r47374)
+++ branches/gc_massacre/src/gc/gc_ms2.c	Sat Jun  5 08:04:20 2010	(r47375)
@@ -707,6 +707,7 @@
 static void
 gc_ms2_sweep_pmc_cb(PARROT_INTERP, ARGIN(PObj *obj))
 {
+    ASSERT_ARGS(gc_ms2_sweep_pmc_cb)
     PMC *pmc = (PMC *)obj;
     Parrot_pmc_destroy(interp, pmc);
 }
@@ -757,7 +758,7 @@
 static int
 gc_ms2_is_string_ptr(PARROT_INTERP, ARGIN_NULLOK(void *ptr))
 {
-    ASSERT_ARGS(gc_ms2_is_pmc_ptr)
+    ASSERT_ARGS(gc_ms2_is_string_ptr)
     MarkSweep_GC      *self = (MarkSweep_GC *)interp->gc_sys->gc_private;
     return gc_ms2_is_ptr_owned(interp, ptr, self->string_allocator, self->strings);
 }
@@ -787,6 +788,7 @@
 static void
 gc_ms2_sweep_string_cb(PARROT_INTERP, ARGIN(PObj *obj))
 {
+    ASSERT_ARGS(gc_ms2_sweep_string_cb)
     STRING *str = (STRING *)obj;
     /* Compact string pool here. Or get rid of "shared buffers" and just free storage */
     if (Buffer_bufstart(str) && !PObj_external_TEST(str))


More information about the parrot-commits mailing list