mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-04-07 13:32:57 +03:00
Code Issues Packages Projects Releases Wiki Activity

detail

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1999-05-21 16:54:06 -03:00
parent cdd0fe9946
commit 613b60c156
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lparser.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lparser.c,v 1.32 1999/05/06 14:41:41 roberto Exp roberto $ ** $Id: lparser.c,v 1.33 1999/05/10 13:54:01 roberto Exp roberto $
** LL(1) Parser and code generator for Lua ** LL(1) Parser and code generator for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -530,7 +530,8 @@ static void func_onstack (LexState *ls, FuncState *func) {
else { else {
for (i=0; i<func->nupvalues; i++) for (i=0; i<func->nupvalues; i++)
lua_pushvar(ls, &func->upvalues[i]); lua_pushvar(ls, &func->upvalues[i]);
code_oparg(ls, CLOSURE, c, -func->nupvalues+1); deltastack(ls, 1); /* CLOSURE puts one extra element (before poping) */
code_oparg(ls, CLOSURE, c, -func->nupvalues);
code_byte(fs, (Byte)func->nupvalues); code_byte(fs, (Byte)func->nupvalues);
} }
} }