fix codegen bug in NODE_CASE

61ac9ff2 · h2so5 · 8cd42f64 · 61ac9ff2
Commit 61ac9ff2 authored Dec 19, 2013 by h2so5
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

src/codegen.c src/codegen.c +4 -1

No files found.
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -1409,10 +1409,13 @@ codegen(codegen_scope *s, node *tree, int val)
        tree = tree->cdr;
      }
      if (val) {
+        int pos = cursp();
        genop(s, MKOP_A(OP_LOADNIL, cursp()));
+        if (pos3) dispatch_linked(s, pos3);
+        pop();
+        genop(s, MKOP_AB(OP_MOVE, cursp(), pos));
        push();
      }
-      if (pos3) dispatch_linked(s, pos3);
    }
    break;