From 7b0ec3adde85bbaab2350493248f5a4aaad63eab Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Fri, 26 Sep 2014 17:13:17 +0900 Subject: [PATCH] adjustment. amending for argc type change --- blob.c | 2 +- vector.c | 12 +++++------- 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/blob.c b/blob.c index d87afc83..da3907c3 100644 --- a/blob.c +++ b/blob.c @@ -39,7 +39,7 @@ pic_blob_bytevector(pic_state *pic) pic_get_args(pic, "*", &argc, &argv); - blob = pic_make_blob(pic, argc); + blob = pic_make_blob(pic, (size_t)argc); data = blob->data; diff --git a/vector.c b/vector.c index 4378e66c..6ae7f136 100644 --- a/vector.c +++ b/vector.c @@ -57,7 +57,7 @@ pic_vec_vector(pic_state *pic) pic_get_args(pic, "*", &argc, &argv); - vec = pic_make_vec(pic, argc); + vec = pic_make_vec(pic, (size_t)argc); for (i = 0; i < argc; ++i) { vec->data[i] = argv[i]; @@ -243,14 +243,13 @@ static pic_value pic_vec_vector_map(pic_state *pic) { struct pic_proc *proc; - int argc, i; + int argc, i, len, j; pic_value *argv, vals; - size_t len, j; pic_vec *vec; pic_get_args(pic, "l*", &proc, &argc, &argv); - len = SIZE_MAX; + len = INT_MAX; for (i = 0; i < argc; ++i) { pic_assert_type(pic, argv[i], vec); @@ -276,13 +275,12 @@ static pic_value pic_vec_vector_for_each(pic_state *pic) { struct pic_proc *proc; - int argc, i; + int argc, i, len, j; pic_value *argv, vals; - size_t len, j; pic_get_args(pic, "l*", &proc, &argc, &argv); - len = SIZE_MAX; + len = INT_MAX; for (i = 0; i < argc; ++i) { pic_assert_type(pic, argv[i], vec);