[pmc] assign Undef for subclasses of Undef in Scalar.assign_pmc. Raku…

…do test S12-introspection/walk.rakudo pass with this change. This function needs more review, though git-svn-id: https://svn.parrot.org/parrot/trunk@41256 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Sep 14, 2009 · 276cf3a · 276cf3a
1 parent 3a7a780
commit 276cf3a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/pmc/scalar.pmc b/src/pmc/scalar.pmc
@@ -108,6 +108,11 @@ according to the type of C<*value>.
             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);