| 357 | |
| 358 | |
| 359 | static void open_func (LexState *ls, FuncState *fs) { |
| 360 | lua_State *L = ls->L; |
| 361 | Proto *f = luaF_newproto(L); |
| 362 | fs->f = f; |
| 363 | fs->prev = ls->fs; /* linked list of funcstates */ |
| 364 | fs->ls = ls; |
| 365 | fs->L = L; |
| 366 | ls->fs = fs; |
| 367 | fs->pc = 0; |
| 368 | fs->lasttarget = -1; |
| 369 | fs->jpc = NO_JUMP; |
| 370 | fs->freereg = 0; |
| 371 | fs->nk = 0; |
| 372 | fs->np = 0; |
| 373 | fs->nlocvars = 0; |
| 374 | fs->nactvar = 0; |
| 375 | fs->bl = NULL; |
| 376 | f->source = ls->source; |
| 377 | f->maxstacksize = 2; /* registers 0/1 are always valid */ |
| 378 | fs->h = luaH_new(L, 0, 0); |
| 379 | /* anchor table of constants and prototype (to avoid being collected) */ |
| 380 | sethvalue2s(L, L->top, fs->h); |
| 381 | incr_top(L); |
| 382 | setptvalue2s(L, L->top, f); |
| 383 | incr_top(L); |
| 384 | } |
| 385 | |
| 386 | |
| 387 | static void close_func (LexState *ls) { |
no test coverage detected