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

bacek at svn.parrot.org bacek at svn.parrot.org
Tue Jul 14 14:19:31 UTC 2009


Author: bacek
Date: Tue Jul 14 14:19:30 2009
New Revision: 40077
URL: https://trac.parrot.org/parrot/changeset/40077

Log:
[cage] Remove PMCProxy.mark and .destroy.

PMCProxy inherited from Class and doesn't have additional ATTRibutes. Which means
PMCProxy.mark and .destroy should be exactly the same as Class'.

Modified:
   trunk/src/pmc/pmcproxy.pmc

Modified: trunk/src/pmc/pmcproxy.pmc
==============================================================================
--- trunk/src/pmc/pmcproxy.pmc	Tue Jul 14 07:44:50 2009	(r40076)
+++ trunk/src/pmc/pmcproxy.pmc	Tue Jul 14 14:19:30 2009	(r40077)
@@ -202,59 +202,6 @@
 
 /*
 
-=item C<void destroy()>
-
-Free the memory associated with the object's underlying struct.
-
-=cut
-
-*/
-
-    VTABLE void destroy() {
-        mem_sys_free(PMC_data(SELF));
-    }
-
-/*
-
-=item C<void mark()>
-
-Mark any referenced strings and PMCs in the structure as live.
-
-=cut
-
-*/
-
-    VTABLE void mark() {
-        Parrot_Class_attributes * const _pmc = PARROT_CLASS(SELF);
-
-        if (_pmc->name)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->name);
-        if (_pmc->_namespace)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->_namespace);
-        if (_pmc->parents)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->parents);
-        if (_pmc->all_parents)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->all_parents);
-        if (_pmc->roles)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->roles);
-        if (_pmc->methods)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->methods);
-        if (_pmc->vtable_overrides)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->vtable_overrides);
-        if (_pmc->parent_overrides)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->parent_overrides);
-        if (_pmc->attrib_metadata)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->attrib_metadata);
-        if (_pmc->attrib_index)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->attrib_index);
-        if (_pmc->attrib_cache)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->attrib_cache);
-        if (_pmc->resolve_method)
-            Parrot_gc_mark_PObj_alive(interp, (PObj *)_pmc->resolve_method);
-    }
-
-/*
-
 =item C<INTVAL isa_pmc(PMC *classname)>
 
 Returns whether the class is or inherits from C<*classname>.


More information about the parrot-commits mailing list