1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added a few integer case short-circuits

Browse Source
This commit is contained in:
Nobuyoshi Nakada 2020-05-30 18:15:31 +09:00
parent 29ecce4d72
commit 53d2bfd540
No known key found for this signature in database
GPG Key ID: 7CD2805BFA3770C6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rational.c
View File

@ -60,6 +60,8 @@ f_add(VALUE x, VALUE y)
return x; return x;
if (FIXNUM_ZERO_P(x)) if (FIXNUM_ZERO_P(x))
return y; return y;
if (RB_INTEGER_TYPE_P(x))
return rb_int_plus(x, y);
return rb_funcall(x, '+', 1, y); return rb_funcall(x, '+', 1, y);
} }
@ -78,6 +80,10 @@ f_lt_p(VALUE x, VALUE y)
{ {
if (FIXNUM_P(x) && FIXNUM_P(y)) if (FIXNUM_P(x) && FIXNUM_P(y))
return (SIGNED_VALUE)x < (SIGNED_VALUE)y; return (SIGNED_VALUE)x < (SIGNED_VALUE)y;
if (RB_INTEGER_TYPE_P(x)) {
VALUE r = rb_int_cmp(x, y);
if (!NIL_P(r)) return rb_int_negative_p(r);
}
return RTEST(rb_funcall(x, '<', 1, y)); return RTEST(rb_funcall(x, '<', 1, y));
} }
@ -137,11 +143,13 @@ f_to_i(VALUE x)
return rb_funcall(x, id_to_i, 0); return rb_funcall(x, id_to_i, 0);
} }
inline static VALUE inline static int
f_eqeq_p(VALUE x, VALUE y) f_eqeq_p(VALUE x, VALUE y)
{ {
if (FIXNUM_P(x) && FIXNUM_P(y)) if (FIXNUM_P(x) && FIXNUM_P(y))
return x == y; return x == y;
if (RB_INTEGER_TYPE_P(x))
return RTEST(rb_int_equal(x, y));
return (int)rb_equal(x, y); return (int)rb_equal(x, y);
} }