Function declarestat

lua/lparser.c:1239–1262

static void declarestat (LexState *ls) {
  /* stat -> DECLARE NAME {',' NAME} expr */
  int nvars = 0;
  int nexps;
  expdesc e1, e2;
  do {
    new_localvar(ls, str_checkname(ls), nvars++);
  } while (testnext(ls, ','));

  /* get the type */
  expr(ls, &e1);
  init_exp(&e2, VNIL, 0);
  codearith(ls->fs, OP_CAST, &e2, &e1);

  /* generate typed assingnment */
  for (nexps = 1; nexps < nvars; ++nexps) {
    luaK_exp2nextreg(ls->fs, &e2);
    init_exp(&e2, VNIL, 0);
    codearith(ls->fs, OP_CAST, &e2, &e1);
  }

  adjust_assign(ls, nvars, nexps, &e2);
  adjustlocalvars(ls, nvars);  
}


static void localstat (LexState *ls) {