[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