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

print generated irep

This commit is contained in:
Yuichi Nishiwaki 2013-10-15 09:07:19 +09:00
parent 60ed971dd9
commit 2afdb54c16
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/vm.c
View File

@ -52,6 +52,42 @@ pic_env_define(pic_state *pic, pic_value sym, struct pic_env *env)
return pic_pair_ptr(cell); return pic_pair_ptr(cell);
} }
static void
print_irep(pic_state *pic, struct pic_irep *irep)
{
int i;
printf("## irep %p [clen = %zd, ccapa = %zd]\n", irep, irep->clen, irep->ccapa);
for (i = 0; i < irep->clen; ++i) {
switch (irep->code[i].insn) {
case OP_PUSHNIL:
puts("OP_PUSHNIL");
break;
case OP_PUSHI:
printf("OP_PUSHI\t%d\n", irep->code[i].u.i);
break;
case OP_PUSHUNDEF:
puts("OP_PUSHUNDEF");
break;
case OP_GREF:
printf("OP_GREF\t%p\n", irep->code[i].u.gvar);
break;
case OP_GSET:
printf("OP_GSET%p\n", irep->code[i].u.gvar);
break;
case OP_CONS:
puts("OP_CONS");
break;
case OP_ADD:
puts("OP_ADD");
break;
case OP_STOP:
puts("OP_STOP");
break;
}
}
}
static void static void
pic_gen(pic_state *pic, struct pic_irep *irep, pic_value obj, struct pic_env *env) pic_gen(pic_state *pic, struct pic_irep *irep, pic_value obj, struct pic_env *env)
{ {
@ -149,6 +185,10 @@ pic_codegen(pic_state *pic, pic_value obj, struct pic_env *env)
irep->code[irep->clen].insn = OP_STOP; irep->code[irep->clen].insn = OP_STOP;
irep->clen++; irep->clen++;
#if VM_DEBUG
print_irep(pic, irep);
#endif
return proc; return proc;
} }