conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

suppress warnings

This commit is contained in:
Yuichi Nishiwaki 2015-08-26 17:50:28 +09:00
parent 06af0265f6
commit 98034b5038
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extlib/benz/string.c
View File

@ -641,7 +641,7 @@ pic_str_list_to_string(pic_state *pic)
{
pic_str *str;
pic_value list, e, it;
size_t i = 0;
size_t i;
char *buf;
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));
pic_try {
i = 0;
pic_for_each (e, list, it) {
pic_assert_type(pic, e, char);

4
src/main.c
View File

@ -39,7 +39,7 @@ main(int argc, char *argv[], char **envp)
{
pic_state *pic;
struct pic_lib *PICRIN_MAIN;
int status = 0;
int status;
pic = pic_open(pic_default_allocf, NULL);
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)"));
pic_funcall(pic, PICRIN_MAIN, "main", pic_nil_value());
status = 0;
}
pic_catch {
pic_print_backtrace(pic, xstderr);