/* adds a new prototype into list of prototypes  */
static Proto* addprototype(LexState *ls)
/* adds a new prototype into list of prototypes  */
static Proto* addprototype(LexState *ls)
{
    int oldsize = f->sizep;
    luaM_growvector(L, f->p, fs->np, f->sizep, Proto *, MAXARG_Bx, "functions");
    while (oldsize < f->sizep) f->p[oldsize++] = NULL;
  }
  f->p[fs->np++] = clp = luaF_newproto(L);
  luaC_objbarrier(L, f, clp);
  return clp;
}