Fix mrb_obj_ceqq to avoid array copying.

This commit is contained in:
Yukihiro "Matz" Matsumoto
2020-08-29 18:42:48 +09:00
parent a66d86cfc1
commit 564372d7b9
+12 -1
View File
@@ -767,8 +767,19 @@ mrb_obj_ceqq(mrb_state *mrb, mrb_value self)
mrb_value v = mrb_get_arg1(mrb);
mrb_int i, len;
mrb_sym eqq = mrb_intern_lit(mrb, "===");
mrb_value ary = mrb_ary_splat(mrb, self);
mrb_value ary;
if (mrb_array_p(self)) {
ary = self;
}
else if (!mrb_respond_to(mrb, v, mrb_intern_lit(mrb, "to_a"))) {
mrb_value c = mrb_funcall_argv(mrb, self, eqq, 1, &v);
if (mrb_test(c)) return mrb_true_value();
return mrb_false_value();
}
else {
ary = mrb_ary_splat(mrb, self);
}
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);