Exemple #1
0
int lp_gc (lua_State *L) {
  Pattern *p = getpattern(L, 1);
  if (p->codesize > 0)
    realloccode(L, p, 0);
  return 0;
}
Exemple #2
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;
}