From a18904a4c2e661b58fb76df7afa2a0eee4f30e70 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Wed, 12 Jul 2017 14:49:55 +0900
Subject: Use "$!" specifier of `mrb_get_args`.

---
 mrbgems/mruby-eval/src/eval.c         | 2 +-
 mrbgems/mruby-fiber/src/fiber.c       | 6 +++---
 mrbgems/mruby-hash-ext/src/hash-ext.c | 2 +-
 mrbgems/mruby-struct/src/struct.c     | 2 +-
 src/array.c                           | 8 ++++----
 src/error.c                           | 2 +-
 src/kernel.c                          | 2 +-
 src/string.c                          | 4 ++--
 8 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/mrbgems/mruby-eval/src/eval.c b/mrbgems/mruby-eval/src/eval.c
index 9610b8bc2..e0cffa8c4 100644
--- a/mrbgems/mruby-eval/src/eval.c
+++ b/mrbgems/mruby-eval/src/eval.c
@@ -255,7 +255,7 @@ f_instance_eval(mrb_state *mrb, mrb_value self)
   mrb_value b;
   mrb_int argc; mrb_value *argv;
 
-  mrb_get_args(mrb, "*&", &argv, &argc, &b);
+  mrb_get_args(mrb, "*!&", &argv, &argc, &b);
 
   if (mrb_nil_p(b)) {
     char *s;
diff --git a/mrbgems/mruby-fiber/src/fiber.c b/mrbgems/mruby-fiber/src/fiber.c
index 0a6d92f67..9de175f34 100644
--- a/mrbgems/mruby-fiber/src/fiber.c
+++ b/mrbgems/mruby-fiber/src/fiber.c
@@ -253,7 +253,7 @@ fiber_resume(mrb_state *mrb, mrb_value self)
   mrb_int len;
   mrb_bool vmexec = FALSE;
 
-  mrb_get_args(mrb, "*", &a, &len);
+  mrb_get_args(mrb, "*!", &a, &len);
   if (mrb->c->ci->acc < 0) {
     vmexec = TRUE;
   }
@@ -313,7 +313,7 @@ fiber_transfer(mrb_state *mrb, mrb_value self)
   mrb_int len;
 
   fiber_check_cfunc(mrb, mrb->c);
-  mrb_get_args(mrb, "*", &a, &len);
+  mrb_get_args(mrb, "*!", &a, &len);
 
   if (c == mrb->root_c) {
     mrb->c->status = MRB_FIBER_TRANSFERRED;
@@ -371,7 +371,7 @@ fiber_yield(mrb_state *mrb, mrb_value self)
   mrb_value *a;
   mrb_int len;
 
-  mrb_get_args(mrb, "*", &a, &len);
+  mrb_get_args(mrb, "*!", &a, &len);
   return mrb_fiber_yield(mrb, len, a);
 }
 
diff --git a/mrbgems/mruby-hash-ext/src/hash-ext.c b/mrbgems/mruby-hash-ext/src/hash-ext.c
index 9560829b6..61abc080d 100644
--- a/mrbgems/mruby-hash-ext/src/hash-ext.c
+++ b/mrbgems/mruby-hash-ext/src/hash-ext.c
@@ -26,7 +26,7 @@ hash_values_at(mrb_state *mrb, mrb_value hash)
   mrb_int argc, i;
   int ai;
 
-  mrb_get_args(mrb, "*", &argv, &argc);
+  mrb_get_args(mrb, "*!", &argv, &argc);
   result = mrb_ary_new_capa(mrb, argc);
   ai = mrb_gc_arena_save(mrb);
   for (i = 0; i < argc; i++) {
diff --git a/mrbgems/mruby-struct/src/struct.c b/mrbgems/mruby-struct/src/struct.c
index 1d4fdca92..deab69fd9 100644
--- a/mrbgems/mruby-struct/src/struct.c
+++ b/mrbgems/mruby-struct/src/struct.c
@@ -345,7 +345,7 @@ mrb_struct_initialize(mrb_state *mrb, mrb_value self)
   mrb_value *argv;
   mrb_int argc;
 
-  mrb_get_args(mrb, "*", &argv, &argc);
+  mrb_get_args(mrb, "*!", &argv, &argc);
   return mrb_struct_initialize_withArg(mrb, argc, argv, self);
 }
 
diff --git a/src/array.c b/src/array.c
index 2e8cf1116..7c07295c7 100644
--- a/src/array.c
+++ b/src/array.c
@@ -255,7 +255,7 @@ mrb_ary_s_create(mrb_state *mrb, mrb_value klass)
   mrb_int len;
   struct RArray *a;
 
-  mrb_get_args(mrb, "*", &vals, &len);
+  mrb_get_args(mrb, "*!", &vals, &len);
   ary = mrb_ary_new_from_values(mrb, len, vals);
   a = mrb_ary_ptr(ary);
   a->c = mrb_class_ptr(klass);
@@ -438,7 +438,7 @@ mrb_ary_push_m(mrb_state *mrb, mrb_value self)
   mrb_value *argv;
   mrb_int len;
 
-  mrb_get_args(mrb, "*", &argv, &len);
+  mrb_get_args(mrb, "*!", &argv, &len);
   while (len--) {
     mrb_ary_push(mrb, self, *argv++);
   }
@@ -526,7 +526,7 @@ mrb_ary_unshift_m(mrb_state *mrb, mrb_value self)
   mrb_value *vals;
   mrb_int len;
 
-  mrb_get_args(mrb, "*", &vals, &len);
+  mrb_get_args(mrb, "*!", &vals, &len);
   if (len > ARY_MAX_SIZE - a->len) {
     mrb_raise(mrb, E_ARGUMENT_ERROR, "array size too big");
   }
@@ -717,7 +717,7 @@ aget_index(mrb_state *mrb, mrb_value index)
     mrb_int i, argc;
     mrb_value *argv;
 
-    mrb_get_args(mrb, "i*", &i, &argv, &argc);
+    mrb_get_args(mrb, "i*!", &i, &argv, &argc);
     return i;
   }
 }
diff --git a/src/error.c b/src/error.c
index 92f4911f6..062282719 100644
--- a/src/error.c
+++ b/src/error.c
@@ -47,7 +47,7 @@ exc_initialize(mrb_state *mrb, mrb_value exc)
   mrb_int argc;
   mrb_value *argv;
 
-  if (mrb_get_args(mrb, "|o*", &mesg, &argv, &argc) >= 1) {
+  if (mrb_get_args(mrb, "|o*!", &mesg, &argv, &argc) >= 1) {
     mrb_iv_set(mrb, exc, mrb_intern_lit(mrb, "mesg"), mesg);
   }
   return exc;
diff --git a/src/kernel.c b/src/kernel.c
index f1d7700de..bd21ddf53 100644
--- a/src/kernel.c
+++ b/src/kernel.c
@@ -981,7 +981,7 @@ mrb_obj_missing(mrb_state *mrb, mrb_value mod)
   mrb_value *a;
   mrb_int alen;
 
-  mrb_get_args(mrb, "n*", &name, &a, &alen);
+  mrb_get_args(mrb, "n*!", &name, &a, &alen);
   mrb_method_missing(mrb, name, mod, mrb_ary_new_from_values(mrb, alen, a));
   /* not reached */
   return mrb_nil_value();
diff --git a/src/string.c b/src/string.c
index bfa751332..2cc54a8cf 100644
--- a/src/string.c
+++ b/src/string.c
@@ -1597,7 +1597,7 @@ mrb_str_index(mrb_state *mrb, mrb_value str)
   mrb_value sub;
   mrb_int pos, clen;
 
-  mrb_get_args(mrb, "*", &argv, &argc);
+  mrb_get_args(mrb, "*!", &argv, &argc);
   if (argc == 2) {
     mrb_get_args(mrb, "oi", &sub, &pos);
   }
@@ -1868,7 +1868,7 @@ mrb_str_rindex(mrb_state *mrb, mrb_value str)
   mrb_value sub;
   mrb_int pos, len = RSTRING_CHAR_LEN(str);
 
-  mrb_get_args(mrb, "*", &argv, &argc);
+  mrb_get_args(mrb, "*!", &argv, &argc);
   if (argc == 2) {
     mrb_get_args(mrb, "oi", &sub, &pos);
     if (pos < 0) {
-- 
cgit v1.2.3