** Register a new local variable in the active 'Proto' (for debug ** information). */
| 173 | ** information). |
| 174 | */ |
| 175 | static short registerlocalvar (LexState *ls, FuncState *fs, |
| 176 | TString *varname) { |
| 177 | Proto *f = fs->f; |
| 178 | int oldsize = f->sizelocvars; |
| 179 | luaM_growvector(ls->L, f->locvars, fs->ndebugvars, f->sizelocvars, |
| 180 | LocVar, SHRT_MAX, "local variables"); |
| 181 | while (oldsize < f->sizelocvars) |
| 182 | f->locvars[oldsize++].varname = NULL; |
| 183 | f->locvars[fs->ndebugvars].varname = varname; |
| 184 | f->locvars[fs->ndebugvars].startpc = fs->pc; |
| 185 | luaC_objbarrier(ls->L, f, varname); |
| 186 | return fs->ndebugvars++; |
| 187 | } |
| 188 | |
| 189 | |
| 190 | /* |