[svn:parrot] r48469 - branches/gc_threshold_tuning/src/pmc

[chromatic at svn.parrot.org]

Author: chromatic
Date: Sat Aug 14 00:32:23 2010
New Revision: 48469
URL: https://trac.parrot.org/parrot/changeset/48469

Log:
Don't set custom mark flag on empty RPA/FPA

Modified:
   branches/gc_threshold_tuning/src/pmc/fixedpmcarray.pmc
   branches/gc_threshold_tuning/src/pmc/resizablepmcarray.pmc

Modified: branches/gc_threshold_tuning/src/pmc/fixedpmcarray.pmc
==============================================================================
--- branches/gc_threshold_tuning/src/pmc/fixedpmcarray.pmc	Sat Aug 14 00:32:20 2010	(r48468)
+++ branches/gc_threshold_tuning/src/pmc/fixedpmcarray.pmc	Sat Aug 14 00:32:23 2010	(r48469)
@@ -68,20 +68,6 @@
 
 =over 4
 
-=item C<void init()>
-
-Initializes the array.
-
-=cut
-
-*/
-
-    VTABLE void init() {
-        PObj_custom_mark_destroy_SETALL(SELF);
-    }
-
-/*
-
 =item C<void init_int(INTVAL size)>
 
 Initializes the array.
@@ -96,8 +82,6 @@
                     _("FixedPMCArray: Cannot set array size to a negative number (%d)"), size);
 
         SELF.set_integer_native(size);
-
-        PObj_custom_mark_destroy_SETALL(SELF);
     }
 
 /*
@@ -406,6 +390,7 @@
         for (i = 0; i < size; ++i)
             data[i] = PMCNULL;
 
+        PObj_custom_mark_destroy_SETALL(SELF);
         PMC_array(SELF) = data;
     }
 

Modified: branches/gc_threshold_tuning/src/pmc/resizablepmcarray.pmc
==============================================================================
--- branches/gc_threshold_tuning/src/pmc/resizablepmcarray.pmc	Sat Aug 14 00:32:20 2010	(r48468)
+++ branches/gc_threshold_tuning/src/pmc/resizablepmcarray.pmc	Sat Aug 14 00:32:23 2010	(r48469)
@@ -89,20 +89,6 @@
 pmclass ResizablePMCArray extends FixedPMCArray auto_attrs provides array {
     ATTR INTVAL resize_threshold; /* max size before array needs resizing */
 
-
-/*
-=item C<void init()>
-
-Initializes the array.
-
-=cut
-
-*/
-
-    VTABLE void init() {
-        PObj_custom_mark_destroy_SETALL(SELF);
-    }
-
 /*
 
 =item C<void set_integer_native(INTVAL size)>