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

OP_RET's operand is no longer used

This commit is contained in:
Yuichi Nishiwaki 2015-07-04 14:02:29 +09:00
parent 18df88d457
commit 1c538a13f1
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extlib/benz/codegen.c
View File

@ -679,7 +679,7 @@ codegen_context_destroy(pic_state *pic, codegen_context *cxt)
cxt->clen++; \ cxt->clen++; \
} while (0) \ } while (0) \
#define emit_ret(pic, cxt, tailpos) if (tailpos) emit_i(pic, cxt, OP_RET, 1) #define emit_ret(pic, cxt, tailpos) if (tailpos) emit_n(pic, cxt, OP_RET)
static void static void
create_activation(pic_state *pic, codegen_context *cxt) create_activation(pic_state *pic, codegen_context *cxt)

2
extlib/benz/include/picrin/irep.h
View File

@ -149,7 +149,7 @@ pic_dump_code(pic_code c)
printf("OP_TAILCALL\t%d\n", c.u.i); printf("OP_TAILCALL\t%d\n", c.u.i);
break; break;
case OP_RET: case OP_RET:
printf("OP_RET\t%d\n", c.u.i); puts("OP_RET");
break; break;
case OP_LAMBDA: case OP_LAMBDA:
printf("OP_LAMBDA\t%d\n", c.u.i); printf("OP_LAMBDA\t%d\n", c.u.i);

2
extlib/benz/vm.c
View File

@ -809,7 +809,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value args)
vm_tear_off(pic->ci); vm_tear_off(pic->ci);
} }
pic->ci->retc = c.u.i; assert(pic->ci->retc == 1);
L_RET: L_RET:
retc = pic->ci->retc; retc = pic->ci->retc;