fix build against https://trac.parrot.org/parrot/changeset/38654 (gc_…

…api merge) s/pobject_lives/Parrot_gc_mark_PObj_alive/ COMPATIBILITY BREAK
fperrad · May 10, 2009 · 20bf64a · 20bf64a
1 parent c0a72c1
commit 20bf64a
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 10 deletions.
diff --git a/src/pmc/luafunction.pmc b/src/pmc/luafunction.pmc
@@ -96,7 +96,7 @@ Marks the function as live.
     VTABLE void mark() {
         SUPER();
         if (f_env(SELF))
-            pobject_lives(INTERP, (PObj *)f_env(SELF));
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)f_env(SELF));
     }
 
 /*

diff --git a/src/pmc/luastring.pmc b/src/pmc/luastring.pmc
@@ -105,7 +105,7 @@ Marks the string as live.
         STRING * str_val;
         GET_ATTR_str_val(INTERP, SELF, str_val);
         if (str_val)
-            pobject_lives(INTERP, (PObj *)str_val);
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)str_val);
     }
 
 /*

diff --git a/src/pmc/luatable.pmc b/src/pmc/luatable.pmc
@@ -357,9 +357,9 @@ static void lua_mark_table(PARROT_INTERP, LuaHash *t, STRING *mode)
     for (i = 0; i < t->size; i++) {
         if (v[i].val) {
             if (mark_key)
-                pobject_lives(interp, (PObj *)v[i].key);
+                Parrot_gc_mark_PObj_alive(interp, (PObj *)v[i].key);
             if (mark_val)
-                pobject_lives(interp, (PObj *)v[i].val);
+                Parrot_gc_mark_PObj_alive(interp, (PObj *)v[i].val);
         }
     }
 }
@@ -424,7 +424,7 @@ Marks the hash as live.
             lua_mark_table(INTERP, t_val(SELF), mode);
 
         if (meta)
-            pobject_lives(INTERP, (PObj *)meta);
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)meta);
     }
 
 /*

diff --git a/src/pmc/luathread.pmc b/src/pmc/luathread.pmc
@@ -100,9 +100,9 @@ Marks the Parrot::Coroutine as live.
 */
     VTABLE void mark() {
         if (t_val(SELF))
-            pobject_lives(INTERP, (PObj *)t_val(SELF));
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)t_val(SELF));
         if (t_env(SELF))
-            pobject_lives(INTERP, (PObj *)t_env(SELF));
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)t_env(SELF));
     }
 
 /*

diff --git a/src/pmc/luauserdata.pmc b/src/pmc/luauserdata.pmc
@@ -93,11 +93,11 @@ Marks the userdata as live.
 */
     VTABLE void mark() {
         if (u_val(SELF))
-            pobject_lives(INTERP, (PObj *)u_val(SELF));
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)u_val(SELF));
         if (u_env(SELF))
-            pobject_lives(INTERP, (PObj *)u_env(SELF));
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)u_env(SELF));
         if (u_mt(SELF))
-            pobject_lives(INTERP, (PObj *)u_mt(SELF));
+            Parrot_gc_mark_PObj_alive(INTERP, (PObj *)u_mt(SELF));
     }
 
 /*