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

typedef struct pic_code pic_code

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2014-03-07 22:06:43 +09:00
parent 07cdd24fe1
commit 751d0f87f8
5 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/codegen.c
+4 -4
View File
@@ -948,7 +948,7 @@ typedef struct codegen_context {
/* closed variable table */
unsigned *cv_tbl, cv_num;
/* actual bit code sequence */
struct pic_code *code;
pic_code *code;
size_t clen, ccapa;
/* child ireps */
struct pic_irep **irep;
@@ -1045,7 +1045,7 @@ push_codegen_context(codegen_state *state, pic_value args, pic_value locals, boo
xh_destroy(vars);
cxt->code = (struct pic_code *)pic_calloc(pic, PIC_ISEQ_SIZE, sizeof(struct pic_code));
cxt->code = (pic_code *)pic_calloc(pic, PIC_ISEQ_SIZE, sizeof(pic_code));
cxt->clen = 0;
cxt->ccapa = PIC_ISEQ_SIZE;
@@ -1074,7 +1074,7 @@ pop_codegen_context(codegen_state *state)
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(pic_code) * state->cxt->clen);
irep->clen = state->cxt->clen;
irep->irep = pic_realloc(pic, state->cxt->irep, sizeof(struct pic_irep *) * state->cxt->ilen);
irep->ilen = state->cxt->ilen;
@@ -1553,7 +1553,7 @@ pic_set(pic_state *pic, const char *name, pic_value value)
}
void
print_code(pic_state *pic, struct pic_code c)
print_code(pic_state *pic, pic_code c)
{
UNUSED(pic);
src/vm.c
+4 -4
View File
@@ -362,7 +362,7 @@ pic_apply_argv(pic_state *pic, struct pic_proc *proc, size_t argc, ...)
return pic_apply(pic, proc, v);
}
void print_code(pic_state *, struct pic_code);
void print_code(pic_state *, pic_code);
#if VM_DEBUG
# define OPCODE_EXEC_HOOK print_code(pic, c)
@@ -394,11 +394,11 @@ void print_code(pic_state *, struct pic_code);
pic_value
pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
{
struct pic_code c;
pic_code c;
int ai = pic_gc_arena_preserve(pic);
jmp_buf jmp, *prev_jmp = pic->jmp;
size_t argc, i;
struct pic_code boot[2];
pic_code boot[2];
#if PIC_DIRECT_THREADED_VM
static void *oplabels[] = {
@@ -849,7 +849,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
} VM_LOOP_END;
}
static struct pic_code trampoline_iseq[] = {
static pic_code trampoline_iseq[] = {
{ OP_NOP, {0} },
{ OP_TAILCALL, {0} },
};