| 326 | |
| 327 | |
| 328 | static void open_func (LexState *ls, FuncState *fs) { |
| 329 | lua_State *L = ls->L; |
| 330 | Proto *f = luaF_newproto(L); |
| 331 | fs->f = f; |
| 332 | fs->prev = ls->fs; /* linked list of funcstates */ |
| 333 | fs->ls = ls; |
| 334 | fs->L = L; |
| 335 | ls->fs = fs; |
| 336 | fs->pc = 0; |
| 337 | fs->lasttarget = -1; |
| 338 | fs->jpc = NO_JUMP; |
| 339 | fs->freereg = 0; |
| 340 | fs->nk = 0; |
| 341 | fs->np = 0; |
| 342 | fs->nlocvars = 0; |
| 343 | fs->nactvar = 0; |
| 344 | fs->bl = NULL; |
| 345 | f->source = ls->source; |
| 346 | f->maxstacksize = 2; /* registers 0/1 are always valid */ |
| 347 | fs->h = luaH_new(L, 0, 0); |
| 348 | /* anchor table of constants and prototype (to avoid being collected) */ |
| 349 | sethvalue2s(L, L->top, fs->h); |
| 350 | incr_top(L); |
| 351 | setptvalue2s(L, L->top, f); |
| 352 | incr_top(L); |
| 353 | } |
| 354 | |
| 355 | |
| 356 | static void close_func (LexState *ls) { |
no test coverage detected