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

varg - operator

This commit is contained in:
Yuichi Nishiwaki 2013-11-07 12:18:00 +09:00
parent 84c1156b9d
commit 9d304be02e
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/codegen.c
View File

@ -441,11 +441,26 @@ codegen(codegen_state *state, pic_value obj, bool tailpos)
break;
}
else if (sym == pic->sSUB) {
ARGC_ASSERT(2);
codegen(state, pic_car(pic, pic_cdr(pic, obj)), false);
codegen(state, pic_car(pic, pic_cdr(pic, pic_cdr(pic, obj))), false);
irep->code[irep->clen].insn = OP_SUB;
irep->clen++;
pic_value args;
ARGC_ASSERT_GE(1);
switch (pic_length(pic, obj)) {
case 2:
codegen(state, pic_car(pic, pic_cdr(pic, obj)), false);
irep->code[irep->clen].insn = OP_MINUS;
irep->clen++;
break;
default:
args = pic_cdr(pic, obj);
codegen(state, pic_car(pic, args), false);
while (pic_length(pic, args) >= 2) {
codegen(state, pic_car(pic, pic_cdr(pic, args)), false);
irep->code[irep->clen].insn = OP_SUB;
irep->clen++;
args = pic_cdr(pic, args);
}
break;
}
break;
}
else if (sym == pic->sMUL) {
@ -910,6 +925,9 @@ print_irep(pic_state *pic, struct pic_irep *irep)
case OP_DIV:
puts("OP_DIV");
break;
case OP_MINUS:
puts("OP_MINUS");
break;
case OP_EQ:
puts("OP_EQ");
break;