The operand of `OP_ARYDUP` may not be an array; fix #4094

This commit also fix #4096.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/vm.c b/src/vm.c
index 2fd1e5efa..c8088d22e 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -2618,7 +2618,12 @@ RETRY_TRY_BLOCK:
 
     CASE(OP_ARYDUP, B) {
       mrb_value ary = regs[a];
-      ary = mrb_ary_new_from_values(mrb, RARRAY_LEN(ary), RARRAY_PTR(ary));
+      if (mrb_array_p(ary)) {
+        ary = mrb_ary_new_from_values(mrb, RARRAY_LEN(ary), RARRAY_PTR(ary));
+      }
+      else {
+        ary = mrb_ary_new_from_values(mrb, 1, &ary);
+      }
       regs[a] = ary;
       NEXT;
     }