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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Sep 14 03:26:32 2009
New Revision: 41256
URL: https://trac.parrot.org/parrot/changeset/41256

Log:
[pmc] assign Undef for subclasses of Undef in Scalar.assign_pmc. Rakudo test S12-introspection/walk.rakudo pass with this change. This function needs more review, though

Modified:
   trunk/src/pmc/scalar.pmc

Modified: trunk/src/pmc/scalar.pmc
==============================================================================
--- trunk/src/pmc/scalar.pmc	Mon Sep 14 00:22:26 2009	(r41255)
+++ trunk/src/pmc/scalar.pmc	Mon Sep 14 03:26:32 2009	(r41256)
@@ -108,6 +108,11 @@
             return;
         }
 
+	if (VTABLE_isa(INTERP, value, CONST_STRING(INTERP, "Undef"))) {
+            pmc_reuse(INTERP, SELF, enum_class_Undef, 0);
+            return;
+        }
+
         if (VTABLE_isa(INTERP, value, CONST_STRING(INTERP, "Integer"))) {
             const INTVAL v = VTABLE_get_integer(INTERP, value);
             SELF.set_integer_native(v);