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

Expanded f_real_p

Browse Source
This commit is contained in:
Nobuyoshi Nakada 2019-08-10 13:56:18 +09:00
parent ffdef3674a
commit 98c22c78e4
No known key found for this signature in database
GPG Key ID: 4BC7D6DF58D8DF60
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
complex.c
View File

@ -235,7 +235,25 @@ f_negate(VALUE x)
return rb_funcall(x, id_negate, 0); return rb_funcall(x, id_negate, 0);
} }
fun1(real_p) static VALUE nucomp_real_p(VALUE self);
static inline bool
f_real_p(VALUE x)
{
if (RB_INTEGER_TYPE_P(x)) {
return TRUE;
}
else if (RB_FLOAT_TYPE_P(x)) {
return TRUE;
}
else if (RB_TYPE_P(x, T_RATIONAL)) {
return TRUE;
}
else if (RB_TYPE_P(x, T_COMPLEX)) {
return nucomp_real_p(x);
}
return rb_funcall(x, id_real_p, 0);
}
inline static VALUE inline static VALUE
f_to_i(VALUE x) f_to_i(VALUE x)
@ -244,6 +262,7 @@ f_to_i(VALUE x)
return rb_str_to_inum(x, 10, 0); return rb_str_to_inum(x, 10, 0);
return rb_funcall(x, id_to_i, 0); return rb_funcall(x, id_to_i, 0);
} }
inline static VALUE inline static VALUE
f_to_f(VALUE x) f_to_f(VALUE x)
{ {
@ -1090,7 +1109,8 @@ nucomp_cmp(VALUE self, VALUE other)
if (RB_TYPE_P(other, T_COMPLEX) && nucomp_real_p(other)) { if (RB_TYPE_P(other, T_COMPLEX) && nucomp_real_p(other)) {
get_dat2(self, other); get_dat2(self, other);
return rb_funcall(adat->real, idCmp, 1, bdat->real); return rb_funcall(adat->real, idCmp, 1, bdat->real);
} else if (f_real_p(other)) { }
else if (f_real_p(other)) {
get_dat1(self); get_dat1(self);
return rb_funcall(dat->real, idCmp, 1, other); return rb_funcall(dat->real, idCmp, 1, other);
} }