kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

rational.c: optimize

Browse source 
* rational.c (f_{lt,eqeq,zero,one,minus_one,kind_of}_p): add RTEST
  to results of funcalls.

* rational.c (f_negative_p, k_{integer,float,rational}_p):
  optimize.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@56701 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2016-11-11 07:08:53 +00:00
parent ac777fa1b8
commit 0f9ce57b86
1 changed files with 34 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

77
rational.c
View file

@ -90,12 +90,12 @@ f_div(VALUE x, VALUE y)
return rb_funcall(x, '/', 1, y);
}
inline static VALUE
inline static int
f_lt_p(VALUE x, VALUE y)
{
if (FIXNUM_P(x) && FIXNUM_P(y))
return f_boolcast(FIX2LONG(x) < FIX2LONG(y));
return rb_funcall(x, '<', 1, y);
return (SIGNED_VALUE)x < (SIGNED_VALUE)y;
return RTEST(rb_funcall(x, '<', 1, y));
}
binop(mod, '%')
@ -155,8 +155,8 @@ inline static VALUE
f_eqeq_p(VALUE x, VALUE y)
{
if (FIXNUM_P(x) && FIXNUM_P(y))
return f_boolcast(FIX2LONG(x) == FIX2LONG(y));
return rb_funcall(x, id_eqeq_p, 1, y);
return x == y;
return RTEST(rb_funcall(x, id_eqeq_p, 1, y));
}
fun2(expt)
@ -165,59 +165,50 @@ fun2(idiv)
#define f_expt10(x) f_expt(INT2FIX(10), x)
inline static VALUE
inline static int
f_negative_p(VALUE x)
{
if (FIXNUM_P(x))
return f_boolcast(FIX2LONG(x) < 0);
return rb_funcall(x, '<', 1, ZERO);
return rb_num_negative_p(x);
}
#define f_positive_p(x) (!f_negative_p(x))
inline static VALUE
inline static int
f_zero_p(VALUE x)
{
if (RB_TYPE_P(x, T_FIXNUM)) {
return f_boolcast(FIX2LONG(x) == 0);
}
else if (RB_TYPE_P(x, T_BIGNUM)) {
return Qfalse;
if (RB_INTEGER_TYPE_P(x)) {
return x == LONG2FIX(0);
}
else if (RB_TYPE_P(x, T_RATIONAL)) {
VALUE num = RRATIONAL(x)->num;
return f_boolcast(FIXNUM_P(num) && FIX2LONG(num) == 0);
return num == LONG2FIX(0);
}
return rb_funcall(x, id_eqeq_p, 1, ZERO);
return RTEST(rb_funcall(x, id_eqeq_p, 1, ZERO));
}
#define f_nonzero_p(x) (!f_zero_p(x))
inline static VALUE
inline static int
f_one_p(VALUE x)
{
if (RB_TYPE_P(x, T_FIXNUM)) {
return f_boolcast(FIX2LONG(x) == 1);
}
else if (RB_TYPE_P(x, T_BIGNUM)) {
return Qfalse;
if (RB_INTEGER_TYPE_P(x)) {
return x == LONG2FIX(1);
}
else if (RB_TYPE_P(x, T_RATIONAL)) {
VALUE num = RRATIONAL(x)->num;
VALUE den = RRATIONAL(x)->den;
return f_boolcast(FIXNUM_P(num) && FIX2LONG(num) == 1 &&
FIXNUM_P(den) && FIX2LONG(den) == 1);
return num == LONG2FIX(1) && den == LONG2FIX(1);
}
return rb_funcall(x, id_eqeq_p, 1, ONE);
return RTEST(rb_funcall(x, id_eqeq_p, 1, ONE));
}
inline static VALUE
inline static int
f_minus_one_p(VALUE x)
{
if (RB_TYPE_P(x, T_FIXNUM)) {
return f_boolcast(FIX2LONG(x) == -1);
if (RB_INTEGER_TYPE_P(x)) {
return x == LONG2FIX(-1);
}
else if (RB_TYPE_P(x, T_BIGNUM)) {
return Qfalse;
@ -226,40 +217,40 @@ f_minus_one_p(VALUE x)
VALUE num = RRATIONAL(x)->num;
VALUE den = RRATIONAL(x)->den;
return f_boolcast(FIXNUM_P(num) && FIX2LONG(num) == -1 &&
FIXNUM_P(den) && FIX2LONG(den) == 1);
return num == LONG2FIX(-1) && den == LONG2FIX(1);
}
return rb_funcall(x, id_eqeq_p, 1, INT2FIX(-1));
return RTEST(rb_funcall(x, id_eqeq_p, 1, INT2FIX(-1)));
}
inline static VALUE
inline static int
f_kind_of_p(VALUE x, VALUE c)
{
return rb_obj_is_kind_of(x, c);
VALUE ret = rb_obj_is_kind_of(x, c);
return RTEST(ret);
}
inline static VALUE
inline static int
k_numeric_p(VALUE x)
{
return f_kind_of_p(x, rb_cNumeric);
}
inline static VALUE
inline static int
k_integer_p(VALUE x)
{
return f_kind_of_p(x, rb_cInteger);
return RB_INTEGER_TYPE_P(x);
}
inline static VALUE
inline static int
k_float_p(VALUE x)
{
return f_kind_of_p(x, rb_cFloat);
return RB_FLOAT_TYPE_P(x);
}
inline static VALUE
inline static int
k_rational_p(VALUE x)
{
return f_kind_of_p(x, rb_cRational);
return RB_TYPE_P(x, T_RATIONAL);
}
#define k_exact_p(x) (!k_float_p(x))
@ -1134,7 +1125,7 @@ nurat_eqeq_p(VALUE self, VALUE other)
}
}
else if (RB_TYPE_P(other, T_FLOAT)) {
return f_eqeq_p(f_to_f(self), other);
return f_boolcast(f_eqeq_p(f_to_f(self), other));
}
else if (RB_TYPE_P(other, T_RATIONAL)) {
{
@ -1148,7 +1139,7 @@ nurat_eqeq_p(VALUE self, VALUE other)
}
}
else {
return f_eqeq_p(other, self);
return rb_funcall(other, id_eqeq_p, 1, self);
}
}