Function luaG_errormsg

Source/Misc/lua/src/lua.c:5126–5136

void luaG_errormsg (lua_State *L) {
if (L->errfunc != 0) {  /* is there an error handling function? */
StkId errfunc = restorestack(L, L->errfunc);
if (!ttisfunction(errfunc)) luaD_throw(L, LUA_ERRERR);
setobjs2s(L, L->top, L->top - 1);  /* move argument */
setobjs2s(L, L->top - 1, errfunc);  /* push function */
incr_top(L);
luaD_call(L, L->top - 2, 1);  /* call it */
}
luaD_throw(L, LUA_ERRRUN);
}


void luaG_runerror (lua_State *L, const char *fmt, ...) {