diff options
Diffstat (limited to 'spec/ruby/optional/capi/ext/bignum_spec.c')
| -rw-r--r-- | spec/ruby/optional/capi/ext/bignum_spec.c | 59 |
1 files changed, 8 insertions, 51 deletions
diff --git a/spec/ruby/optional/capi/ext/bignum_spec.c b/spec/ruby/optional/capi/ext/bignum_spec.c index ab3b36eadc..a950d8b16f 100644 --- a/spec/ruby/optional/capi/ext/bignum_spec.c +++ b/spec/ruby/optional/capi/ext/bignum_spec.c @@ -5,51 +5,40 @@ extern "C" { #endif -#ifdef HAVE_RB_BIG2DBL static VALUE bignum_spec_rb_big2dbl(VALUE self, VALUE num) { return rb_float_new(rb_big2dbl(num)); } -#endif -#ifdef HAVE_RB_DBL2BIG static VALUE bignum_spec_rb_dbl2big(VALUE self, VALUE num) { double dnum = NUM2DBL(num); return rb_dbl2big(dnum); } -#endif -#ifdef HAVE_RB_BIG2LL static VALUE bignum_spec_rb_big2ll(VALUE self, VALUE num) { return rb_ll2inum(rb_big2ll(num)); } -#endif -#ifdef HAVE_RB_BIG2LONG static VALUE bignum_spec_rb_big2long(VALUE self, VALUE num) { return LONG2NUM(rb_big2long(num)); } -#endif -#ifdef HAVE_RB_BIG2STR static VALUE bignum_spec_rb_big2str(VALUE self, VALUE num, VALUE base) { return rb_big2str(num, FIX2INT(base)); } -#endif -#ifdef HAVE_RB_BIG2ULONG static VALUE bignum_spec_rb_big2ulong(VALUE self, VALUE num) { return ULONG2NUM(rb_big2ulong(num)); } -#endif -#ifdef HAVE_RB_BIG_CMP +static VALUE bignum_spec_RBIGNUM_SIGN(VALUE self, VALUE val) { + return INT2FIX(RBIGNUM_SIGN(val)); +} + static VALUE bignum_spec_rb_big_cmp(VALUE self, VALUE x, VALUE y) { return rb_big_cmp(x, y); } -#endif -#ifdef HAVE_RB_BIG_PACK static VALUE bignum_spec_rb_big_pack(VALUE self, VALUE val) { unsigned long buff; @@ -57,9 +46,7 @@ static VALUE bignum_spec_rb_big_pack(VALUE self, VALUE val) { return ULONG2NUM(buff); } -#endif -#if HAVE_ABSINT_SIZE static VALUE bignum_spec_rb_big_pack_length(VALUE self, VALUE val) { long long_len; int leading_bits = 0; @@ -72,15 +59,13 @@ static VALUE bignum_spec_rb_big_pack_length(VALUE self, VALUE val) { long_len = len / divisor + ((len % divisor == 0) ? 0 : 1); return LONG2NUM(long_len); } -#endif -#ifdef HAVE_RB_BIG_PACK static VALUE bignum_spec_rb_big_pack_array(VALUE self, VALUE val, VALUE len) { int i; long long_len = NUM2LONG(len); VALUE ary = rb_ary_new_capa(long_len); - unsigned long *buf = malloc(long_len * SIZEOF_LONG); + unsigned long *buf = (unsigned long*) malloc(long_len * SIZEOF_LONG); /* The array should be filled with recognisable junk so we can check it is all cleared properly. */ @@ -100,50 +85,22 @@ static VALUE bignum_spec_rb_big_pack_array(VALUE self, VALUE val, VALUE len) { free(buf); return ary; } -#endif void Init_bignum_spec(void) { - VALUE cls; - cls = rb_define_class("CApiBignumSpecs", rb_cObject); - -#ifdef HAVE_RB_BIG2DBL + VALUE cls = rb_define_class("CApiBignumSpecs", rb_cObject); rb_define_method(cls, "rb_big2dbl", bignum_spec_rb_big2dbl, 1); -#endif - -#ifdef HAVE_RB_DBL2BIG rb_define_method(cls, "rb_dbl2big", bignum_spec_rb_dbl2big, 1); -#endif - -#ifdef HAVE_RB_BIG2LL rb_define_method(cls, "rb_big2ll", bignum_spec_rb_big2ll, 1); -#endif - -#ifdef HAVE_RB_BIG2LONG rb_define_method(cls, "rb_big2long", bignum_spec_rb_big2long, 1); -#endif - -#ifdef HAVE_RB_BIG2STR rb_define_method(cls, "rb_big2str", bignum_spec_rb_big2str, 2); -#endif - -#ifdef HAVE_RB_BIG2ULONG rb_define_method(cls, "rb_big2ulong", bignum_spec_rb_big2ulong, 1); -#endif - -#ifdef HAVE_RB_BIG_CMP + rb_define_method(cls, "RBIGNUM_SIGN", bignum_spec_RBIGNUM_SIGN, 1); rb_define_method(cls, "rb_big_cmp", bignum_spec_rb_big_cmp, 2); -#endif - -#ifdef HAVE_RB_BIG_PACK rb_define_method(cls, "rb_big_pack", bignum_spec_rb_big_pack, 1); rb_define_method(cls, "rb_big_pack_array", bignum_spec_rb_big_pack_array, 2); -#endif - -#ifdef HAVE_ABSINT_SIZE rb_define_method(cls, "rb_big_pack_length", bignum_spec_rb_big_pack_length, 1); -#endif } #ifdef __cplusplus -extern "C" { +} #endif |
