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