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

[bugfix] compiling big library faults with arena overflow

This commit is contained in:
Yuichi Nishiwaki 2014-02-11 22:44:04 +09:00
parent 855702716c
commit 5be10aefc9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/macro.c
View File

@ -318,6 +318,7 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
/* proceed expressions in new library */ /* proceed expressions in new library */
pic_in_library(pic, pic_cadr(pic, expr)); pic_in_library(pic, pic_cadr(pic, expr));
{ {
int ai = pic_gc_arena_preserve(pic);
struct pic_proc *proc; struct pic_proc *proc;
pic_for_each (v, pic_cddr(pic, expr)) { pic_for_each (v, pic_cddr(pic, expr)) {
@ -329,6 +330,7 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
if (pic_undef_p(v)) { if (pic_undef_p(v)) {
abort(); abort();
} }
pic_gc_arena_restore(pic, ai);
} }
} }
pic_in_library(pic, prev->name); pic_in_library(pic, prev->name);