free arena objects created in main function
This commit is contained in:
parent
42dbd5fe98
commit
6bd38273d2
|
@ -34,11 +34,14 @@ main()
|
||||||
int char_index;
|
int char_index;
|
||||||
pic_value v;
|
pic_value v;
|
||||||
struct pic_proc *proc;
|
struct pic_proc *proc;
|
||||||
|
int ai;
|
||||||
|
|
||||||
pic = pic_open();
|
pic = pic_open();
|
||||||
|
|
||||||
//test_object_creation(pic);
|
//test_object_creation(pic);
|
||||||
|
|
||||||
|
ai = pic_gc_arena_preserve(pic);
|
||||||
|
|
||||||
while (1) {
|
while (1) {
|
||||||
printf("> ");
|
printf("> ");
|
||||||
|
|
||||||
|
@ -63,6 +66,8 @@ main()
|
||||||
pic_debug(pic, v);
|
pic_debug(pic, v);
|
||||||
|
|
||||||
printf("\n");
|
printf("\n");
|
||||||
|
|
||||||
|
pic_gc_arena_restore(pic, ai);
|
||||||
}
|
}
|
||||||
|
|
||||||
eof:
|
eof:
|
||||||
|
|
Loading…
Reference in New Issue