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

* numeric.c (num_step): try to reduce residual on Float operations.

Browse Source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2403 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz 2002-04-24 05:08:04 +00:00
parent a117cec653
commit 936ad409ad
2 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
Wed Apr 24 14:06:35 2002 Yukihiro Matsumoto <matz@ruby-lang.org>
* numeric.c (num_step): try to reduce residual on Float operations.
Wed Apr 24 06:48:31 2002 Koji Arai <jca02266@nifty.ne.jp> Wed Apr 24 06:48:31 2002 Koji Arai <jca02266@nifty.ne.jp>
* io.c (rb_io_mode_flags): both 'r+b' and 'rb+' should be allowed. * io.c (rb_io_mode_flags): both 'r+b' and 'rb+' should be allowed.

41
numeric.c
View File

@ -769,8 +769,6 @@ num_step(argc, argv, from)
VALUE from; VALUE from;
{ {
VALUE to, step; VALUE to, step;
VALUE i = from;
ID cmp;
if (rb_scan_args(argc, argv, "11", &to, &step) == 1) { if (rb_scan_args(argc, argv, "11", &to, &step) == 1) {
step = INT2FIX(1); step = INT2FIX(1);
@ -798,19 +796,40 @@ num_step(argc, argv, from)
i += diff; i += diff;
} }
} }
return from;
} }
else if (TYPE(from) == T_FLOAT || TYPE(to) == T_FLOAT || TYPE(step) == T_FLOAT) {
double beg = NUM2DBL(from);
double end = NUM2DBL(to);
double unit = NUM2DBL(step);
double n = beg;
long i = 0;
if (RTEST(rb_funcall(step, '>', 1, INT2FIX(0)))) { if (unit > 0) {
cmp = '>'; for (i=0; n<=end; i++, n=unit*i+beg) {
rb_yield(rb_float_new(n));
}
}
else {
for (i=0; n>=end; i++, n=unit*i+beg) {
rb_yield(rb_float_new(n));
}
}
} }
else { else {
cmp = '<'; VALUE i = from;
} ID cmp;
for (;;) {
if (RTEST(rb_funcall(i, cmp, 1, to))) break; if (RTEST(rb_funcall(step, '>', 1, INT2FIX(0)))) {
rb_yield(i); cmp = '>';
i = rb_funcall(i, '+', 1, step); }
else {
cmp = '<';
}
for (;;) {
if (RTEST(rb_funcall(i, cmp, 1, to))) break;
rb_yield(i);
i = rb_funcall(i, '+', 1, step);
}
} }
return from; return from;
} }