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

ccapa property no longer used

This commit is contained in:
Yuichi Nishiwaki 2014-01-18 21:03:12 +09:00
parent d3412deae1
commit 53e3e019de
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/picrin/irep.h
View File

@ -61,7 +61,7 @@ struct pic_code {
struct pic_irep { struct pic_irep {
PIC_OBJECT_HEADER PIC_OBJECT_HEADER
struct pic_code *code; struct pic_code *code;
size_t clen, ccapa; size_t clen;
int argc, localc; int argc, localc;
unsigned *cv_tbl, cv_num; unsigned *cv_tbl, cv_num;
bool varg; bool varg;

4
src/codegen.c
View File

@ -29,7 +29,6 @@ new_irep(pic_state *pic)
irep = (struct pic_irep *)pic_obj_alloc(pic, sizeof(struct pic_irep), PIC_TT_IREP); irep = (struct pic_irep *)pic_obj_alloc(pic, sizeof(struct pic_irep), PIC_TT_IREP);
irep->code = NULL; irep->code = NULL;
irep->clen = 0; irep->clen = 0;
irep->ccapa = 0;
irep->argc = -1; irep->argc = -1;
irep->localc = -1; irep->localc = -1;
irep->varg = false; irep->varg = false;
@ -848,7 +847,6 @@ codegen_lambda(codegen_state *state, pic_value obj)
irep->localc = state->scope->localc; irep->localc = state->scope->localc;
irep->code = state->scope->code; irep->code = state->scope->code;
irep->clen = state->scope->clen; irep->clen = state->scope->clen;
irep->ccapa = state->scope->ccapa;
/* fixup local references */ /* fixup local references */
for (i = 0; i < irep->clen; ++i) { for (i = 0; i < irep->clen; ++i) {
@ -1126,7 +1124,7 @@ pic_dump_irep(pic_state *pic, struct pic_irep *irep)
int i; int i;
printf("## irep %p\n", (void *)irep); printf("## irep %p\n", (void *)irep);
printf("[clen = %zd, ccapa = %zd, argc = %d, localc = %d]\n", irep->clen, irep->ccapa, irep->argc, irep->localc); printf("[clen = %zd, argc = %d, localc = %d]\n", irep->clen, irep->argc, irep->localc);
printf(":: cv_num = %d\n", irep->cv_num); printf(":: cv_num = %d\n", irep->cv_num);
for (i = 0; i < irep->cv_num; ++i) { for (i = 0; i < irep->cv_num; ++i) {
printf(": %d -> %d\n", irep->cv_tbl[i], i); printf(": %d -> %d\n", irep->cv_tbl[i], i);