aboutsummaryrefslogtreecommitdiffstats
path: root/numeric.c
diff options
context:
space:
mode:
authormatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-07-13 17:29:24 +0000
committermatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-07-13 17:29:24 +0000
commitb13b3e624b62d321ab5fb84f1aa02e9672a7cc43 (patch)
treeedfc39532256dcf9426768c070630ed5118f011b /numeric.c
parent2a5c48a54d3ffd25e584c9568761711cb1c4fd8c (diff)
downloadruby-b13b3e624b62d321ab5fb84f1aa02e9672a7cc43.tar.gz
* numeric.c (int_pow): overflow detection using FIT_SQRT_LONG().
[ruby-dev:31215] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12778 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'numeric.c')
-rw-r--r--numeric.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/numeric.c b/numeric.c
index da8b74bb3b..a50199dce3 100644
--- a/numeric.c
+++ b/numeric.c
@@ -2046,6 +2046,10 @@ fix_minus(VALUE x, VALUE y)
* result.
*/
+#define SQRT_LONG_MAX ((SIGNED_VALUE)1<<((SIZEOF_VALUE*CHAR_BIT-1)/2))
+/*tests if N*N would overflow*/
+#define FIT_SQRT_LONG(n) (((n)<SQRT_LONG_MAX)&&((n)>=-SQRT_LONG_MAX))
+
static VALUE
fix_mul(VALUE x, VALUE y)
{
@@ -2070,9 +2074,6 @@ fix_mul(VALUE x, VALUE y)
if (FIXABLE(d)) return LONG2FIX(d);
return rb_ll2inum(d);
#else
-# define SQRT_LONG_MAX ((SIGNED_VALUE)1<<((SIZEOF_VALUE*CHAR_BIT-1)/2))
- /*tests if N*N would overflow*/
-# define FIT_SQRT_LONG(n) (((n)<SQRT_LONG_MAX)&&((n)>=-SQRT_LONG_MAX))
if (FIT_SQRT_LONG(a) && FIT_SQRT_LONG(b))
return LONG2FIX(a*b);
c = a * b;
@@ -2288,15 +2289,14 @@ int_pow(long x, unsigned long y)
y &= ~1;
do {
while (y % 2 == 0) {
- long x2 = x * x;
- if (x2 < x || !POSFIXABLE(x2)) {
+ if (!FIT_SQRT_LONG(x)) {
VALUE v;
bignum:
v = rb_big_pow(rb_int2big(x), LONG2NUM(y));
if (z != 1) v = rb_big_mul(rb_int2big(neg ? -z : z), v);
return v;
}
- x = x2;
+ x = x * x;
y >>= 1;
}
{