Lines Matching defs:ci
36 static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name);
39 static int currentpc (CallInfo *ci) {
40 lua_assert(isLua(ci));
41 return pcRel(ci->u.l.savedpc, ci_func(ci)->p);
45 static int currentline (CallInfo *ci) {
46 return getfuncline(ci_func(ci)->p, currentpc(ci));
58 if (isLua(L->ci))
59 L->oldpc = L->ci->u.l.savedpc;
85 CallInfo *ci;
88 for (ci = L->ci; level > 0 && ci != &L->base_ci; ci = ci->previous)
90 if (level == 0 && ci != &L->base_ci) { /* level found? */
92 ar->i_ci = ci;
107 static const char *findvararg (CallInfo *ci, int n, StkId *pos) {
108 int nparams = clLvalue(ci->func)->p->numparams;
109 if (n >= ci->u.l.base - ci->func - nparams)
112 *pos = ci->func + nparams + n;
118 static const char *findlocal (lua_State *L, CallInfo *ci, int n,
122 if (isLua(ci)) {
124 return findvararg(ci, -n, pos);
126 base = ci->u.l.base;
127 name = luaF_getlocalname(ci_func(ci)->p, n, currentpc(ci));
131 base = ci->func + 1;
133 StkId limit = (ci == L->ci) ? L->top : ci->next->func;
134 if (limit - base >= n && n > 0) /* is 'n' inside 'ci' stack? */
216 Closure *f, CallInfo *ci) {
225 ar->currentline = (ci && isLua(ci)) ? currentline(ci) : -1;
241 ar->istailcall = (ci) ? ci->callstatus & CIST_TAIL : 0;
246 if (ci && !(ci->callstatus & CIST_TAIL) && isLua(ci->previous))
247 ar->namewhat = getfuncname(L, ci->previous, &ar->name);
269 CallInfo *ci;
273 ci = NULL;
280 ci = ar->i_ci;
281 func = ci->func;
282 lua_assert(ttisfunction(ci->func));
285 status = auxgetinfo(L, what, ar, cl, ci);
445 static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) {
447 Proto *p = ci_func(ci)->p; /* calling function */
448 int pc = currentpc(ci); /* calling instruction index */
491 static int isinstack (CallInfo *ci, const TValue *o) {
493 for (p = ci->u.l.base; p < ci->top; p++)
499 static const char *getupvalname (CallInfo *ci, const TValue *o,
501 LClosure *c = ci_func(ci);
514 CallInfo *ci = L->ci;
518 if (isLua(ci)) {
519 kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */
520 if (!kind && isinstack(ci, o)) /* no? try a register */
521 kind = getobjname(ci_func(ci)->p, currentpc(ci),
522 cast_int(o - ci->u.l.base), &name);
558 CallInfo *ci = L->ci;
559 if (isLua(ci)) { /* is Lua code? */
561 int line = currentline(ci);
562 TString *src = ci_func(ci)->p->source;