[svn:parrot] r48446 - trunk/src/pmc

NotFound at svn.parrot.org NotFound at svn.parrot.org
Fri Aug 13 07:25:42 UTC 2010


Author: NotFound
Date: Fri Aug 13 07:25:41 2010
New Revision: 48446
URL: https://trac.parrot.org/parrot/changeset/48446

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

Modified:
   trunk/src/pmc/fixedpmcarray.pmc
   trunk/src/pmc/resizablepmcarray.pmc

Modified: trunk/src/pmc/fixedpmcarray.pmc
==============================================================================
--- trunk/src/pmc/fixedpmcarray.pmc	Fri Aug 13 06:58:36 2010	(r48445)
+++ trunk/src/pmc/fixedpmcarray.pmc	Fri Aug 13 07:25:41 2010	(r48446)
@@ -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: trunk/src/pmc/resizablepmcarray.pmc
==============================================================================
--- trunk/src/pmc/resizablepmcarray.pmc	Fri Aug 13 06:58:36 2010	(r48445)
+++ trunk/src/pmc/resizablepmcarray.pmc	Fri Aug 13 07:25:41 2010	(r48446)
@@ -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)>


More information about the parrot-commits mailing list