nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

by-one error when filling missing arguments in a tail call

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2017-12-29 13:44:51 -02:00
parent cf7eff45f3
commit 28323aeaa6
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ldo.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 2.183 2017/12/20 14:58:05 roberto Exp roberto $ ** $Id: ldo.c,v 2.184 2017/12/28 14:17:09 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
*/ */
@@ -418,8 +418,8 @@ void luaD_pretailcall (lua_State *L, CallInfo *ci, StkId func, int n) {
for (i = 0; i < n; i++) /* move down function and arguments */ for (i = 0; i < n; i++) /* move down function and arguments */
setobjs2s(L, ci->func + i, func + i); setobjs2s(L, ci->func + i, func + i);
checkstackp(L, fsize, func); checkstackp(L, fsize, func);
for (; i < p->numparams; i++) for (; i <= p->numparams; i++)
setnilvalue(s2v(ci->func + i)); /* complete missing parameters */ setnilvalue(s2v(ci->func + i)); /* complete missing arguments */
if (p->is_vararg) { if (p->is_vararg) {
L->top -= (func - ci->func); /* move down top */ L->top -= (func - ci->func); /* move down top */
luaT_adjustvarargs(L, p, n - 1); luaT_adjustvarargs(L, p, n - 1);