Lines Matching refs:ci
33 static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name);
36 static int currentpc (CallInfo *ci) { in currentpc() argument
37 lua_assert(isLua(ci)); in currentpc()
38 return pcRel(ci->u.l.savedpc, ci_func(ci)->p); in currentpc()
42 static int currentline (CallInfo *ci) { in currentline() argument
43 return getfuncline(ci_func(ci)->p, currentpc(ci)); in currentline()
49 CallInfo *ci = L->ci; /* get function that yielded */ in swapextra() local
50 StkId temp = ci->func; /* exchange its 'func' and 'extra' values */ in swapextra()
51 ci->func = restorestack(L, ci->extra); in swapextra()
52 ci->extra = savestack(L, temp); in swapextra()
65 if (isLua(L->ci)) in lua_sethook()
66 L->oldpc = L->ci->u.l.savedpc; in lua_sethook()
92 CallInfo *ci; in lua_getstack() local
95 for (ci = L->ci; level > 0 && ci != &L->base_ci; ci = ci->previous) in lua_getstack()
97 if (level == 0 && ci != &L->base_ci) { /* level found? */ in lua_getstack()
99 ar->i_ci = ci; in lua_getstack()
114 static const char *findvararg (CallInfo *ci, int n, StkId *pos) { in findvararg() argument
115 int nparams = clLvalue(ci->func)->p->numparams; in findvararg()
116 if (n >= ci->u.l.base - ci->func - nparams) in findvararg()
119 *pos = ci->func + nparams + n; in findvararg()
125 static const char *findlocal (lua_State *L, CallInfo *ci, int n, in findlocal() argument
129 if (isLua(ci)) { in findlocal()
131 return findvararg(ci, -n, pos); in findlocal()
133 base = ci->u.l.base; in findlocal()
134 name = luaF_getlocalname(ci_func(ci)->p, n, currentpc(ci)); in findlocal()
138 base = ci->func + 1; in findlocal()
140 StkId limit = (ci == L->ci) ? L->top : ci->next->func; in findlocal()
228 Closure *f, CallInfo *ci) { in auxgetinfo() argument
237 ar->currentline = (ci && isLua(ci)) ? currentline(ci) : -1; in auxgetinfo()
253 ar->istailcall = (ci) ? ci->callstatus & CIST_TAIL : 0; in auxgetinfo()
258 if (ci && !(ci->callstatus & CIST_TAIL) && isLua(ci->previous)) in auxgetinfo()
259 ar->namewhat = getfuncname(L, ci->previous, &ar->name); in auxgetinfo()
281 CallInfo *ci; in lua_getinfo() local
286 ci = NULL; in lua_getinfo()
293 ci = ar->i_ci; in lua_getinfo()
294 func = ci->func; in lua_getinfo()
295 lua_assert(ttisfunction(ci->func)); in lua_getinfo()
298 status = auxgetinfo(L, what, ar, cl, ci); in lua_getinfo()
459 static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { in getfuncname() argument
461 Proto *p = ci_func(ci)->p; /* calling function */ in getfuncname()
462 int pc = currentpc(ci); /* calling instruction index */ in getfuncname()
505 static int isinstack (CallInfo *ci, const TValue *o) { in isinstack() argument
507 for (p = ci->u.l.base; p < ci->top; p++) in isinstack()
513 static const char *getupvalname (CallInfo *ci, const TValue *o, in getupvalname() argument
515 LClosure *c = ci_func(ci); in getupvalname()
528 CallInfo *ci = L->ci; in luaG_typeerror() local
532 if (isLua(ci)) { in luaG_typeerror()
533 kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */ in luaG_typeerror()
534 if (!kind && isinstack(ci, o)) /* no? try a register */ in luaG_typeerror()
535 kind = getobjname(ci_func(ci)->p, currentpc(ci), in luaG_typeerror()
536 cast_int(o - ci->u.l.base), &name); in luaG_typeerror()
572 CallInfo *ci = L->ci; in addinfo() local
573 if (isLua(ci)) { /* is Lua code? */ in addinfo()
575 int line = currentline(ci); in addinfo()
576 TString *src = ci_func(ci)->p->source; in addinfo()