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

mikehh at svn.parrot.org mikehh at svn.parrot.org
Sun Mar 28 16:21:01 UTC 2010


Author: mikehh
Date: Sun Mar 28 16:21:00 2010
New Revision: 45256
URL: https://trac.parrot.org/parrot/changeset/45256

Log:
fix codetest failure - unused assert macros - src/pmc/bigint.pmc

Modified:
   trunk/src/pmc/bigint.pmc

Modified: trunk/src/pmc/bigint.pmc
==============================================================================
--- trunk/src/pmc/bigint.pmc	Sun Mar 28 15:46:52 2010	(r45255)
+++ trunk/src/pmc/bigint.pmc	Sun Mar 28 16:21:00 2010	(r45256)
@@ -365,6 +365,8 @@
 
 static void
 bigint_clear(PARROT_INTERP, ARGIN(PMC *self)) {
+    ASSERT_ARGS(bigint_clear)
+
     BIGINT * bi;
     GETATTR_BigInt_bi(interp, self, bi);
     mpz_clear(bi->b);
@@ -373,6 +375,8 @@
 
 static void
 bigint_set(PARROT_INTERP, ARGMOD(PMC *dest), ARGIN(PMC *src)) {
+    ASSERT_ARGS(bigint_set)
+
     BIGINT *bi_dest, *bi_src;
     GETATTR_BigInt_bi(interp, dest, bi_dest);
     GETATTR_BigInt_bi(interp, src,  bi_src);
@@ -383,6 +387,8 @@
 
 static void
 bigint_set_long(PARROT_INTERP, ARGMOD(PMC *self), long value) {
+    ASSERT_ARGS(bigint_set_long)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     mpz_set_si(bi->b, value);
@@ -390,6 +396,8 @@
 
 static void
 bigint_set_double(PARROT_INTERP, ARGMOD(PMC *self), double value) {
+    ASSERT_ARGS(bigint_set_double)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     mpz_set_d(bi->b, value);
@@ -397,6 +405,8 @@
 
 static void
 bigint_set_str(PARROT_INTERP, ARGMOD(PMC *self), ARGIN(const char *value), int base) {
+    ASSERT_ARGS(bigint_set_str)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     mpz_set_str(bi->b, value, base);
@@ -406,6 +416,8 @@
 PARROT_WARN_UNUSED_RESULT
 static BIGINT*
 bigint_get_self(PARROT_INTERP, ARGIN(PMC *self)) {
+    ASSERT_ARGS(bigint_get_self)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     return bi;
@@ -413,6 +425,8 @@
 
 static void
 bigint_set_self(PARROT_INTERP, ARGMOD(PMC *self), ARGIN(BIGINT *value)) {
+    ASSERT_ARGS(bigint_set_self)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     mpz_set(bi->b, (mpz_srcptr)((BIGINT*)value)->b);
@@ -421,6 +435,8 @@
 PARROT_WARN_UNUSED_RESULT
 static long
 bigint_get_long(PARROT_INTERP, ARGIN(PMC *self)) {
+    ASSERT_ARGS(bigint_get_long)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     if (mpz_fits_slong_p(bi->b))
@@ -444,6 +460,8 @@
 PARROT_CANNOT_RETURN_NULL
 static char *
 bigint_get_string(PARROT_INTERP, ARGIN(PMC *self), int base) {
+    ASSERT_ARGS(bigint_get_string)
+
     BIGINT *bi;
     size_t  n;
     char   *s;
@@ -457,6 +475,8 @@
 PARROT_WARN_UNUSED_RESULT
 static double
 bigint_get_double(PARROT_INTERP, ARGIN(PMC *self)) {
+    ASSERT_ARGS(bigint_get_double)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     return mpz_get_d(bi->b);
@@ -464,6 +484,8 @@
 
 static void
 bigint_add_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_add_bigint)
+
     BIGINT *bi_self, *bi_value, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, value, bi_value);
@@ -473,6 +495,8 @@
 
 static void
 bigint_add_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_add_bigint_int)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -484,6 +508,8 @@
 
 static void
 bigint_sub_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_sub_bigint)
+
     BIGINT *bi_self, *bi_value, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, value, bi_value);
@@ -493,6 +519,8 @@
 
 static void
 bigint_sub_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_sub_bigint_int)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -504,6 +532,8 @@
 
 static void
 bigint_mul_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_mul_bigint)
+
     BIGINT *bi_self, *bi_value, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, value, bi_value);
@@ -513,6 +543,8 @@
 
 static void
 bigint_mul_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_mul_bigint_int)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -521,6 +553,8 @@
 
 static void
 bigint_pow_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_pow_bigint_int)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -546,6 +580,8 @@
 
 static void
 bigint_div_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_div_bigint)
+
     BIGINT *bi_self, *bi_value, *bi_dest;
     bigint_check_divide_zero(interp, value);
     GETATTR_BigInt_bi(interp, self, bi_self);
@@ -557,6 +593,8 @@
 
 static void
 bigint_div_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_div_bigint_int)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -573,6 +611,8 @@
 
 static void
 bigint_fdiv_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *value), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_fdiv_bigint)
+
     BIGINT *bi_self, *bi_value, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, value, bi_value);
@@ -583,6 +623,8 @@
 
 static void
 bigint_fdiv_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_fdiv_bigint_int)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -598,6 +640,8 @@
 
 static void
 bigint_mod_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *value), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_mod_bigint)
+
     BIGINT *bi_self, *bi_value, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, value, bi_value);
@@ -608,6 +652,8 @@
 
 static void
 bigint_mod_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_mod_bigint_int)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -622,6 +668,8 @@
 
 static INTVAL
 bigint_cmp(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value)) {
+    ASSERT_ARGS(bigint_cmp)
+
     BIGINT *bi_self, *bi_value;
     GETATTR_BigInt_bi(interp, self,  bi_self);
     GETATTR_BigInt_bi(interp, value, bi_value);
@@ -631,6 +679,8 @@
 PARROT_WARN_UNUSED_RESULT
 static INTVAL
 bigint_cmp_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value) {
+    ASSERT_ARGS(bigint_cmp_int)
+
     BIGINT *bi;
     GETATTR_BigInt_bi(interp, self, bi);
     return mpz_cmp_si(bi->b, value);
@@ -638,6 +688,8 @@
 
 static void
 bigint_abs(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_abs)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);
@@ -646,6 +698,8 @@
 
 static void
 bigint_neg(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *dest)) {
+    ASSERT_ARGS(bigint_neg)
+
     BIGINT *bi_self, *bi_dest;
     GETATTR_BigInt_bi(interp, self, bi_self);
     GETATTR_BigInt_bi(interp, dest, bi_dest);


More information about the parrot-commits mailing list