Miroirs/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-09-28 15:20:31 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

must move call results in the last iteration, too

Browse source
This commit is contained in:
Roberto Ierusalimschy 2002-12-11 10:34:22 -02:00
parent 64864f094b
commit 9e8face8d8
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lvm.c
View file

@ -1,5 +1,5 @@
/*
** $Id: lvm.c,v 1.271 2002/12/04 17:38:31 roberto Exp roberto $
** $Id: lvm.c,v 1.272 2002/12/06 17:09:00 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@ -679,15 +679,16 @@ StkId luaV_execute (lua_State *L) {
L->top = cb+3; /* func. + 2 args (state and index) */
luaD_call(L, cb, nvar);
L->top = L->ci->top;
ra = XRA(i); /* call may change stack */
cb = ra + nvar + 2;
if (ttisnil(cb)) /* break loop? */
ra = XRA(i) + 2; /* final position of first result */
cb = ra + nvar;
do { /* move results to proper positions */
nvar--;
setobjs2s(ra+nvar, cb+nvar);
} while (nvar > 0);
if (ttisnil(ra)) /* break loop? */
pc++; /* skip jump (break loop) */
else {
while (nvar--) /* move results to proper positions */
setobjs2s(ra+2+nvar, cb+nvar);
else
dojump(pc, GETARG_sBx(*pc) + 1); /* jump back */
}
break;
}
case OP_TFORPREP: { /* for compatibility only */