diff --git a/ChangeLog b/ChangeLog index d05f49d41b..6704334476 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Thu Aug 4 13:30:15 2005 Yukihiro Matsumoto + + * numeric.c (fix_div): should not convert the result into + integer. [ruby-core:05524] + Thu Aug 4 08:03:39 2005 Nobuyoshi Nakada * ext/extmk.rb (extmake): should not modify $mflags for each diff --git a/numeric.c b/numeric.c index ec01d69260..fcf0ba1a79 100644 --- a/numeric.c +++ b/numeric.c @@ -2155,7 +2155,7 @@ fix_div(x, y) x = rb_int2big(FIX2LONG(x)); return rb_big_div(x, y); case T_FLOAT: - return rb_Integer(rb_float_new((double)FIX2LONG(x) / RFLOAT(y)->value)); + return rb_float_new((double)FIX2LONG(x) / RFLOAT(y)->value); default: return rb_num_coerce_bin(x, y); } diff --git a/object.c b/object.c index d41f3570fd..436469ab40 100644 --- a/object.c +++ b/object.c @@ -2093,6 +2093,18 @@ rb_to_integer(val, method) return v; } +VALUE +rb_check_to_integer(val, method) + VALUE val; + char *method; +{ + VALUE v = convert_type(val, "Integer", method, Qfalse); + if (!rb_obj_is_kind_of(v, rb_cInteger)) { + return Qnil; + } + return v; +} + VALUE rb_to_int(val) VALUE val; diff --git a/range.c b/range.c index 684db357a8..a361a347eb 100644 --- a/range.c +++ b/range.c @@ -466,12 +466,21 @@ rb_range_beg_len(range, begp, lenp, len, err) long len; int err; { - long beg, end, b, e; + VALUE b, e; + long beg, end; - if (!rb_obj_is_kind_of(range, rb_cRange)) return Qfalse; - - beg = b = NUM2LONG(rb_ivar_get(range, id_beg)); - end = e = NUM2LONG(rb_ivar_get(range, id_end)); + if (rb_obj_is_kind_of(range, rb_cRange)) { + b = rb_ivar_get(range, id_beg); + e = rb_ivar_get(range, id_end); + } + else { + b = rb_check_to_integer(range, "begin"); + if (NIL_P(b)) return Qnil; + e = rb_check_to_integer(range, "end"); + if (NIL_P(e)) return Qnil; + } + beg = NUM2LONG(b); + end = NUM2LONG(e); if (beg < 0) { beg += len;