add pic_fdebug
This commit is contained in:
parent
7fe109a998
commit
468e1b4d1f
|
@ -211,6 +211,7 @@ NORETURN void pic_errorf(pic_state *, const char *, size_t, ...);
|
|||
void pic_warn(pic_state *, const char *);
|
||||
|
||||
void pic_debug(pic_state *, pic_value);
|
||||
void pic_fdebug(pic_state *, pic_value, XFILE *);
|
||||
|
||||
#if defined(__cplusplus)
|
||||
}
|
||||
|
|
10
src/write.c
10
src/write.c
|
@ -157,8 +157,14 @@ write(pic_state *pic, pic_value obj, XFILE *file)
|
|||
void
|
||||
pic_debug(pic_state *pic, pic_value obj)
|
||||
{
|
||||
write(pic, obj, xstdout);
|
||||
xfflush(xstdout);
|
||||
pic_fdebug(pic, obj, xstdout);
|
||||
}
|
||||
|
||||
void
|
||||
pic_fdebug(pic_state *pic, pic_value obj, XFILE *file)
|
||||
{
|
||||
write(pic, obj, file);
|
||||
xfflush(file);
|
||||
}
|
||||
|
||||
static pic_value
|
||||
|
|
Loading…
Reference in New Issue