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

details (more uniform coding)

This commit is contained in:
Roberto Ierusalimschy 2005-10-13 09:21:26 -03:00
parent e251e84e0f
commit cd12ab2597
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 2.55 2005/09/09 18:23:35 roberto Exp roberto $ ** $Id: lvm.c,v 2.56 2005/10/03 14:01:26 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -593,18 +593,18 @@ void luaV_execute (lua_State *L, int nexeccalls) {
continue; continue;
} }
case OP_TEST: { case OP_TEST: {
if (l_isfalse(ra) == GETARG_C(i)) pc++; if (l_isfalse(ra) != GETARG_C(i))
else dojump(L, pc, GETARG_sBx(*pc));
dojump(L, pc, GETARG_sBx(*pc) + 1); pc++;
continue; continue;
} }
case OP_TESTSET: { case OP_TESTSET: {
TValue *rb = RB(i); TValue *rb = RB(i);
if (l_isfalse(rb) == GETARG_C(i)) pc++; if (l_isfalse(rb) != GETARG_C(i)) {
else {
setobjs2s(L, ra, rb); setobjs2s(L, ra, rb);
dojump(L, pc, GETARG_sBx(*pc) + 1); dojump(L, pc, GETARG_sBx(*pc));
} }
pc++;
continue; continue;
} }
case OP_CALL: { case OP_CALL: {
@ -710,12 +710,11 @@ void luaV_execute (lua_State *L, int nexeccalls) {
Protect(luaD_call(L, cb, GETARG_C(i))); Protect(luaD_call(L, cb, GETARG_C(i)));
L->top = L->ci->top; L->top = L->ci->top;
cb = RA(i) + 3; /* previous call may change the stack */ cb = RA(i) + 3; /* previous call may change the stack */
if (ttisnil(cb)) /* break loop? */ if (!ttisnil(cb)) { /* continue loop? */
pc++; /* skip jump (break loop) */
else {
setobjs2s(L, cb-1, cb); /* save control variable */ setobjs2s(L, cb-1, cb); /* save control variable */
dojump(L, pc, GETARG_sBx(*pc) + 1); /* jump back */ dojump(L, pc, GETARG_sBx(*pc)); /* jump back */
} }
pc++;
continue; continue;
} }
case OP_SETLIST: { case OP_SETLIST: {