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

[petdance at svn.parrot.org]

Author: petdance
Date: Sun Mar 28 05:38:25 2010
New Revision: 45227
URL: https://trac.parrot.org/parrot/changeset/45227

Log:
hide away the BIGNUM functions so Win32 will not barf

Modified:
   trunk/src/pmc/bignum.pmc

Modified: trunk/src/pmc/bignum.pmc
==============================================================================
--- trunk/src/pmc/bignum.pmc	Sun Mar 28 05:23:14 2010	(r45226)
+++ trunk/src/pmc/bignum.pmc	Sun Mar 28 05:38:25 2010	(r45227)
@@ -290,12 +290,6 @@
         __attribute__nonnull__(2);
 
 PARROT_WARN_UNUSED_RESULT
-PARROT_CANNOT_RETURN_NULL
-static BIGNUM* bignum_get_self(PARROT_INTERP, ARGIN(PMC *self))
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2);
-
-PARROT_WARN_UNUSED_RESULT
 static long bignum_get_si(PARROT_INTERP, ARGIN(PMC *self))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
@@ -389,13 +383,6 @@
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
-static void bignum_set_self(PARROT_INTERP,
-    ARGIN(PMC *self),
-    ARGIN(BIGNUM *value))
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        __attribute__nonnull__(3);
-
 static void bignum_set_si(PARROT_INTERP, ARGIN(PMC *self), long value)
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
@@ -506,9 +493,6 @@
 #define ASSERT_ARGS_bignum_get_float __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(self))
-#define ASSERT_ARGS_bignum_get_self __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(self))
 #define ASSERT_ARGS_bignum_get_si __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(self))
@@ -558,10 +542,6 @@
 #define ASSERT_ARGS_bignum_set_float __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(self))
-#define ASSERT_ARGS_bignum_set_self __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(self) \
-    , PARROT_ASSERT_ARG(value))
 #define ASSERT_ARGS_bignum_set_si __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(self))
@@ -667,22 +647,6 @@
 
 
 PARROT_WARN_UNUSED_RESULT
-PARROT_CANNOT_RETURN_NULL
-static BIGNUM*
-bignum_get_self(PARROT_INTERP, ARGIN(PMC *self)) {
-    BIGNUM *bn;
-    GETATTR_BigNum_bn(interp, self, bn);
-    return bn;
-}
-
-static void
-bignum_set_self(PARROT_INTERP, ARGIN(PMC *self), ARGIN(BIGNUM *value)) {
-    BIGNUM *bn;
-    GETATTR_BigNum_bn(interp, self, bn);
-    mpf_set(bn->b, (mpf_srcptr)(value)->b);
-}
-
-PARROT_WARN_UNUSED_RESULT
 static long
 bignum_get_si(PARROT_INTERP, ARGIN(PMC *self)) {
     BIGNUM *bn;
@@ -1000,7 +964,24 @@
 }
 
 /* HEADERIZER STOP */
-/* Don't headerize these BIGINT funcs */
+/* Don't headerize these BIGINT and BIGNUM funcs */
+
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+static BIGNUM*
+bignum_get_self(PARROT_INTERP, ARGIN(PMC *self)) {
+    BIGNUM *bn;
+    GETATTR_BigNum_bn(interp, self, bn);
+    return bn;
+}
+
+static void
+bignum_set_self(PARROT_INTERP, ARGIN(PMC *self), ARGIN(BIGNUM *value)) {
+    BIGNUM *bn;
+    GETATTR_BigNum_bn(interp, self, bn);
+    mpf_set(bn->b, (mpf_srcptr)(value)->b);
+}
+
 
 #  ifdef PARROT_BIGNUM_CAN_BIGINT
 PARROT_WARN_UNUSED_RESULT