** compiles the main function, which is a regular vararg function with an ** upvalue named LUA_ENV */
| 1922 | ** upvalue named LUA_ENV |
| 1923 | */ |
| 1924 | static void mainfunc (LexState *ls, FuncState *fs) { |
| 1925 | BlockCnt bl; |
| 1926 | Upvaldesc *env; |
| 1927 | open_func(ls, fs, &bl); |
| 1928 | setvararg(fs, 0); /* main function is always declared vararg */ |
| 1929 | env = allocupvalue(fs); /* ...set environment upvalue */ |
| 1930 | env->instack = 1; |
| 1931 | env->idx = 0; |
| 1932 | env->kind = VDKREG; |
| 1933 | env->name = ls->envn; |
| 1934 | luaC_objbarrier(ls->L, fs->f, env->name); |
| 1935 | luaX_next(ls); /* read first token */ |
| 1936 | statlist(ls); /* parse main body */ |
| 1937 | check(ls, TK_EOS); |
| 1938 | close_func(ls); |
| 1939 | } |
| 1940 | |
| 1941 | |
| 1942 | LClosure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, |
no test coverage detected