示例#1
0
文件: lptree.c 项目: c0i/Dorothy
int lp_gc (lua_State *L) {
  Pattern *p = getpattern(L, 1);
  if (p->codesize > 0)
    realloccode(L, p, 0);
  return 0;
}
示例#2
0
文件: lptree.c 项目: c0i/Dorothy
static TTree *gettree (lua_State *L, int idx, int *len) {
  Pattern *p = getpattern(L, idx);
  if (len)
    *len = getsize(L, idx);
  return p->tree;
}
示例#3
0
int lp_gc (lua_State *L) {
  Pattern *p = getpattern(L, 1);
  realloccode(L, p, 0);  /* delete code block */
  return 0;
}