32 #define getlocvar(fs, i)	((fs)->f->locvars[(fs)->actvar[i]])
72   const char *msg = (fs->f->linedefined == 0) ?  in errorlimit()
75                             fs->f->linedefined, limit, what);  in errorlimit()
127   e->f = e->t = NO_JUMP;  in init_exp()
145   Proto *f = fs->f;  in registerlocalvar()  local
146   int oldsize = f->sizelocvars;  in registerlocalvar()
147   luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars,  in registerlocalvar()
149   while (oldsize < f->sizelocvars) f->locvars[oldsize++].varname = NULL;  in registerlocalvar()
150   f->locvars[fs->nlocvars].varname = varname;  in registerlocalvar()
151   luaC_objbarrier(ls->L, f, varname);  in registerlocalvar()
185   Proto *f = fs->f;  in indexupvalue()  local
186   int oldsize = f->sizeupvalues;  in indexupvalue()
187   for (i=0; i<f->nups; i++) {  in indexupvalue()
189       lua_assert(f->upvalues[i] == name);  in indexupvalue()
194   luaY_checklimit(fs, f->nups + 1, LUAI_MAXUPVALUES, "upvalues");  in indexupvalue()
195   luaM_growvector(fs->L, f->upvalues, f->nups, f->sizeupvalues,  in indexupvalue()
197   while (oldsize < f->sizeupvalues) f->upvalues[oldsize++] = NULL;  in indexupvalue()
198   f->upvalues[f->nups] = name;  in indexupvalue()
199   luaC_objbarrier(fs->L, f, name);  in indexupvalue()
201   fs->upvalues[f->nups].k = cast_byte(v->k);  in indexupvalue()
202   fs->upvalues[f->nups].info = cast_byte(v->u.s.info);  in indexupvalue()
203   return f->nups++;  in indexupvalue()
312   Proto *f = fs->f;  in pushclosure()  local
313   int oldsize = f->sizep;  in pushclosure()
315   luaM_growvector(ls->L, f->p, fs->np, f->sizep, Proto *,  in pushclosure()
317   while (oldsize < f->sizep) f->p[oldsize++] = NULL;  in pushclosure()
318   f->p[fs->np++] = func->f;  in pushclosure()
319   luaC_objbarrier(ls->L, f, func->f);  in pushclosure()
321   for (i=0; i<func->f->nups; i++) {  in pushclosure()
330   Proto *f = luaF_newproto(L);  in open_func()  local
331   fs->f = f;  in open_func()
345   f->source = ls->source;  in open_func()
346   f->maxstacksize = 2;  /* registers 0/1 are always valid */  in open_func()
351   setptvalue2s(L, L->top, f);  in open_func()
359   Proto *f = fs->f;  in close_func()  local
362   luaM_reallocvector(L, f->code, f->sizecode, fs->pc, Instruction);  in close_func()
363   f->sizecode = fs->pc;  in close_func()
364   luaM_reallocvector(L, f->lineinfo, f->sizelineinfo, fs->pc, int);  in close_func()
365   f->sizelineinfo = fs->pc;  in close_func()
366   luaM_reallocvector(L, f->k, f->sizek, fs->nk, TValue);  in close_func()
367   f->sizek = fs->nk;  in close_func()
368   luaM_reallocvector(L, f->p, f->sizep, fs->np, Proto *);  in close_func()
369   f->sizep = fs->np;  in close_func()
370   luaM_reallocvector(L, f->locvars, f->sizelocvars, fs->nlocvars, LocVar);  in close_func()
371   f->sizelocvars = fs->nlocvars;  in close_func()
372   luaM_reallocvector(L, f->upvalues, f->sizeupvalues, f->nups, TString *);  in close_func()
373   f->sizeupvalues = f->nups;  in close_func()
374   lua_assert(luaG_checkcode(f));  in close_func()
389   funcstate.f->is_vararg = VARARG_ISVARARG;  /* main func. is always vararg */  in luaY_parser()
395   lua_assert(funcstate.f->nups == 0);  in luaY_parser()
397   return funcstate.f;  in luaY_parser()
535   SETARG_B(fs->f->code[pc], luaO_int2fb(cc.na)); /* set initial array size */  in constructor()
536   SETARG_C(fs->f->code[pc], luaO_int2fb(cc.nh));  /* set initial table size */  in constructor()
546   Proto *f = fs->f;  in parlist()  local
548   f->is_vararg = 0;  in parlist()
561           f->is_vararg = VARARG_HASARG | VARARG_NEEDSARG;  in parlist()
563           f->is_vararg |= VARARG_ISVARARG;  in parlist()
568     } while (!f->is_vararg && testnext(ls, ','));  in parlist()
571   f->numparams = cast_byte(fs->nactvar - (f->is_vararg & VARARG_HASARG));  in parlist()
580   new_fs.f->linedefined = line;  in body()
589   new_fs.f->lastlinedefined = ls->linenumber;  in body()
609 static void funcargs (LexState *ls, expdesc *f) {  in funcargs()  argument
642   lua_assert(f->k == VNONRELOC);  in funcargs()
643   base = f->u.s.info;  /* base register for call */  in funcargs()
651   init_exp(f, VCALL, luaK_codeABC(fs, OP_CALL, base, nparams+1, 2));  in funcargs()
754       check_condition(ls, fs->f->is_vararg,  in simpleexp()
756       fs->f->is_vararg &= ~VARARG_NEEDSARG;  /* don't need 'arg' */  in simpleexp()
971   return v.f;  in cond()
1332     lua_assert(ls->fs->f->maxstacksize >= ls->fs->freereg &&  in chunk()