aboutsummaryrefslogtreecommitdiff
path: root/ldo.c
diff options
context:
space:
mode:
Diffstat (limited to 'ldo.c')
-rw-r--r--ldo.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/ldo.c b/ldo.c
index 6affe61f..1af502ff 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldo.c,v 2.68 2009/09/28 16:32:50 roberto Exp roberto $ 2** $Id: ldo.c,v 2.69 2009/10/11 20:02:19 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*/
@@ -579,7 +579,7 @@ static void f_parser (lua_State *L, void *ud) {
579 : luaY_parser(L, p->z, &p->buff, &p->varl, p->name); 579 : luaY_parser(L, p->z, &p->buff, &p->varl, p->name);
580 setptvalue2s(L, L->top, tf); 580 setptvalue2s(L, L->top, tf);
581 incr_top(L); 581 incr_top(L);
582 cl = luaF_newLclosure(L, tf->sizeupvalues, hvalue(gt(L))); 582 cl = luaF_newLclosure(L, tf->sizeupvalues, hvalue(&G(L)->l_gt));
583 cl->l.p = tf; 583 cl->l.p = tf;
584 setclvalue(L, L->top - 1, cl); 584 setclvalue(L, L->top - 1, cl);
585 for (i = 0; i < tf->sizeupvalues; i++) /* initialize upvalues */ 585 for (i = 0; i < tf->sizeupvalues; i++) /* initialize upvalues */