diff options
-rw-r--r-- | ldo.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldo.c,v 2.39 2006/07/11 15:53:29 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 2.40 2006/08/15 19:59:20 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 | */ |
@@ -502,8 +502,8 @@ static void f_parser (lua_State *L, void *ud) { | |||
502 | struct SParser *p = cast(struct SParser *, ud); | 502 | struct SParser *p = cast(struct SParser *, ud); |
503 | int c = luaZ_lookahead(p->z); | 503 | int c = luaZ_lookahead(p->z); |
504 | luaC_checkGC(L); | 504 | luaC_checkGC(L); |
505 | tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z, | 505 | tf = (c == LUA_SIGNATURE[0]) ? luaU_undump(L, p->z, &p->buff, p->name) |
506 | &p->buff, p->name); | 506 | : luaY_parser(L, p->z, &p->buff, p->name); |
507 | setptvalue2s(L, L->top, tf); | 507 | setptvalue2s(L, L->top, tf); |
508 | incr_top(L); | 508 | incr_top(L); |
509 | cl = luaF_newLclosure(L, tf->nups, hvalue(gt(L))); | 509 | cl = luaF_newLclosure(L, tf->nups, hvalue(gt(L))); |