fixed a bug when number of LHS and RHS differs; fix #3239

2026-06-08 16:11:16 +00:00 · 2016-11-11 04:37:42 +09:00
parent 872517dff3
commit 3f002b6993
1 changed files with 12 additions and 2 deletions
@@ -1655,11 +1655,21 @@ codegen(codegen_scope *s, node *tree, int val)
        }
        tree = tree->car;
        if (tree->car) {                /* pre */
+          int first = TRUE;
          t = tree->car;
          n = 0;
          while (t) {
-            gen_assignment(s, t->car, rhs+n, NOVAL);
-            n++;
+            if (n < len) {
+              gen_assignment(s, t->car, rhs+n, NOVAL);
+              n++;
+            }
+            else {
+              if (first) {
+                genop(s, MKOP_A(OP_LOADNIL, rhs+n));
+                first = FALSE;
+              }
+              gen_assignment(s, t->car, rhs+n, NOVAL);
+            }
            t = t->cdr;
          }
        }