[svn:parrot] r36584 - trunk/src/pmc
Infinoid at svn.parrot.org
Infinoid at svn.parrot.org
Wed Feb 11 17:57:31 UTC 2009
Author: Infinoid
Date: Wed Feb 11 17:57:31 2009
New Revision: 36584
URL: https://trac.parrot.org/parrot/changeset/36584
Log:
Apply r36540 from vtable_morph_change branch.
Modified:
trunk/src/pmc/bigint.pmc
trunk/src/pmc/bignum.pmc
Modified: trunk/src/pmc/bigint.pmc
==============================================================================
--- trunk/src/pmc/bigint.pmc Wed Feb 11 17:57:27 2009 (r36583)
+++ trunk/src/pmc/bigint.pmc Wed Feb 11 17:57:31 2009 (r36584)
@@ -313,7 +313,7 @@
static void
bigint_abs(PARROT_INTERP, PMC *self, PMC *dest) {
BIGINT *bi_self, *bi_dest;
- VTABLE_morph(interp, dest, interp->vtables[enum_class_BigInt]->pmc_class);
+ pmc_reuse(interp, dest, enum_class_BigInt, 0);
GETATTR_BigInt_bi(interp, self, bi_self);
GETATTR_BigInt_bi(interp, dest, bi_dest);
mpz_abs(bi_dest->b, bi_self->b);
@@ -322,7 +322,7 @@
static void
bigint_neg(PARROT_INTERP, PMC *self, PMC *dest) {
BIGINT *bi_self, *bi_dest;
- VTABLE_morph(interp, dest, interp->vtables[enum_class_BigInt]->pmc_class);
+ pmc_reuse(interp, dest, enum_class_BigInt, 0);
GETATTR_BigInt_bi(interp, self, bi_self);
GETATTR_BigInt_bi(interp, dest, bi_dest);
mpz_neg(bi_dest->b, bi_self->b);
Modified: trunk/src/pmc/bignum.pmc
==============================================================================
--- trunk/src/pmc/bignum.pmc Wed Feb 11 17:57:27 2009 (r36583)
+++ trunk/src/pmc/bignum.pmc Wed Feb 11 17:57:31 2009 (r36584)
@@ -326,7 +326,7 @@
static void
bignum_abs(PARROT_INTERP, PMC *self, PMC *dest) {
BIGNUM *bi_self, *bi_dest;
- VTABLE_morph(interp, dest, enum_class_BigNum);
+ pmc_reuse(interp, dest, enum_class_BigNum, 0);
GETATTR_BigNum_bi(interp, self, bi_self);
GETATTR_BigNum_bi(interp, dest, bi_dest);
mpf_abs(bi_dest->b, bi_self->b);
@@ -335,7 +335,7 @@
static void
bignum_neg(PARROT_INTERP, PMC *self, PMC *dest) {
BIGNUM *bi_self, *bi_dest;
- VTABLE_morph(interp, dest, enum_class_BigNum);
+ pmc_reuse(interp, dest, enum_class_BigNum, 0);
GETATTR_BigNum_bi(interp, self, bi_self);
GETATTR_BigNum_bi(interp, dest, bi_dest);
mpf_neg(bi_dest->b, bi_self->b);
@@ -910,7 +910,7 @@
MULTI PMC *subtract(BigNum value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -920,7 +920,7 @@
MULTI PMC *subtract(Integer value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -937,7 +937,7 @@
VTABLE PMC *subtract_int(INTVAL value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1024,7 +1024,7 @@
VTABLE PMC *pow_int(INTVAL value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1044,7 +1044,7 @@
MULTI PMC *divide(BigNum value, PMC *dest) {
BIGNUM *bi;
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1063,7 +1063,7 @@
MULTI PMC *divide(Integer value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1080,7 +1080,7 @@
VTABLE PMC *divide_int(INTVAL value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1128,7 +1128,7 @@
VTABLE PMC *floor_divide_int(INTVAL value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1157,7 +1157,7 @@
MULTI PMC *modulus(BigNum value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1167,7 +1167,7 @@
MULTI PMC *modulus(Integer value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1292,7 +1292,7 @@
MULTI PMC *bitwise_shl(BigNum value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1304,7 +1304,7 @@
MULTI PMC *bitwise_shl(Integer value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1321,7 +1321,7 @@
VTABLE PMC *bitwise_shl_int(INTVAL value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1372,7 +1372,7 @@
MULTI PMC *bitwise_shr(BigNum value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1384,7 +1384,7 @@
MULTI PMC *bitwise_shr(Integer value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1402,7 +1402,7 @@
VTABLE PMC *bitwise_shr_int(INTVAL value, PMC *dest) {
if (dest)
- VTABLE_morph(interp, dest, SELF->vtable->base_type);
+ pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
else
dest = pmc_new(INTERP, SELF->vtable->base_type);
More information about the parrot-commits
mailing list