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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat May 30 01:16:08 2009
New Revision: 39252
URL: https://trac.parrot.org/parrot/changeset/39252

Log:
[pmc][cage] Fix BigInt pmc_reuse calls. We can't reuse Null.

Modified:
   trunk/src/pmc/bigint.pmc

Modified: trunk/src/pmc/bigint.pmc
==============================================================================
--- trunk/src/pmc/bigint.pmc	Sat May 30 01:15:48 2009	(r39251)
+++ trunk/src/pmc/bigint.pmc	Sat May 30 01:16:08 2009	(r39252)
@@ -893,7 +893,7 @@
 
 
     MULTI PMC *subtract(BigInt value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -903,7 +903,7 @@
     }
 
     MULTI PMC *subtract(Integer value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -921,7 +921,7 @@
     }
 
     VTABLE PMC *subtract_int(INTVAL value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1011,7 +1011,7 @@
     }
 
     VTABLE PMC *pow_int(INTVAL value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1031,7 +1031,7 @@
 
     MULTI PMC *divide(BigInt value, PMC *dest) {
         BIGINT *bi;
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1050,7 +1050,7 @@
     }
 
     MULTI PMC *divide(Integer value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1068,7 +1068,7 @@
     }
 
     VTABLE PMC *divide_int(INTVAL value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1117,7 +1117,7 @@
     }
 
     VTABLE PMC *floor_divide_int(INTVAL value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1146,7 +1146,7 @@
     }
 
     MULTI PMC *modulus(BigInt value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1156,7 +1156,7 @@
     }
 
     MULTI PMC *modulus(Integer value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1282,7 +1282,7 @@
 */
 
     MULTI PMC *bitwise_shl(BigInt value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1294,7 +1294,7 @@
     }
 
     MULTI PMC *bitwise_shl(Integer value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1312,7 +1312,7 @@
     }
 
     VTABLE PMC *bitwise_shl_int(INTVAL value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1363,7 +1363,7 @@
 */
 
     MULTI PMC *bitwise_shr(BigInt value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1375,7 +1375,7 @@
     }
 
     MULTI PMC *bitwise_shr(Integer value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);
@@ -1394,7 +1394,7 @@
     }
 
     VTABLE PMC *bitwise_shr_int(INTVAL value, PMC *dest) {
-        if (dest)
+        if (!PMC_IS_NULL(dest))
             pmc_reuse(interp, dest, SELF->vtable->base_type, 0);
         else
             dest = pmc_new(INTERP, SELF->vtable->base_type);