gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 23:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Shrink slots for 'break' statement to help data-flow analysis.

Browse Source
This commit is contained in:
Mike Pall 2010-11-25 12:09:21 +01:00
parent 18fbf86c9e
commit 7840d0b2b0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lj_parse.c
View File

@ -1752,14 +1752,18 @@ static void parse_break(LexState *ls)
{ {
FuncState *fs = ls->fs; FuncState *fs = ls->fs;
FuncScope *bl; FuncScope *bl;
BCReg savefr;
int upval = 0; int upval = 0;
for (bl = fs->bl; bl && !bl->isbreakable; bl = bl->prev) for (bl = fs->bl; bl && !bl->isbreakable; bl = bl->prev)
upval |= bl->upval; /* Collect upvalues in intervening scopes. */ upval |= bl->upval; /* Collect upvalues in intervening scopes. */
if (!bl) /* Error if no breakable scope found. */ if (!bl) /* Error if no breakable scope found. */
err_syntax(ls, LJ_ERR_XBREAK); err_syntax(ls, LJ_ERR_XBREAK);
savefr = fs->freereg;
fs->freereg = bl->nactvar; /* Shrink slots to help data-flow analysis. */
if (upval) if (upval)
bcemit_AJ(fs, BC_UCLO, bl->nactvar, 0); /* Close upvalues. */ bcemit_AJ(fs, BC_UCLO, bl->nactvar, 0); /* Close upvalues. */
jmp_append(fs, &bl->breaklist, bcemit_jmp(fs)); jmp_append(fs, &bl->breaklist, bcemit_jmp(fs));
fs->freereg = savefr;
} }
/* Check for end of block. */ /* Check for end of block. */