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

must move call results in the last iteration, too

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 ** Lua virtual machine
** See Copyright Notice in lua.h ** 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) */ L->top = cb+3; /* func. + 2 args (state and index) */
luaD_call(L, cb, nvar); luaD_call(L, cb, nvar);
L->top = L->ci->top; L->top = L->ci->top;
ra = XRA(i); /* call may change stack */ ra = XRA(i) + 2; /* final position of first result */
cb = ra + nvar + 2; cb = ra + nvar;
if (ttisnil(cb)) /* break loop? */ 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) */ pc++; /* skip jump (break loop) */
else { else
while (nvar--) /* move results to proper positions */
setobjs2s(ra+2+nvar, cb+nvar);
dojump(pc, GETARG_sBx(*pc) + 1); /* jump back */ dojump(pc, GETARG_sBx(*pc) + 1); /* jump back */
}
break; break;
} }
case OP_TFORPREP: { /* for compatibility only */ case OP_TFORPREP: { /* for compatibility only */