diff options
Diffstat (limited to 'ldo.c')
-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.66 2009/07/15 17:26:14 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 2.67 2009/09/14 14:30:39 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 | */ |
@@ -577,10 +577,10 @@ static void f_parser (lua_State *L, void *ud) { | |||
577 | : luaY_parser(L, p->z, &p->buff, p->name); | 577 | : luaY_parser(L, p->z, &p->buff, p->name); |
578 | setptvalue2s(L, L->top, tf); | 578 | setptvalue2s(L, L->top, tf); |
579 | incr_top(L); | 579 | incr_top(L); |
580 | cl = luaF_newLclosure(L, tf->nups, hvalue(gt(L))); | 580 | cl = luaF_newLclosure(L, tf->sizeupvalues, hvalue(gt(L))); |
581 | cl->l.p = tf; | 581 | cl->l.p = tf; |
582 | setclvalue(L, L->top - 1, cl); | 582 | setclvalue(L, L->top - 1, cl); |
583 | for (i = 0; i < tf->nups; i++) /* initialize upvalues */ | 583 | for (i = 0; i < tf->sizeupvalues; i++) /* initialize upvalues */ |
584 | cl->l.upvals[i] = luaF_newupval(L); | 584 | cl->l.upvals[i] = luaF_newupval(L); |
585 | } | 585 | } |
586 | 586 | ||