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

error function is no longer used

This commit is contained in:
Yuichi Nishiwaki 2014-03-24 14:24:53 +09:00
parent daa7513be5
commit edb4f61d5e
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/error.c
View File

@ -58,19 +58,6 @@ pic_errmsg(pic_state *pic)
return pic_str_cstr(pic->err->msg); return pic_str_cstr(pic->err->msg);
} }
noreturn static void
error(pic_state *pic, pic_str *msg, pic_value irrs)
{
struct pic_error *e;
e = (struct pic_error *)pic_obj_alloc(pic, sizeof(struct pic_error), PIC_TT_ERROR);
e->type = PIC_ERROR_OTHER;
e->msg = msg;
e->irrs = irrs;
pic_throw(pic, e);
}
void void
pic_error(pic_state *pic, const char *msg) pic_error(pic_state *pic, const char *msg)
{ {
@ -82,12 +69,18 @@ pic_errorf(pic_state *pic, const char *fmt, ...)
{ {
va_list ap; va_list ap;
pic_value err_line; pic_value err_line;
struct pic_error *e;
va_start(ap, fmt); va_start(ap, fmt);
err_line = pic_vformat(pic, fmt, ap); err_line = pic_vformat(pic, fmt, ap);
va_end(ap); va_end(ap);
error(pic, pic_str_ptr(pic_car(pic, err_line)), pic_cdr(pic, err_line)); e = (struct pic_error *)pic_obj_alloc(pic, sizeof(struct pic_error), PIC_TT_ERROR);
e->type = PIC_ERROR_OTHER;
e->msg = pic_str_ptr(pic_car(pic, err_line));
e->irrs = pic_cdr(pic, err_line);
pic_throw(pic, e);
} }
void void