admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

l/rshift width as int. It was unsigned long

Browse Source
This commit is contained in:
Yuichiro MASUI
2012-11-17 15:57:01 +09:00
parent 7cea9d7b94
commit 9375138573
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/numeric.c
+4 -4
View File
@@ -948,7 +948,7 @@ fix_xor(mrb_state *mrb, mrb_value x)
}
static mrb_value
lshift(mrb_state *mrb, mrb_int val, unsigned long width)
lshift(mrb_state *mrb, mrb_int val, int width)
{
if (width > (sizeof(mrb_int)*CHAR_BIT-1)) {
mrb_raisef(mrb, E_RANGE_ERROR, "width(%d) > (%d:sizeof(mrb_int)*CHAR_BIT-1)", width,
@@ -959,7 +959,7 @@ lshift(mrb_state *mrb, mrb_int val, unsigned long width)
}
static mrb_value
rshift(mrb_int val, unsigned long i)
rshift(mrb_int val, int i)
{
if (i >= sizeof(mrb_int)*CHAR_BIT-1) {
if (val < 0) return mrb_fixnum_value(-1);
@@ -988,7 +988,7 @@ fix_lshift(mrb_state *mrb, mrb_value x)
y = bit_coerce(mrb, y);
width = mrb_fixnum(y);
if (width < 0)
return rshift(val, (unsigned long)-width);
return rshift(val, -width);
return lshift(mrb, val, width);
}
@@ -1012,7 +1012,7 @@ fix_rshift(mrb_state *mrb, mrb_value x)
i = mrb_fixnum(y);
if (i == 0) return x;
if (i < 0)
return lshift(mrb, val, (unsigned long)-i);
return lshift(mrb, val, -i);
return rshift(val, i);
}