/* Adjust pending gotos to outer level of a block.  */
static void movegotosout(FuncState *fs, BlockCnt *bl)
/* Adjust pending gotos to outer level of a block.  */
static void movegotosout(FuncState *fs, BlockCnt *bl)
{
    Labeldesc *gt = &gl->arr[i];
    if (reglevel(fs, gt->nactvar) > reglevel(fs, bl->nactvar))
      gt->close |= bl->upval;
    gt->nactvar = bl->nactvar;
  }
}