suppress warnings
This commit is contained in:
parent
06af0265f6
commit
98034b5038
|
@ -641,7 +641,7 @@ pic_str_list_to_string(pic_state *pic)
|
||||||
{
|
{
|
||||||
pic_str *str;
|
pic_str *str;
|
||||||
pic_value list, e, it;
|
pic_value list, e, it;
|
||||||
size_t i = 0;
|
size_t i;
|
||||||
char *buf;
|
char *buf;
|
||||||
|
|
||||||
pic_get_args(pic, "o", &list);
|
pic_get_args(pic, "o", &list);
|
||||||
|
@ -653,6 +653,7 @@ pic_str_list_to_string(pic_state *pic)
|
||||||
buf = pic_malloc(pic, pic_length(pic, list));
|
buf = pic_malloc(pic, pic_length(pic, list));
|
||||||
|
|
||||||
pic_try {
|
pic_try {
|
||||||
|
i = 0;
|
||||||
pic_for_each (e, list, it) {
|
pic_for_each (e, list, it) {
|
||||||
pic_assert_type(pic, e, char);
|
pic_assert_type(pic, e, char);
|
||||||
|
|
||||||
|
|
|
@ -39,7 +39,7 @@ main(int argc, char *argv[], char **envp)
|
||||||
{
|
{
|
||||||
pic_state *pic;
|
pic_state *pic;
|
||||||
struct pic_lib *PICRIN_MAIN;
|
struct pic_lib *PICRIN_MAIN;
|
||||||
int status = 0;
|
int status;
|
||||||
|
|
||||||
pic = pic_open(pic_default_allocf, NULL);
|
pic = pic_open(pic_default_allocf, NULL);
|
||||||
pic_set_argv(pic, argc, argv, envp);
|
pic_set_argv(pic, argc, argv, envp);
|
||||||
|
@ -50,6 +50,8 @@ main(int argc, char *argv[], char **envp)
|
||||||
PICRIN_MAIN = pic_find_library(pic, pic_read_cstr(pic, "(picrin main)"));
|
PICRIN_MAIN = pic_find_library(pic, pic_read_cstr(pic, "(picrin main)"));
|
||||||
|
|
||||||
pic_funcall(pic, PICRIN_MAIN, "main", pic_nil_value());
|
pic_funcall(pic, PICRIN_MAIN, "main", pic_nil_value());
|
||||||
|
|
||||||
|
status = 0;
|
||||||
}
|
}
|
||||||
pic_catch {
|
pic_catch {
|
||||||
pic_print_backtrace(pic, xstderr);
|
pic_print_backtrace(pic, xstderr);
|
||||||
|
|
Loading…
Reference in New Issue