remove pic_errmsg
This commit is contained in:
parent
5c2cbb9e55
commit
42ec53d73f
|
@ -47,22 +47,6 @@ pic_errorf(pic_state *pic, const char *fmt, ...)
|
||||||
pic_error(pic, msg, irrs);
|
pic_error(pic, msg, irrs);
|
||||||
}
|
}
|
||||||
|
|
||||||
const char *
|
|
||||||
pic_errmsg(pic_state *pic)
|
|
||||||
{
|
|
||||||
pic_str *str;
|
|
||||||
|
|
||||||
assert(! pic_invalid_p(pic->err));
|
|
||||||
|
|
||||||
if (! pic_error_p(pic->err)) {
|
|
||||||
str = pic_format(pic, "~s", pic->err);
|
|
||||||
} else {
|
|
||||||
str = pic_error_ptr(pic->err)->msg;
|
|
||||||
}
|
|
||||||
|
|
||||||
return pic_str_cstr(pic, str);
|
|
||||||
}
|
|
||||||
|
|
||||||
pic_value
|
pic_value
|
||||||
pic_native_exception_handler(pic_state *pic)
|
pic_native_exception_handler(pic_state *pic)
|
||||||
{
|
{
|
||||||
|
|
|
@ -208,7 +208,6 @@ pic_value pic_apply5(pic_state *, struct pic_proc *, pic_value, pic_value, pic_v
|
||||||
pic_value pic_apply_trampoline(pic_state *, struct pic_proc *, size_t, pic_value *);
|
pic_value pic_apply_trampoline(pic_state *, struct pic_proc *, size_t, pic_value *);
|
||||||
pic_value pic_apply_trampoline_list(pic_state *, struct pic_proc *, pic_value);
|
pic_value pic_apply_trampoline_list(pic_state *, struct pic_proc *, pic_value);
|
||||||
pic_value pic_eval(pic_state *, pic_value, struct pic_env *);
|
pic_value pic_eval(pic_state *, pic_value, struct pic_env *);
|
||||||
struct pic_proc *pic_compile(pic_state *, pic_value, struct pic_env *);
|
|
||||||
|
|
||||||
struct pic_proc *pic_make_var(pic_state *, pic_value, struct pic_proc *);
|
struct pic_proc *pic_make_var(pic_state *, pic_value, struct pic_proc *);
|
||||||
|
|
||||||
|
@ -232,9 +231,9 @@ void pic_export(pic_state *, pic_sym *);
|
||||||
PIC_NORETURN void pic_panic(pic_state *, const char *);
|
PIC_NORETURN void pic_panic(pic_state *, const char *);
|
||||||
PIC_NORETURN void pic_errorf(pic_state *, const char *, ...);
|
PIC_NORETURN void pic_errorf(pic_state *, const char *, ...);
|
||||||
void pic_warnf(pic_state *, const char *, ...);
|
void pic_warnf(pic_state *, const char *, ...);
|
||||||
const char *pic_errmsg(pic_state *);
|
|
||||||
pic_str *pic_get_backtrace(pic_state *);
|
pic_str *pic_get_backtrace(pic_state *);
|
||||||
void pic_print_backtrace(pic_state *, xFILE *);
|
void pic_print_backtrace(pic_state *, xFILE *);
|
||||||
|
|
||||||
struct pic_dict *pic_attr(pic_state *, pic_value);
|
struct pic_dict *pic_attr(pic_state *, pic_value);
|
||||||
pic_value pic_attr_ref(pic_state *, pic_value, const char *);
|
pic_value pic_attr_ref(pic_state *, pic_value, const char *);
|
||||||
void pic_attr_set(pic_state *, pic_value, const char *, pic_value);
|
void pic_attr_set(pic_state *, pic_value, const char *, pic_value);
|
||||||
|
|
|
@ -35,6 +35,7 @@ pic_sym *pic_resolve(pic_state *, pic_value, struct pic_env *);
|
||||||
pic_value pic_expand(pic_state *, pic_value, struct pic_env *);
|
pic_value pic_expand(pic_state *, pic_value, struct pic_env *);
|
||||||
pic_value pic_analyze(pic_state *, pic_value);
|
pic_value pic_analyze(pic_state *, pic_value);
|
||||||
struct pic_irep *pic_codegen(pic_state *, pic_value);
|
struct pic_irep *pic_codegen(pic_state *, pic_value);
|
||||||
|
struct pic_proc *pic_compile(pic_state *, pic_value, struct pic_env *);
|
||||||
|
|
||||||
#if defined(__cplusplus)
|
#if defined(__cplusplus)
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue