| 833 | |
| 834 | |
| 835 | l_noret luaG_errormsg (lua_State *L) { |
| 836 | if (L->errfunc != 0) { /* is there an error handling function? */ |
| 837 | StkId errfunc = restorestack(L, L->errfunc); |
| 838 | lua_assert(ttisfunction(s2v(errfunc))); |
| 839 | setobjs2s(L, L->top.p, L->top.p - 1); /* move argument */ |
| 840 | setobjs2s(L, L->top.p - 1, errfunc); /* push function */ |
| 841 | L->top.p++; /* assume EXTRA_STACK */ |
| 842 | luaD_callnoyield(L, L->top.p - 2, 1); /* call it */ |
| 843 | } |
| 844 | luaD_throw(L, LUA_ERRRUN); |
| 845 | } |
| 846 | |
| 847 | |
| 848 | l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { |
no test coverage detected