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

Deduplicate common code

Browse Source
This commit is contained in:
Nobuyoshi Nakada 2019-08-02 18:11:05 +09:00
parent ee1334189b
commit 6640eeb6db
No known key found for this signature in database
GPG Key ID: 4BC7D6DF58D8DF60
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rational.c
View File

@ -2247,27 +2247,19 @@ rb_flt_rationalize(VALUE flt)
if (INT_ZERO_P(f) || FIX2INT(n) >= 0) if (INT_ZERO_P(f) || FIX2INT(n) >= 0)
return rb_rational_new1(rb_int_lshift(f, n)); return rb_rational_new1(rb_int_lshift(f, n));
#if FLT_RADIX == 2
{
VALUE two_times_f, den;
two_times_f = rb_int_mul(TWO, f);
den = rb_int_lshift(ONE, rb_int_minus(ONE, n));
a = rb_rational_new2(rb_int_minus(two_times_f, ONE), den);
b = rb_rational_new2(rb_int_plus(two_times_f, ONE), den);
}
#else
{ {
VALUE radix_times_f, den; VALUE radix_times_f, den;
radix_times_f = rb_int_mul(INT2FIX(FLT_RADIX), f); radix_times_f = rb_int_mul(INT2FIX(FLT_RADIX), f);
den = rb_int_pow(INT2FIX(FLT_RADIX), rb_int_minus(ONE, n)); #if FLT_RADIX == 2 && 0
den = rb_int_lshift(ONE, INT2FIX(1-FIX2INT(n)));
#else
den = rb_int_positive_pow(FLT_RADIX, 1-FIX2INT(n));
#endif
a = rb_rational_new2(rb_int_minus(radix_times_f, INT2FIX(FLT_RADIX - 1)), den); a = rb_rational_new2(rb_int_minus(radix_times_f, INT2FIX(FLT_RADIX - 1)), den);
b = rb_rational_new2(rb_int_plus(radix_times_f, INT2FIX(FLT_RADIX - 1)), den); b = rb_rational_new2(rb_int_plus(radix_times_f, INT2FIX(FLT_RADIX - 1)), den);
} }
#endif
if (nurat_eqeq_p(a, b)) if (nurat_eqeq_p(a, b))
return float_to_r(flt); return float_to_r(flt);