free arena objects created in main function

This commit is contained in:
Yuichi Nishiwaki 2013-10-14 18:29:30 +09:00
parent 42dbd5fe98
commit 6bd38273d2
1 changed files with 5 additions and 0 deletions

View File

@ -34,11 +34,14 @@ main()
int char_index;
pic_value v;
struct pic_proc *proc;
int ai;
pic = pic_open();
//test_object_creation(pic);
ai = pic_gc_arena_preserve(pic);
while (1) {
printf("> ");
@ -63,6 +66,8 @@ main()
pic_debug(pic, v);
printf("\n");
pic_gc_arena_restore(pic, ai);
}
eof: