110   Proto *f = &luaC_newobj(L, LUA_TPROTO, sizeof(Proto), NULL, 0)->p;  in luaF_newproto()  local
111   f->k = NULL;  in luaF_newproto()
112   f->sizek = 0;  in luaF_newproto()
113   f->p = NULL;  in luaF_newproto()
114   f->sizep = 0;  in luaF_newproto()
115   f->code = NULL;  in luaF_newproto()
116   f->cache = NULL;  in luaF_newproto()
117   f->sizecode = 0;  in luaF_newproto()
118   f->lineinfo = NULL;  in luaF_newproto()
119   f->sizelineinfo = 0;  in luaF_newproto()
120   f->upvalues = NULL;  in luaF_newproto()
121   f->sizeupvalues = 0;  in luaF_newproto()
122   f->numparams = 0;  in luaF_newproto()
123   f->is_vararg = 0;  in luaF_newproto()
124   f->maxstacksize = 0;  in luaF_newproto()
125   f->locvars = NULL;  in luaF_newproto()
126   f->sizelocvars = 0;  in luaF_newproto()
127   f->linedefined = 0;  in luaF_newproto()
128   f->lastlinedefined = 0;  in luaF_newproto()
129   f->source = NULL;  in luaF_newproto()
130   return f;  in luaF_newproto()
134 void luaF_freeproto (lua_State *L, Proto *f) {  in luaF_freeproto()  argument
135   luaM_freearray(L, f->code, f->sizecode);  in luaF_freeproto()
136   luaM_freearray(L, f->p, f->sizep);  in luaF_freeproto()
137   luaM_freearray(L, f->k, f->sizek);  in luaF_freeproto()
138   luaM_freearray(L, f->lineinfo, f->sizelineinfo);  in luaF_freeproto()
139   luaM_freearray(L, f->locvars, f->sizelocvars);  in luaF_freeproto()
140   luaM_freearray(L, f->upvalues, f->sizeupvalues);  in luaF_freeproto()
141   luaM_free(L, f);  in luaF_freeproto()
149 const char *luaF_getlocalname (const Proto *f, int local_number, int pc) {  in luaF_getlocalname()  argument
151   for (i = 0; i<f->sizelocvars && f->locvars[i].startpc <= pc; i++) {  in luaF_getlocalname()
152     if (pc < f->locvars[i].endpc) {  /* is variable active? */  in luaF_getlocalname()
155         return getstr(f->locvars[i].varname);  in luaF_getlocalname()