luaur_vm/functions/
lua_clonefunction.rs

1use crate::enums::lua_type::lua_Type;
2use crate::functions::index_2_addr::index2addr;
3use crate::functions::lua_concat::lua_c_threadbarrier_lapi;
4use crate::functions::lua_f_new_lclosure::luaF_newLclosure;
5use crate::macros::api_check::api_check;
6use crate::macros::api_incr_top::api_incr_top;
7use crate::macros::lua_c_check_gc::luaC_checkGC;
8use crate::macros::setclvalue::setclvalue;
9use crate::macros::setobj_2_n::setobj2n;
10use crate::records::closure::Closure;
11use crate::type_aliases::lua_state::lua_State;
12use crate::type_aliases::stk_id::StkId;
13
14#[allow(non_snake_case)]
15pub unsafe fn lua_clonefunction(L: *mut lua_State, idx: core::ffi::c_int) {
16    luaC_checkGC!(L);
17    lua_c_threadbarrier_lapi(L);
18    let p: StkId = index2addr(L, idx);
19    let cl = core::ptr::addr_of_mut!((*(*p).value.gc).cl) as *mut Closure;
20    api_check!(
21        L,
22        (*p).tt() == lua_Type::LUA_TFUNCTION as core::ffi::c_int && (*cl).isC == 0
23    );
24    let lc = core::ptr::addr_of!((*cl).inner.l) as *const crate::records::closure::LClosure;
25    let newcl: *mut Closure =
26        luaF_newLclosure(L, (*cl).nupvalues as core::ffi::c_int, (*L).gt, (*lc).p);
27    let newlc = core::ptr::addr_of_mut!((*newcl).inner.l) as *mut crate::records::closure::LClosure;
28    for i in 0..(*cl).nupvalues as i32 {
29        setobj2n!(
30            L,
31            (*newlc).uprefs.as_mut_ptr().add(i as usize),
32            (*lc).uprefs.as_ptr().add(i as usize)
33        );
34    }
35    setclvalue!(L, (*L).top, newcl);
36    api_incr_top!(L);
37}
luaur_vm/functions/lua_clonefunction.rs

luaur_vm/functions/
lua_clonefunction.rs
