From 81af1bd9e8b8d84860cade1b5918b1c801b57845 Mon Sep 17 00:00:00 2001 From: tadf Date: Sat, 15 Dec 2012 09:01:22 +0000 Subject: * ratioanl.c (float_rationalize): reduced. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@38407 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 4 ++++ rational.c | 28 ++++++++++++++++++---------- 2 files changed, 22 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 55886a3845..23c8174af2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +Sat Dec 15 18:00:00 2012 Tadayoshi Funaba + + * ratioanl.c (float_rationalize): reduced. + Sat Dec 15 14:18:44 2012 KOSAKI Motohiro * io.c (finish_writeconv): uses rb_write_internal2 if diff --git a/rational.c b/rational.c index e4201ddd18..c8d5688c94 100644 --- a/rational.c +++ b/rational.c @@ -1935,17 +1935,25 @@ float_rationalize(int argc, VALUE *argv, VALUE self) return rb_rational_new1(f_lshift(f, n)); #if FLT_RADIX == 2 - a = rb_rational_new2(f_sub(f_mul(TWO, f), ONE), - f_lshift(ONE, f_sub(ONE, n))); - b = rb_rational_new2(f_add(f_mul(TWO, f), ONE), - f_lshift(ONE, f_sub(ONE, n))); + { + VALUE two_times_f, den; + + two_times_f = f_mul(TWO, f); + den = f_lshift(ONE, f_sub(ONE, n)); + + a = rb_rational_new2(f_sub(two_times_f, ONE), den); + b = rb_rational_new2(f_add(two_times_f, ONE), den); + } #else - a = rb_rational_new2(f_sub(f_mul(INT2FIX(FLT_RADIX), f), - INT2FIX(FLT_RADIX - 1)), - f_expt(INT2FIX(FLT_RADIX), f_sub(ONE, n))); - b = rb_rational_new2(f_add(f_mul(INT2FIX(FLT_RADIX), f), - INT2FIX(FLT_RADIX - 1)), - f_expt(INT2FIX(FLT_RADIX), f_sub(ONE, n))); + { + VALUE radix_times_f, den; + + radix_times_f = f_mul(INT2FIX(FLT_RADIX), f); + den = f_expt(INT2FIX(FLT_RADIX), f_sub(ONE, n)); + + a = rb_rational_new2(f_sub(radix_times_f, INT2FIX(FLT_RADIX - 1)), den); + b = rb_rational_new2(f_add(radix_times_f, INT2FIX(FLT_RADIX - 1)), den); + } #endif } -- cgit v1.2.3