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

add cv_foo properties to codegen_context

This commit is contained in:
Yuichi Nishiwaki 2014-01-23 18:55:39 +09:00
parent 75167697f0
commit 801c04788f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/codegen.c
View File

@ -658,6 +658,8 @@ typedef struct codegen_context {
bool varg; bool varg;
/* rest args variable is counted by localc */ /* rest args variable is counted by localc */
size_t argc, localc; size_t argc, localc;
/* closed variable table */
unsigned *cv_tbl, cv_num;
/* actual bit code sequence */ /* actual bit code sequence */
struct pic_code *code; struct pic_code *code;
size_t clen, ccapa; size_t clen, ccapa;
@ -680,6 +682,7 @@ typedef struct codegen_state {
codegen_context *cxt; codegen_context *cxt;
pic_sym sGREF, sCREF, sLREF; pic_sym sGREF, sCREF, sLREF;
pic_sym sCALL, sTAILCALL; pic_sym sCALL, sTAILCALL;
unsigned *cv_tbl, cv_num;
} codegen_state; } codegen_state;
static void push_codegen_context(codegen_state *, pic_value, pic_value); static void push_codegen_context(codegen_state *, pic_value, pic_value);
@ -731,6 +734,9 @@ push_codegen_context(codegen_state *state, pic_value args, pic_value defs)
} }
cxt->localc += pic_length(pic, defs); cxt->localc += pic_length(pic, defs);
cxt->cv_tbl = NULL;
cxt->cv_num = 0;
cxt->code = (struct pic_code *)pic_calloc(pic, PIC_ISEQ_SIZE, sizeof(struct pic_code)); cxt->code = (struct pic_code *)pic_calloc(pic, PIC_ISEQ_SIZE, sizeof(struct pic_code));
cxt->clen = 0; cxt->clen = 0;
cxt->ccapa = PIC_ISEQ_SIZE; cxt->ccapa = PIC_ISEQ_SIZE;
@ -758,6 +764,8 @@ pop_codegen_context(codegen_state *state)
irep->varg = state->cxt->varg; irep->varg = state->cxt->varg;
irep->argc = state->cxt->argc; irep->argc = state->cxt->argc;
irep->localc = state->cxt->localc; irep->localc = state->cxt->localc;
irep->cv_tbl = state->cxt->cv_tbl;
irep->cv_num = state->cxt->cv_num;
irep->code = pic_realloc(pic, state->cxt->code, sizeof(struct pic_code) * state->cxt->clen); irep->code = pic_realloc(pic, state->cxt->code, sizeof(struct pic_code) * state->cxt->clen);
irep->clen = state->cxt->clen; irep->clen = state->cxt->clen;
irep->irep = pic_realloc(pic, state->cxt->irep, sizeof(struct pic_irep *) * state->cxt->ilen); irep->irep = pic_realloc(pic, state->cxt->irep, sizeof(struct pic_irep *) * state->cxt->ilen);