From 93751385736ff8552d51b010415f7eed2341bc6f Mon Sep 17 00:00:00 2001 From: Yuichiro MASUI Date: Sat, 17 Nov 2012 15:57:01 +0900 Subject: l/rshift width as int. It was unsigned long --- src/numeric.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/numeric.c b/src/numeric.c index 98a60ed30..8bf2b3382 100644 --- a/src/numeric.c +++ b/src/numeric.c @@ -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); } -- cgit v1.2.3 From c6574ddc4c64940170cbc8b65dda63d76a410ad2 Mon Sep 17 00:00:00 2001 From: skandhas Date: Sun, 18 Nov 2012 13:41:15 +0800 Subject: delete redundant '__send__' definition --- src/kernel.c | 1 - 1 file changed, 1 deletion(-) diff --git a/src/kernel.c b/src/kernel.c index adb616466..5fcebc4a9 100644 --- a/src/kernel.c +++ b/src/kernel.c @@ -1111,7 +1111,6 @@ mrb_init_kernel(mrb_state *mrb) mrb_define_method(mrb, krn, "remove_instance_variable", mrb_obj_remove_instance_variable,ARGS_REQ(1)); /* 15.3.1.3.41 */ mrb_define_method(mrb, krn, "respond_to?", obj_respond_to, ARGS_ANY()); /* 15.3.1.3.43 */ mrb_define_method(mrb, krn, "send", mrb_f_send, ARGS_ANY()); /* 15.3.1.3.44 */ - mrb_define_method(mrb, krn, "__send__", mrb_f_send, ARGS_ANY()); /* 15.3.1.3.4 */ mrb_define_method(mrb, krn, "singleton_methods", mrb_obj_singleton_methods_m, ARGS_ANY()); /* 15.3.1.3.45 */ mrb_define_method(mrb, krn, "to_s", mrb_any_to_s, ARGS_NONE()); /* 15.3.1.3.46 */ -- cgit v1.2.3