mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-02-08 09:14:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

using more "conventional" loops in 'luaD_poscall' (probably a little

Browse Source 
more efficient?)
This commit is contained in:
Roberto Ierusalimschy 2015-11-02 09:48:59 -02:00
parent 07a2dcacbf
commit ffd0d1232d
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ldo.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 2.143 2015/10/28 12:25:36 roberto Exp roberto $ ** $Id: ldo.c,v 2.144 2015/10/28 17:28:40 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
*/ */
@ -406,12 +406,18 @@ int luaD_poscall (lua_State *L, StkId firstResult, int nres) {
res = ci->func; /* res == final position of 1st result */ res = ci->func; /* res == final position of 1st result */
wanted = ci->nresults; wanted = ci->nresults;
L->ci = ci->previous; /* back to caller */ L->ci = ci->previous; /* back to caller */
/* move results to correct place */ /* comparison is 'unsigned' to make 'LUA_MULTRET' fails test */
for (i = wanted; i != 0 && nres-- > 0; i--) if ((unsigned int)wanted <= (unsigned int)nres) { /* enough results? */
setobjs2s(L, res++, firstResult++); for (i = 0; i < wanted; i++) /* move wanted results to correct place */
while (i-- > 0) setobjs2s(L, res + i, firstResult + i);
setnilvalue(res++); }
L->top = res; else { /* not enough results (or multret); use all of them plus nils */
for (i = 0; i < nres; i++) /* move all results to correct place */
setobjs2s(L, res + i, firstResult + i);
for (; i < wanted; i++) /* complete wanted number of results */
setnilvalue(res + i);
}
L->top = res + i; /* top points after the last result */
return (wanted - LUA_MULTRET); /* 0 iff wanted == LUA_MULTRET */ return (wanted - LUA_MULTRET); /* 0 iff wanted == LUA_MULTRET */
} }