| 1461 | |
| 1462 | |
| 1463 | LUA_API void lua_upvaluejoin (lua_State *L, int fidx1, int n1, |
| 1464 | int fidx2, int n2) { |
| 1465 | LClosure *f1; |
| 1466 | UpVal **up1 = getupvalref(L, fidx1, n1, &f1); |
| 1467 | UpVal **up2 = getupvalref(L, fidx2, n2, NULL); |
| 1468 | api_check(L, *up1 != NULL && *up2 != NULL, "invalid upvalue index"); |
| 1469 | *up1 = *up2; |
| 1470 | luaC_objbarrier(L, f1, *up1); |
| 1471 | } |
| 1472 | |
| 1473 |
no test coverage detected