diff options
| author | h2so5 <[email protected]> | 2014-02-01 12:22:28 +0900 |
|---|---|---|
| committer | h2so5 <[email protected]> | 2014-02-01 12:22:28 +0900 |
| commit | b53d91e6e231299ce6feb99b428c3abd26679a66 (patch) | |
| tree | 3f86e6b54544658365581db9e1613e4daf25895e | |
| parent | e12250032f5ec19e794fc48162b59866fb980028 (diff) | |
| download | mruby-b53d91e6e231299ce6feb99b428c3abd26679a66.tar.gz mruby-b53d91e6e231299ce6feb99b428c3abd26679a66.zip | |
fix NODE_SPLAT codegen
| -rw-r--r-- | src/array.c | 17 | ||||
| -rw-r--r-- | src/codegen.c | 9 | ||||
| -rw-r--r-- | src/kernel.c | 18 |
3 files changed, 19 insertions, 25 deletions
diff --git a/src/array.c b/src/array.c index 8245ddd1c..dbd6b4263 100644 --- a/src/array.c +++ b/src/array.c @@ -1192,22 +1192,6 @@ mrb_ary_eql(mrb_state *mrb, mrb_value ary1) return mrb_true_value(); } -static mrb_value -mrb_ary_ceqq(mrb_state *mrb, mrb_value ary) -{ - mrb_value v; - mrb_int i, len; - mrb_sym eqq = mrb_intern_lit(mrb, "==="); - - mrb_get_args(mrb, "o", &v); - len = RARRAY_LEN(ary); - for (i=0; i<len; i++) { - mrb_value c = mrb_funcall_argv(mrb, ary_elt(ary, i), eqq, 1, &v); - if (mrb_test(c)) return mrb_true_value(); - } - return mrb_false_value(); -} - void mrb_init_array(mrb_state *mrb) { @@ -1250,5 +1234,4 @@ mrb_init_array(mrb_state *mrb) mrb_define_method(mrb, a, "==", mrb_ary_equal, MRB_ARGS_REQ(1)); /* 15.2.12.5.33 (x) */ mrb_define_method(mrb, a, "eql?", mrb_ary_eql, MRB_ARGS_REQ(1)); /* 15.2.12.5.34 (x) */ mrb_define_method(mrb, a, "<=>", mrb_ary_cmp, MRB_ARGS_REQ(1)); /* 15.2.12.5.36 (x) */ - mrb_define_method(mrb, a, "__case_eqq", mrb_ary_ceqq, MRB_ARGS_REQ(1)); /* internal */ } diff --git a/src/codegen.c b/src/codegen.c index 931da06e1..71b0c9a74 100644 --- a/src/codegen.c +++ b/src/codegen.c @@ -1515,14 +1515,7 @@ codegen(codegen_scope *s, node *tree, int val) break; case NODE_SPLAT: - { - int idx = new_msym(s, mrb_intern_lit(s->mrb, "to_a")); - - codegen(s, tree, VAL); - pop(); - genop(s, MKOP_ABC(OP_SEND, cursp(), idx, 0)); - push(); - } + codegen(s, tree, VAL); break; case NODE_ASGN: diff --git a/src/kernel.c b/src/kernel.c index d1e192464..b17977052 100644 --- a/src/kernel.c +++ b/src/kernel.c @@ -1108,6 +1108,23 @@ mrb_obj_singleton_methods_m(mrb_state *mrb, mrb_value self) return mrb_obj_singleton_methods(mrb, recur, self); } +static mrb_value +mrb_obj_ceqq(mrb_state *mrb, mrb_value self) +{ + mrb_value v; + mrb_int i, len; + mrb_sym eqq = mrb_intern_lit(mrb, "==="); + mrb_value ary = mrb_ary_splat(mrb, self); + + mrb_get_args(mrb, "o", &v); + len = RARRAY_LEN(ary); + for (i=0; i<len; i++) { + mrb_value c = mrb_funcall_argv(mrb, mrb_ary_entry(ary, i), eqq, 1, &v); + if (mrb_test(c)) return mrb_true_value(); + } + return mrb_false_value(); +} + void mrb_init_kernel(mrb_state *mrb) { @@ -1159,6 +1176,7 @@ mrb_init_kernel(mrb_state *mrb) mrb_define_method(mrb, krn, "send", mrb_f_send, MRB_ARGS_ANY()); /* 15.3.1.3.44 */ mrb_define_method(mrb, krn, "singleton_methods", mrb_obj_singleton_methods_m, MRB_ARGS_OPT(1)); /* 15.3.1.3.45 */ mrb_define_method(mrb, krn, "to_s", mrb_any_to_s, MRB_ARGS_NONE()); /* 15.3.1.3.46 */ + mrb_define_method(mrb, krn, "__case_eqq", mrb_obj_ceqq, MRB_ARGS_REQ(1)); /* internal */ mrb_include_module(mrb, mrb->object_class, mrb->kernel_module); mrb_alias_method(mrb, mrb->module_class, mrb_intern_lit(mrb, "dup"), mrb_intern_lit(mrb, "clone")); |