luaur_vm/functions/
lua_concat.rs

1use core::ffi::c_int;
2
3use crate::functions::lua_c_barrierback::lua_c_barrierback;
4use crate::functions::lua_s_newlstr::luaS_newlstr;
5use crate::functions::lua_v_concat::lua_v_concat;
6use crate::macros::api_check::api_check;
7use crate::macros::api_checknelems::api_checknelems;
8use crate::macros::api_incr_top::api_incr_top;
9use crate::macros::cast_int::cast_int;
10use crate::macros::isblack::isblack;
11use crate::macros::lua_c_check_gc::luaC_checkGC;
12use crate::macros::setsvalue::setsvalue;
13use crate::records::gc_object::GCObject;
14use crate::records::lua_state::lua_State;
15
16pub(crate) unsafe fn lua_c_threadbarrier_lapi(L: *mut lua_State) {
17    let obj = L as *mut GCObject;
18    if isblack!(obj) {
19        lua_c_barrierback(L, obj, &mut (*L).gclist);
20    }
21}
22
23#[allow(non_snake_case)]
24pub unsafe fn lua_concat(L: *mut lua_State, n: c_int) {
25    api_check!(L, n >= 0);
26    api_checknelems!(L, n);
27
28    if n >= 2 {
29        luaC_checkGC!(L);
30        lua_c_threadbarrier_lapi(L);
31        lua_v_concat(L, n, cast_int!((*L).top.offset_from((*L).base)) - 1);
32        (*L).top = (*L).top.sub((n - 1) as usize);
33    } else if n == 0 {
34        lua_c_threadbarrier_lapi(L);
35        setsvalue!(L, (*L).top, luaS_newlstr(L, c"".as_ptr(), 0));
36        api_incr_top!(L);
37    }
38}
luaur_vm/functions/lua_concat.rs

luaur_vm/functions/
lua_concat.rs
