Refactor for_body func

ad77ed8b · Jun Hiroe · f4260a85 · ad77ed8b
Commit ad77ed8b authored Oct 28, 2014 by Jun Hiroe
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 2 deletions

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

No files found.
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -571,12 +571,11 @@ for_body(codegen_scope *s, node *tree)

  /* generate loop variable */
  n2 = tree->car;
+  genop(s, MKOP_Ax(OP_ENTER, 0x40000));
  if (n2->car && !n2->car->cdr && !n2->cdr) {
-    genop(s, MKOP_Ax(OP_ENTER, 0x40000));
    gen_assignment(s, n2->car->car, 1, NOVAL);
  }
  else {
-    genop(s, MKOP_Ax(OP_ENTER, 0x40000));
    gen_vmassignment(s, n2, 1, VAL);
  }
  codegen(s, tree->cdr->cdr->car, VAL);