| 50 | |
| 51 | |
| 52 | static TValue *index2addr (lua_State *L, int idx) { |
| 53 | CallInfo *ci = L->ci; |
| 54 | if (idx > 0) { |
| 55 | TValue *o = ci->func + idx; |
| 56 | api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index"); |
| 57 | if (o >= L->top) return NONVALIDVALUE; |
| 58 | else return o; |
| 59 | } |
| 60 | else if (!ispseudo(idx)) { /* negative index */ |
| 61 | api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index"); |
| 62 | return L->top + idx; |
| 63 | } |
| 64 | else if (idx == LUA_REGISTRYINDEX) |
| 65 | return &G(L)->l_registry; |
| 66 | else { /* upvalues */ |
| 67 | idx = LUA_REGISTRYINDEX - idx; |
| 68 | api_check(L, idx <= MAXUPVAL + 1, "upvalue index too large"); |
| 69 | if (ttislcf(ci->func)) /* light C function? */ |
| 70 | return NONVALIDVALUE; /* it has no upvalues */ |
| 71 | else { |
| 72 | CClosure *func = clCvalue(ci->func); |
| 73 | return (idx <= func->nupvalues) ? &func->upvalue[idx-1] : NONVALIDVALUE; |
| 74 | } |
| 75 | } |
| 76 | } |
| 77 | |
| 78 | |
| 79 | /* |
no outgoing calls
no test coverage detected