Lines Matching refs:cl
251 #define clvalue(o)check_exp(ttisfunction(o),&(o)->value.gc->cl)
494 union Closure cl; member
504 #define gco2cl(o)check_exp((o)->gch.tt==6,&((o)->cl))
1126 LClosure*cl;
1131 cl=&clvalue(func)->l;
1133 if(!cl->isC){
1136 Proto*p=cl->p;
1238 Closure*cl;
1243 cl=luaF_newLclosure(L,tf->nups,hvalue(gt(L)));
1244 cl->l.p=tf;
1246 cl->l.upvals[i]=luaF_newupval(L);
1247 setclvalue(L,L->top,cl);
1867 static void traverseclosure(global_State*g,Closure*cl){
1868 markobject(g,cl->c.env);
1869 if(cl->c.isC){
1871 for(i=0;i<cl->c.nupvalues;i++)
1872 markvalue(g,&cl->c.upvalue[i]);
1876 markobject(g,cl->l.p);
1877 for(i=0;i<cl->l.nupvalues;i++)
1878 markobject(g,cl->l.upvals[i]);
1921 Closure*cl=gco2cl(o);
1922 g->gray=cl->c.gclist;
1923 traverseclosure(g,cl);
1924 return(cl->c.isC)?sizeCclosure(cl->c.nupvalues):
1925 sizeLclosure(cl->l.nupvalues);
2432 static void funcinfo(lua_Debug*ar,Closure*cl){
2433 if(cl->c.isC){
2440 ar->source=getstr(cl->l.p->source);
2441 ar->linedefined=cl->l.p->linedefined;
2442 ar->lastlinedefined=cl->l.p->lastlinedefined;
4945 LClosure*cl;
4951 cl=&clvalue(L->ci->func)->l;
4953 k=cl->p->k;
4981 setobj(L,ra,cl->upvals[b]->v);
4987 sethvalue(L,&g,cl->env);
4997 sethvalue(L,&g,cl->env);
5002 UpVal*uv=cl->upvals[GETARG_B(i)];
5271 p=cl->p->p[GETARG_Bx(i)];
5273 ncl=luaF_newLclosure(L,nup,cl->env);
5277 ncl->l.upvals[j]=cl->upvals[GETARG_B(*pc)];
5290 int n=cast_int(ci->base-ci->func)-cl->p->numparams-1;
5559 Closure*cl;
5562 cl=luaF_newCclosure(L,n,getcurrenv(L));
5563 cl->c.f=fn;
5566 setobj(L,&cl->c.upvalue[n],L->top+n);
5567 setclvalue(L,L->top,cl);
7121 static int match_class(int c,int cl){
7123 switch(tolower(cl)){
7134 default:return(cl==c);
7136 return(islower(cl)?res:!res);
