fix build errors
This commit is contained in:
parent
8a9a1200d8
commit
22d339c2f7
|
@ -38,11 +38,9 @@ pic_get_backtrace(pic_state *pic)
|
||||||
#if PIC_USE_WRITE
|
#if PIC_USE_WRITE
|
||||||
|
|
||||||
void
|
void
|
||||||
pic_print_error(pic_state *pic, xFILE *file)
|
pic_print_error(pic_state *pic, xFILE *file, pic_value err)
|
||||||
{
|
{
|
||||||
pic_value err = pic_err(pic), port = pic_open_port(pic, file);
|
pic_value port = pic_open_port(pic, file);
|
||||||
|
|
||||||
assert(! pic_invalid_p(pic, err));
|
|
||||||
|
|
||||||
if (! pic_error_p(pic, err)) {
|
if (! pic_error_p(pic, err)) {
|
||||||
pic_fprintf(pic, port, "raise: ~s", err);
|
pic_fprintf(pic, port, "raise: ~s", err);
|
||||||
|
|
|
@ -98,7 +98,7 @@ xFILE *xfopen_null(pic_state *, const char *mode);
|
||||||
void pic_warnf(pic_state *, const char *, ...);
|
void pic_warnf(pic_state *, const char *, ...);
|
||||||
pic_value pic_get_backtrace(pic_state *);
|
pic_value pic_get_backtrace(pic_state *);
|
||||||
#if PIC_USE_WRITE
|
#if PIC_USE_WRITE
|
||||||
void pic_print_error(pic_state *, xFILE *);
|
void pic_print_error(pic_state *, xFILE *, pic_value err);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if defined(__cplusplus)
|
#if defined(__cplusplus)
|
||||||
|
|
|
@ -255,7 +255,7 @@ pic_number_string_to_number(pic_state *pic)
|
||||||
int radix = 10;
|
int radix = 10;
|
||||||
long num;
|
long num;
|
||||||
char *eptr;
|
char *eptr;
|
||||||
pic_value flo, e;
|
pic_value flo = pic_false_value(pic), e;
|
||||||
|
|
||||||
pic_get_args(pic, "z|i", &str, &radix);
|
pic_get_args(pic, "z|i", &str, &radix);
|
||||||
|
|
||||||
|
@ -271,7 +271,7 @@ pic_number_string_to_number(pic_state *pic)
|
||||||
}
|
}
|
||||||
pic_catch(e) {
|
pic_catch(e) {
|
||||||
/* swallow error */
|
/* swallow error */
|
||||||
flo = pic_false_value(pic);
|
(void)e;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (pic_int_p(pic, flo) || pic_float_p(pic, flo)) {
|
if (pic_int_p(pic, flo) || pic_float_p(pic, flo)) {
|
||||||
|
|
|
@ -45,7 +45,7 @@ main(int argc, char *argv[], char **envp)
|
||||||
status = 0;
|
status = 0;
|
||||||
}
|
}
|
||||||
pic_catch(e) {
|
pic_catch(e) {
|
||||||
pic_print_error(pic, xstderr);
|
pic_print_error(pic, xstderr, e);
|
||||||
status = 1;
|
status = 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue