diff options
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 5 |
1 files changed, 3 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.194 2002/09/02 20:00:41 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.195 2002/10/08 18:46:08 roberto Exp roberto $ |
| 3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -426,7 +426,8 @@ struct SParser { /* data to `f_parser' */ | |||
| 426 | 426 | ||
| 427 | static void f_parser (lua_State *L, void *ud) { | 427 | static void f_parser (lua_State *L, void *ud) { |
| 428 | struct SParser *p = cast(struct SParser *, ud); | 428 | struct SParser *p = cast(struct SParser *, ud); |
| 429 | Proto *tf = p->bin ? luaU_undump(L, p->z) : luaY_parser(L, p->z, &p->buff); | 429 | Proto *tf = p->bin ? luaU_undump(L, p->z, &p->buff) : |
| 430 | luaY_parser(L, p->z, &p->buff); | ||
| 430 | Closure *cl = luaF_newLclosure(L, 0, gt(L)); | 431 | Closure *cl = luaF_newLclosure(L, 0, gt(L)); |
| 431 | cl->l.p = tf; | 432 | cl->l.p = tf; |
| 432 | setclvalue(L->top, cl); | 433 | setclvalue(L->top, cl); |
