eliminate unused hash expression more aggresively

a1804606 · Yukihiro Matz Matsumoto · 1bab7bc5 · a1804606
Commit a1804606 authored Jan 13, 2013 by Yukihiro Matz Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

src/codegen.c src/codegen.c +3 -3

No files found.
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -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();
      }