* enum.c (ary_inject_op): put subtract operation out of if-clause.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@54238 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
mrkn 2016-03-23 12:50:24 +00:00
Родитель e324d29e2b
Коммит aeb0be6ad5
2 изменённых файлов: 9 добавлений и 4 удалений

Просмотреть файл

@ -1,3 +1,7 @@
Wed Mar 23 21:48:00 2016 Kenta Murata <mrkn@mrkn.jp>
* enum.c (ary_inject_op): put subtract operation out of if-clause.
Wed Mar 23 21:38:00 2016 Kenta Murata <mrkn@mrkn.jp>
* enum.c (ary_inject_op): Use Kahan's compensated summation algorithm

9
enum.c
Просмотреть файл

@ -688,17 +688,18 @@ ary_inject_op(VALUE ary, VALUE init, VALUE op)
sum_float:
c = 0.0;
while (1) {
double y, t;
double x, y, t;
e = RARRAY_AREF(ary, i);
if (RB_FLOAT_TYPE_P(e))
y = RFLOAT_VALUE(e) - c;
x = RFLOAT_VALUE(e);
else if (FIXNUM_P(e))
y = FIX2LONG(e) - c;
x = FIX2LONG(e);
else if (RB_TYPE_P(e, T_BIGNUM))
y = rb_big2dbl(e) - c;
x = rb_big2dbl(e);
else
break;
y = x - c;
t = f + y;
c = (t - f) - y;
f = t;