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

keep continuation object from being optimized out

This commit is contained in:
Yuichi Nishiwaki 2016-03-04 00:31:21 +09:00
parent 86c68b1769
commit a0edca8d8d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extlib/benz/cont.c
View File

@ -148,7 +148,7 @@ static pic_value
pic_callcc(pic_state *pic, pic_value proc) pic_callcc(pic_state *pic, pic_value proc)
{ {
PIC_JMPBUF jmp; PIC_JMPBUF jmp;
struct cont *cont = pic_alloca_cont(pic); volatile struct cont *cont = pic_alloca_cont(pic);
if (PIC_SETJMP(pic, jmp)) { if (PIC_SETJMP(pic, jmp)) {
return pic_valuesk(pic, cont->retc, cont->retv); return pic_valuesk(pic, cont->retc, cont->retv);
@ -156,9 +156,9 @@ pic_callcc(pic_state *pic, pic_value proc)
else { else {
pic_value val; pic_value val;
pic_save_point(pic, cont, &jmp); pic_save_point(pic, (struct cont *)cont, &jmp);
val = pic_call(pic, proc, 1, pic_make_cont(pic, cont)); val = pic_call(pic, proc, 1, pic_make_cont(pic, (struct cont *)cont));
pic_exit_point(pic); pic_exit_point(pic);