more reverts, make it work for Parrot r37197 again

bschmalhofer · Apr 17, 2009 · 5a8157f · 5a8157f
1 parent d76c493
commit 5a8157f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/pmc/phpresource.pmc b/src/pmc/phpresource.pmc
@@ -47,6 +47,8 @@ Sets the referenced PMC to C<initializer>.
 
 */
     VTABLE void init_pmc(PMC *initializer) {
+        PMC_pmc_val(SELF) = initializer;
+        PObj_custom_mark_SET(SELF);
     }
 
 /*
@@ -59,6 +61,7 @@ Get the referenced PMC.
 
 */
     VTABLE PMC *get_pmc() {
+        return PMC_pmc_val(SELF);
     }
 
 /*