[svn:parrot] r35608 - branches/morph_pmc_type/src/ops

Author: Whiteknight
Date: Thu Jan 15 16:17:10 2009
New Revision: 35608

Modified:
   branches/morph_pmc_type/src/ops/experimental.ops
   branches/morph_pmc_type/src/ops/pic.ops

Log:
[morph_pmc_type] update some files in src/ops/*

Modified: branches/morph_pmc_type/src/ops/experimental.ops
==============================================================================
--- branches/morph_pmc_type/src/ops/experimental.ops	(original)
+++ branches/morph_pmc_type/src/ops/experimental.ops	Thu Jan 15 16:17:10 2009
@@ -165,8 +165,7 @@
 =cut
 
 inline op morph(invar PMC, in STR) {
-  INTVAL type = pmc_type(interp, $2);
-  VTABLE_morph(interp, $1, type);
+    VTABLE_morph_string(interp, $1, $2);
 }
 
 =item B<exec>(in STR)

Modified: branches/morph_pmc_type/src/ops/pic.ops
==============================================================================
--- branches/morph_pmc_type/src/ops/pic.ops	(original)
+++ branches/morph_pmc_type/src/ops/pic.ops	Thu Jan 15 16:17:10 2009
@@ -108,7 +108,7 @@
                 goto ADDRESS(handler);
             }
             /* #RT42354 preserve type system */
-            VTABLE_morph(interp, left, enum_class_BigInt);
+            VTABLE_morph_string(interp, left, string_from_cstring(interp, "BigInt", 6));
             VTABLE_set_integer_native(interp, left, a);
             $2 = VTABLE_subtract_int(interp, left, b, left);
         }