[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