** Adjust pending gotos to outer level of a block. */
| 614 | ** Adjust pending gotos to outer level of a block. |
| 615 | */ |
| 616 | static void movegotosout (FuncState *fs, BlockCnt *bl) { |
| 617 | int i; |
| 618 | Labellist *gl = &fs->ls->dyd->gt; |
| 619 | /* correct pending gotos to current block */ |
| 620 | for (i = bl->firstgoto; i < gl->n; i++) { /* for each pending goto */ |
| 621 | Labeldesc *gt = &gl->arr[i]; |
| 622 | /* leaving a variable scope? */ |
| 623 | if (reglevel(fs, gt->nactvar) > reglevel(fs, bl->nactvar)) |
| 624 | gt->close |= bl->upval; /* jump may need a close */ |
| 625 | gt->nactvar = bl->nactvar; /* update goto level */ |
| 626 | } |
| 627 | } |
| 628 | |
| 629 | |
| 630 | static void enterblock (FuncState *fs, BlockCnt *bl, lu_byte isloop) { |
no test coverage detected