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

add arena protection to the VM

This commit is contained in:
Yuichi Nishiwaki 2013-10-13 17:29:21 +09:00
parent 8b859d4dbc
commit 2ef277d5bd
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/vm.c
View File

@ -189,6 +189,7 @@ pic_run(pic_state *pic, struct pic_proc *proc, pic_value args)
{ {
struct pic_code *pc; struct pic_code *pc;
pic_value *sp; pic_value *sp;
int ai = pic_gc_arena_preserve(pic);
pc = proc->u.irep->code; pc = proc->u.irep->code;
sp = pic->sp; sp = pic->sp;
@ -216,9 +217,10 @@ pic_run(pic_state *pic, struct pic_proc *proc, pic_value args)
} }
CASE(OP_CONS) { CASE(OP_CONS) {
pic_value a, b; pic_value a, b;
a = POP(); pic_gc_protect(pic, a = POP());
b = POP(); pic_gc_protect(pic, b = POP());
PUSH(pic_cons(pic, a, b)); PUSH(pic_cons(pic, a, b));
pic_gc_arena_restore(pic, ai);
NEXT; NEXT;
} }
CASE(OP_ADD) { CASE(OP_ADD) {