eliminate unused hash expression more aggresively

This commit is contained in:
Yukihiro Matz Matsumoto
2013-01-13 00:51:44 +09:00
parent 1bab7bc511
commit a180460635
+3 -3
View File
@@ -1327,13 +1327,13 @@ codegen(codegen_scope *s, node *tree, int val)
int len = 0;
while (tree) {
codegen(s, tree->car->car, VAL);
codegen(s, tree->car->cdr, VAL);
codegen(s, tree->car->car, val);
codegen(s, tree->car->cdr, val);
len++;
tree = tree->cdr;
}
pop_n(len*2);
if (val) {
pop_n(len*2);
genop(s, MKOP_ABC(OP_HASH, cursp(), cursp(), len));
push();
}