mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new implementation for tailcall

This commit is contained in:
Roberto Ierusalimschy 2002-08-05 14:35:45 -03:00
parent 4a4f243795
commit 1c0ac3c0f5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lparser.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lparser.c,v 1.189 2002/06/26 16:37:13 roberto Exp roberto $
** $Id: lparser.c,v 1.190 2002/07/04 18:23:42 roberto Exp $
** Lua Parser
** See Copyright Notice in lua.h
*/
@ -1166,11 +1166,11 @@ static void retstat (LexState *ls) {
else {
nret = explist1(ls, &e); /* optional return values */
if (e.k == VCALL) {
luaK_setcallreturns(fs, &e, LUA_MULTRET);
if (nret == 1) { /* tail call? */
SET_OPCODE(getcode(fs,&e), OP_TAILCALL);
return;
lua_assert(GETARG_A(getcode(fs,&e)) == fs->nactvar);
}
luaK_setcallreturns(fs, &e, LUA_MULTRET);
first = fs->nactvar;
nret = LUA_MULTRET; /* return all values */
}