pic_get_args: change type of argc

src/error.c

@@ -121,7 +121,8 @@ static pic_value
 pic_error_error(pic_state *pic)
 {
   char *str;
-  int len, argc;
+  int len;
+  size_t argc;
   pic_value *argv;
   struct pic_error *e;
 

src/number.c

@@ -83,8 +83,9 @@ pic_number_nan_p(pic_state *pic)
   static pic_value					\
   pic_number_##name(pic_state *pic)			\
   {							\
-    int argc, i;					\
+    size_t argc;					\
     pic_value *argv;					\
+    int i;						\
     double f,g;						\
     							\
     pic_get_args(pic, "ff*", &f, &g, &argc, &argv);	\

src/vm.c

@@ -246,10 +246,10 @@ pic_get_args(pic_state *pic, const char *format, ...)
     }
   }
   if ('*' == c) {
-    int *n;
+    size_t *n;
     pic_value **argv;
 
-    n = va_arg(ap, int *);
+    n = va_arg(ap, size_t *);
     argv = va_arg(ap, pic_value **);
     if (i <= argc) {
       *n = argc - i;