int lp_gc (lua_State *L) { Pattern *p = getpattern(L, 1); if (p->codesize > 0) realloccode(L, p, 0); return 0; }
static TTree *gettree (lua_State *L, int idx, int *len) { Pattern *p = getpattern(L, idx); if (len) *len = getsize(L, idx); return p->tree; }
int lp_gc (lua_State *L) { Pattern *p = getpattern(L, 1); realloccode(L, p, 0); /* delete code block */ return 0; }