** adds a new prototype into list of prototypes */
| 695 | ** adds a new prototype into list of prototypes |
| 696 | */ |
| 697 | static Proto *addprototype (LexState *ls) { |
| 698 | Proto *clp; |
| 699 | lua_State *L = ls->L; |
| 700 | FuncState *fs = ls->fs; |
| 701 | Proto *f = fs->f; /* prototype of current function */ |
| 702 | if (fs->np >= f->sizep) { |
| 703 | int oldsize = f->sizep; |
| 704 | luaM_growvector(L, f->p, fs->np, f->sizep, Proto *, MAXARG_Bx, "functions"); |
| 705 | while (oldsize < f->sizep) |
| 706 | f->p[oldsize++] = NULL; |
| 707 | } |
| 708 | f->p[fs->np++] = clp = luaF_newproto(L); |
| 709 | luaC_objbarrier(L, f, clp); |
| 710 | return clp; |
| 711 | } |
| 712 | |
| 713 | |
| 714 | /* |