lua/src/lparser.c

202 static void adjustlocalvars (LexState *ls, int nvars) {
204   fs->nactvar = cast_byte(fs->nactvar + nvars);
205   for (; nvars; nvars--) {
206     getlocvar(fs, fs->nactvar - nvars)->startpc = fs->pc;
309 static void adjust_assign (LexState *ls, int nvars, int nexps, expdesc *e) {
311   int extra = nvars - nexps;
326   if (nexps > nvars)
327     ls->fs->freereg -= nexps - nvars;  /* remove extra values */
1147 static void assignment (LexState *ls, struct LHS_assign *lh, int nvars) {
1156     checklimit(ls->fs, nvars + ls->L->nCcalls, LUAI_MAXCCALLS,
1158     assignment(ls, &nv, nvars+1);
1164     if (nexps != nvars)
1165       adjust_assign(ls, nvars, nexps, &e);
1291 static void forbody (LexState *ls, int base, int line, int nvars, int isnum) {
1300   adjustlocalvars(ls, nvars);
1301   luaK_reserveregs(fs, nvars);
1308     luaK_codeABC(fs, OP_TFORCALL, base, 0, nvars);
1343   int nvars = 4;  /* gen, state, control, plus at least one declared var */
1354     nvars++;
1360   forbody(ls, base, line, nvars - 3, 0);
1444   int nvars = 0;
1449     nvars++;
1457   adjust_assign(ls, nvars, nexps, &e);
1458   adjustlocalvars(ls, nvars);