summaryrefslogtreecommitdiff
path: root/bignum.c
diff options
context:
space:
mode:
Diffstat (limited to 'bignum.c')
-rw-r--r--bignum.c22
1 files changed, 20 insertions, 2 deletions
diff --git a/bignum.c b/bignum.c
index f4f387cd20..c40f94f4d8 100644
--- a/bignum.c
+++ b/bignum.c
@@ -520,6 +520,10 @@ rb_big_cmp(x, y)
case T_BIGNUM:
break;
+ case T_FLOAT:
+ y = rb_dbl2big(RFLOAT(y)->value);
+ break;
+
default:
return rb_num_coerce_bin(x, y);
}
@@ -542,8 +546,22 @@ static VALUE
rb_big_eq(x, y)
VALUE x, y;
{
- if (rb_big_cmp(x, y) == INT2FIX(0)) return Qtrue;
- return Qfalse;
+ switch (TYPE(y)) {
+ case T_FIXNUM:
+ y = rb_int2big(FIX2LONG(y));
+ break;
+ case T_BIGNUM:
+ break;
+ case T_FLOAT:
+ y = rb_dbl2big(RFLOAT(y)->value);
+ break;
+ default:
+ return Qfalse;
+ }
+ if (RBIGNUM(x)->sign != RBIGNUM(y)->sign) return Qfalse;
+ if (RBIGNUM(x)->len != RBIGNUM(y)->len) return Qfalse;
+ if (memcmp(BDIGITS(x),BDIGITS(y),RBIGNUM(y)->len) != 0) return Qfalse;
+ return Qtrue;
}
static VALUE