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

simpler code for repeat-until

This commit is contained in:
Roberto Ierusalimschy 2011-02-09 15:03:18 -02:00
parent e7192dfdbb
commit 3f5b56c48b
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lparser.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lparser.c,v 2.101 2011/02/09 14:45:19 roberto Exp roberto $ ** $Id: lparser.c,v 2.102 2011/02/09 16:51:28 roberto Exp roberto $
** Lua Parser ** Lua Parser
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -1253,16 +1253,10 @@ static void repeatstat (LexState *ls, int line) {
statlist(ls); statlist(ls);
check_match(ls, TK_UNTIL, TK_REPEAT, line); check_match(ls, TK_UNTIL, TK_REPEAT, line);
condexit = cond(ls); /* read condition (inside scope block) */ condexit = cond(ls); /* read condition (inside scope block) */
if (!bl2.upval) { /* no upvalues? */ if (bl2.upval) /* upvalues? */
leaveblock(fs); /* finish scope */ luaK_patchclose(fs, condexit, bl2.nactvar);
luaK_patchlist(fs, condexit, repeat_init); /* close the loop */ leaveblock(fs); /* finish scope */
} luaK_patchlist(fs, condexit, repeat_init); /* close the loop */
else { /* complete semantics when there are upvalues */
breakstat(ls); /* if condition then break */
luaK_patchtohere(ls->fs, condexit); /* else... */
leaveblock(fs); /* finish scope... */
luaK_jumpto(fs, repeat_init); /* and repeat */
}
leaveblock(fs); /* finish loop */ leaveblock(fs); /* finish loop */
} }