** compiles the main function, which is a regular vararg function with an ** upvalue named LUA_ENV */
| 2148 | ** upvalue named LUA_ENV |
| 2149 | */ |
| 2150 | static void mainfunc (LexState *ls, FuncState *fs) { |
| 2151 | BlockCnt bl; |
| 2152 | Upvaldesc *env; |
| 2153 | open_func(ls, fs, &bl); |
| 2154 | setvararg(fs); /* main function is always vararg */ |
| 2155 | env = allocupvalue(fs); /* ...set environment upvalue */ |
| 2156 | env->instack = 1; |
| 2157 | env->idx = 0; |
| 2158 | env->kind = VDKREG; |
| 2159 | env->name = ls->envn; |
| 2160 | luaC_objbarrier(ls->L, fs->f, env->name); |
| 2161 | luaX_next(ls); /* read first token */ |
| 2162 | statlist(ls); /* parse main body */ |
| 2163 | check(ls, TK_EOS); |
| 2164 | close_func(ls); |
| 2165 | } |
| 2166 | |
| 2167 | |
| 2168 | LClosure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, |
no test coverage detected