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

new semantics for `generic for' (with state)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-04-09 16:47:44 -03:00
parent d2e05589d7
commit 7b65328c8e
5 changed files with 35 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lvm.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lvm.c,v 1.222 2002/03/22 16:54:31 roberto Exp roberto $
** $Id: lvm.c,v 1.223 2002/03/25 17:47:14 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -549,21 +549,21 @@ StkId luaV_execute (lua_State *L) {
break;
}
case OP_TFORLOOP: {
setobj(ra+4, ra+2);
setobj(ra+3, ra+1);
setobj(ra+2, ra);
L->top = ra+5;
luaD_call(L, ra+2, GETARG_C(i) + 1);
L->top = L->ci->top;
if (ttype(ra+2) != LUA_TNIL) pc++; /* skip jump (keep looping) */
break;
}
case OP_TFORPREP: {
if (ttype(ra) == LUA_TTABLE) {
Table *t = hvalue(ra);
if (luaH_next(L, t, ra+1))
pc++; /* skip jump (keep looping) */
}
else if (ttype(ra) == LUA_TFUNCTION) {
setobj(ra+1, ra);
L->top = ra+2; /* no arguments */
luaD_call(L, ra+1, GETARG_C(i));
L->top = L->ci->top;
if (ttype(ra+1) != LUA_TNIL)
pc++; /* skip jump (keep looping) */
setsvalue(ra, luaS_new(L, "next"));
luaV_gettable(L, gt(L), ra, ra);
}
else
luaD_error(L, "`for' generator must be a table or function");
break;
}
case OP_SETLIST: