116   Proto *f = luaM_new(L, Proto);  in luaF_newproto()  local
117   luaC_link(L, obj2gco(f), LUA_TPROTO);  in luaF_newproto()
118   f->k = NULL;  in luaF_newproto()
119   f->sizek = 0;  in luaF_newproto()
120   f->p = NULL;  in luaF_newproto()
121   f->sizep = 0;  in luaF_newproto()
122   f->code = NULL;  in luaF_newproto()
123   f->sizecode = 0;  in luaF_newproto()
124   f->sizelineinfo = 0;  in luaF_newproto()
125   f->sizeupvalues = 0;  in luaF_newproto()
126   f->nups = 0;  in luaF_newproto()
127   f->upvalues = NULL;  in luaF_newproto()
128   f->numparams = 0;  in luaF_newproto()
129   f->is_vararg = 0;  in luaF_newproto()
130   f->maxstacksize = 0;  in luaF_newproto()
131   f->lineinfo = NULL;  in luaF_newproto()
132   f->sizelocvars = 0;  in luaF_newproto()
133   f->locvars = NULL;  in luaF_newproto()
134   f->linedefined = 0;  in luaF_newproto()
135   f->lastlinedefined = 0;  in luaF_newproto()
136   f->source = NULL;  in luaF_newproto()
137   return f;  in luaF_newproto()
141 void luaF_freeproto (lua_State *L, Proto *f) {  in luaF_freeproto()  argument
142   luaM_freearray(L, f->code, f->sizecode, Instruction);  in luaF_freeproto()
143   luaM_freearray(L, f->p, f->sizep, Proto *);  in luaF_freeproto()
144   luaM_freearray(L, f->k, f->sizek, TValue);  in luaF_freeproto()
145   luaM_freearray(L, f->lineinfo, f->sizelineinfo, int);  in luaF_freeproto()
146   luaM_freearray(L, f->locvars, f->sizelocvars, struct LocVar);  in luaF_freeproto()
147   luaM_freearray(L, f->upvalues, f->sizeupvalues, TString *);  in luaF_freeproto()
148   luaM_free(L, f);  in luaF_freeproto()
163 const char *luaF_getlocalname (const Proto *f, int local_number, int pc) {  in luaF_getlocalname()  argument
165   for (i = 0; i<f->sizelocvars && f->locvars[i].startpc <= pc; i++) {  in luaF_getlocalname()
166     if (pc < f->locvars[i].endpc) {  /* is variable active? */  in luaF_getlocalname()
169         return getstr(f->locvars[i].varname);  in luaF_getlocalname()