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

remove pic->ccnt

This commit is contained in:
Yuichi Nishiwaki 2016-02-23 23:28:28 +09:00
parent eea41c53d7
commit 17ccaea236
3 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extlib/benz/cont.c
View File

@ -9,8 +9,6 @@
struct cont {
PIC_JMPBUF *jmp;
int id;
struct checkpoint *cp;
ptrdiff_t sp_offset;
ptrdiff_t ci_offset;
@ -39,7 +37,6 @@ pic_save_point(pic_state *pic, struct cont *cont, PIC_JMPBUF *jmp)
cont->prev = pic->cc;
cont->retc = 0;
cont->retv = NULL;
cont->id = pic->ccnt++;
pic->cc = cont;
}
@ -109,18 +106,15 @@ cont_call(pic_state *pic)
{
int argc;
pic_value *argv;
int id;
struct cont *cc, *cont;
pic_get_args(pic, "*", &argc, &argv);
cont = pic_data(pic, pic_closure_ref(pic, 0));
id = cont->id;
/* check if continuation is alive */
for (cc = pic->cc; cc != NULL; cc = cc->prev) {
if (cc->id == id) {
if (cc == cont) {
break;
}
}

1
extlib/benz/include/picrin/private/state.h
View File

@ -41,7 +41,6 @@ struct pic_state {
struct checkpoint *cp;
struct cont *cc;
int ccnt;
pic_value *sp;
pic_value *stbase, *stend;

1
extlib/benz/state.c
View File

@ -208,7 +208,6 @@ pic_open(pic_allocf allocf, void *userdata)
/* continuation chain */
pic->cc = NULL;
pic->ccnt = 0;
/* root block */
pic->cp = NULL;