[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);
}
/*