[svn:parrot] r40705 - branches/context_pmc3/src/pmc

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Aug 22 06:37:41 UTC 2009


Author: bacek
Date: Sat Aug 22 06:37:40 2009
New Revision: 40705
URL: https://trac.parrot.org/parrot/changeset/40705

Log:
[pmc] Set custom mark flag in Context PMC.

Modified:
   branches/context_pmc3/src/pmc/context.pmc

Modified: branches/context_pmc3/src/pmc/context.pmc
==============================================================================
--- branches/context_pmc3/src/pmc/context.pmc	Sat Aug 22 06:21:37 2009	(r40704)
+++ branches/context_pmc3/src/pmc/context.pmc	Sat Aug 22 06:37:40 2009	(r40705)
@@ -3,6 +3,11 @@
 
 pmclass Context {
 
+    VTABLE void init() {
+        PMC_data(SELF) = NULL;
+        PObj_custom_mark_destroy_SETALL(SELF);
+    }
+
     VTABLE void mark()
     {
         Parrot_Context * const ctx = PMC_data_typed(SELF, Parrot_Context*);


More information about the parrot-commits mailing list