static void singlevaraux (FuncState *fs, TString *n, expdesc *var, int base) {
  if (fs == NULL)  /* no more levels? */
    init_exp(var, VVOID, 0);  /* default is global */
  else {
    int v = searchvar(fs, n, var);  /* look up locals at current level */
    if (v >= 0) {  /* found? */
      if (v == VLOCAL && !base)
        markupval(fs, var->u.var.vidx);  /* local will be used as an upval */
    }
    else {  /* not found as local at current level; try upvalues */
      int idx = searchupvalue(fs, n);  /* try existing upvalues */
      if (idx < 0) {  /* not found? */
        singlevaraux(fs->prev, n, var, 0);  /* try upper levels */
        if (var->k == VLOCAL || var->k == VUPVAL)  /* local or upvalue? */
          idx  = newupvalue(fs, n, var);  /* will be a new upvalue */
        else  /* it is a global or a constant */
          return;  /* don't need to do anything at this level */
      }
      init_exp(var, VUPVAL, idx);  /* new or old upvalue */
    }
  }
}
static void singlevaraux (FuncState *fs, TString *n, expdesc *var, int base) {
  if (fs == NULL)   
    init_exp(var, VVOID, 0);   
  else {
    int v = searchvar(fs, n, var);   
    if (v >= 0) {   
      if (v == VLOCAL && !base)
        markupval(fs, var->u.var.vidx);   
    }
    else {   
      int idx = searchupvalue(fs, n);   
      if (idx < 0) {   
        singlevaraux(fs->prev, n, var, 0);   
        if (var->k == VLOCAL || var->k == VUPVAL)   
          idx  = newupvalue(fs, n, var);   
        else   
          return;   
      }
      init_exp(var, VUPVAL, idx);   
    }
  }
}