luaur_vm/functions/
lua_pcall.rs

1use core::ffi::{c_int, c_void};
2
3use crate::functions::f_call::f_call;
4use crate::functions::index_2_addr::index2addr;
5use crate::functions::lua_d_pcall::luaD_pcall;
6use crate::macros::api_check::api_check;
7use crate::macros::api_checknelems::api_checknelems;
8use crate::macros::lua_multret::LUA_MULTRET;
9use crate::macros::lua_o_nilobject::luaO_nilobject;
10use crate::macros::savestack::savestack;
11use crate::records::call_s::CallS;
12use crate::records::lua_state::lua_State;
13use crate::type_aliases::pfunc::Pfunc;
14use crate::type_aliases::stk_id::StkId;
15
16#[allow(non_snake_case)]
17pub unsafe fn lua_pcall(L: *mut lua_State, nargs: c_int, nresults: c_int, errfunc: c_int) -> c_int {
18    api_check!(L, nargs >= 0);
19    api_check!(L, nresults >= LUA_MULTRET);
20    api_checknelems!(L, nargs + 1);
21    api_check!(L, (*L).status == 0);
22    api_check!(
23        L,
24        nresults == LUA_MULTRET
25            || (*(*L).ci).top.offset_from((*L).top) >= (nresults - nargs) as isize
26    );
27
28    let mut func: isize = 0;
29    if errfunc != 0 {
30        let o: StkId = index2addr(L, errfunc);
31        api_check!(L, o != luaO_nilobject as StkId);
32        func = savestack!(L, o) as isize;
33    }
34
35    let mut c = CallS {
36        func: (*L).top.sub((nargs + 1) as usize),
37        nresults,
38    };
39
40    let pfunc: Pfunc = Some(f_call);
41
42    let status = luaD_pcall(
43        L,
44        pfunc,
45        &mut c as *mut CallS as *mut c_void,
46        savestack!(L, c.func) as isize,
47        func,
48    );
49
50    if nresults == LUA_MULTRET && (*L).top.offset_from((*(*L).ci).top) >= 0 {
51        (*(*L).ci).top = (*L).top;
52    }
53
54    status
55}
luaur_vm/functions/lua_pcall.rs

luaur_vm/functions/
lua_pcall.rs
