| 1266 | |
| 1267 | |
| 1268 | LUA_API void *lua_upvalueid (lua_State *L, int fidx, int n) { |
| 1269 | StkId fi = index2addr(L, fidx); |
| 1270 | switch (ttype(fi)) { |
| 1271 | case LUA_TLCL: { /* lua closure */ |
| 1272 | return *getupvalref(L, fidx, n, NULL); |
| 1273 | } |
| 1274 | case LUA_TCCL: { /* C closure */ |
| 1275 | CClosure *f = clCvalue(fi); |
| 1276 | api_check(L, 1 <= n && n <= f->nupvalues, "invalid upvalue index"); |
| 1277 | return &f->upvalue[n - 1]; |
| 1278 | } |
| 1279 | default: { |
| 1280 | api_check(L, 0, "closure expected"); |
| 1281 | return NULL; |
| 1282 | } |
| 1283 | } |
| 1284 | } |
| 1285 | |
| 1286 | |
| 1287 | LUA_API void lua_upvaluejoin (lua_State *L, int fidx1, int n1, |
no test coverage detected