mirror of https://github.com/rusefi/lua.git
small bug
This commit is contained in:
parent
62367dda44
commit
201288b4df
7
ldo.c
7
ldo.c
|
@ -1,5 +1,5 @@
|
||||||
/*
|
/*
|
||||||
** $Id: ldo.c,v 2.34 2005/10/06 20:44:22 roberto Exp roberto $
|
** $Id: ldo.c,v 2.35 2005/10/14 16:23:33 roberto Exp roberto $
|
||||||
** Stack and Call structure of Lua
|
** Stack and Call structure of Lua
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
@ -276,8 +276,11 @@ int luaD_precall (lua_State *L, StkId func, int nresults) {
|
||||||
Proto *p = cl->p;
|
Proto *p = cl->p;
|
||||||
luaD_checkstack(L, p->maxstacksize);
|
luaD_checkstack(L, p->maxstacksize);
|
||||||
func = restorestack(L, funcr);
|
func = restorestack(L, funcr);
|
||||||
if (!p->is_vararg) /* no varargs? */
|
if (!p->is_vararg) { /* no varargs? */
|
||||||
base = func + 1;
|
base = func + 1;
|
||||||
|
if (L->top > base + p->numparams)
|
||||||
|
L->top = base + p->numparams;
|
||||||
|
}
|
||||||
else { /* vararg function */
|
else { /* vararg function */
|
||||||
int nargs = cast(int, L->top - func) - 1;
|
int nargs = cast(int, L->top - func) - 1;
|
||||||
base = adjust_varargs(L, p, nargs);
|
base = adjust_varargs(L, p, nargs);
|
||||||
|
|
Loading…
Reference in New Issue