Front page | perl.cvs.parrot |
Postings from January 2009
[svn:parrot] r35608 - branches/morph_pmc_type/src/ops
From:
Whiteknight
Date:
January 15, 2009 16:17
Subject:
[svn:parrot] r35608 - branches/morph_pmc_type/src/ops
Message ID:
20090116001711.F2626CB9AE@x12.develooper.com
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);
}
-
[svn:parrot] r35608 - branches/morph_pmc_type/src/ops
by Whiteknight