[svn:parrot] r38029 - trunk/src/pmc

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Apr 10 19:47:07 2009
New Revision: 38029
URL: https://trac.parrot.org/parrot/changeset/38029

Log:
[PMC] replace some code that uses Ref
Neither of the diffs has test coverage, so this is my best guess at DTRT.

Modified:
   trunk/src/pmc/scalar.pmc
   trunk/src/pmc/undef.pmc

Modified: trunk/src/pmc/scalar.pmc
==============================================================================
--- trunk/src/pmc/scalar.pmc	Fri Apr 10 19:33:05 2009	(r38028)
+++ trunk/src/pmc/scalar.pmc	Fri Apr 10 19:47:07 2009	(r38029)
@@ -132,7 +132,7 @@
             SELF.set_string_native(v);
             return;
         }
-        pmc_reuse(INTERP, SELF, enum_class_Ref, 0);
+        pmc_reuse(INTERP, SELF, value->vtable->base_type, 0);
         SELF.set_pmc(value);
     }
 

Modified: trunk/src/pmc/undef.pmc
==============================================================================
--- trunk/src/pmc/undef.pmc	Fri Apr 10 19:33:05 2009	(r38028)
+++ trunk/src/pmc/undef.pmc	Fri Apr 10 19:47:07 2009	(r38029)
@@ -40,7 +40,7 @@
 */
 
     VTABLE void set_pmc(PMC *other) {
-        pmc_reuse(INTERP, SELF, enum_class_Ref, 0);
+        pmc_reuse(INTERP, SELF, other->vtable->base_type, 0);
         VTABLE_set_pmc(INTERP, SELF, other);
     }