[svn:mod_parrot] r640 - mod_parrot/trunk/src/pmc

[email protected] Sun, 10 May 2009 07:53:43 -0700 (PDT)
Newsgroups perl.cvs.mod_parrot
Message-ID <[email protected]>
Author: jhorwitz
Date: Sun May 10 07:53:42 2009
New Revision: 640

Modified:
   mod_parrot/trunk/src/pmc/modparrothandle.pmc

Log:
update for new GC


Modified: mod_parrot/trunk/src/pmc/modparrothandle.pmc
==============================================================================
--- mod_parrot/trunk/src/pmc/modparrothandle.pmc	(original)
+++ mod_parrot/trunk/src/pmc/modparrothandle.pmc	Sun May 10 07:53:42 2009
@@ -110,13 +110,13 @@
     VTABLE void mark() {
         Parrot_ModParrotHandle_attributes * const data_struct = PARROT_MODPARROTHANDLE(SELF);
         if (data_struct->r)
-            pobject_lives(interp, (PObj *)data_struct->r);
+            Parrot_gc_mark_PObj_alive(interp, (PObj *)data_struct->r);
         if (data_struct->mode)
-            pobject_lives(interp, (PObj *)data_struct->mode);
+            Parrot_gc_mark_PObj_alive(interp, (PObj *)data_struct->mode);
         if (data_struct->encoding)
-            pobject_lives(interp, (PObj *)data_struct->encoding);
+            Parrot_gc_mark_PObj_alive(interp, (PObj *)data_struct->encoding);
         if (data_struct->filename)
-            pobject_lives(interp, (PObj *)data_struct->filename);
+            Parrot_gc_mark_PObj_alive(interp, (PObj *)data_struct->filename);
     }
 
 /*