| 824 | |
| 825 | |
| 826 | l_noret luaG_errormsg (lua_State *L) { |
| 827 | if (L->errfunc != 0) { /* is there an error handling function? */ |
| 828 | StkId errfunc = restorestack(L, L->errfunc); |
| 829 | lua_assert(ttisfunction(s2v(errfunc))); |
| 830 | setobjs2s(L, L->top.p, L->top.p - 1); /* move argument */ |
| 831 | setobjs2s(L, L->top.p - 1, errfunc); /* push function */ |
| 832 | L->top.p++; /* assume EXTRA_STACK */ |
| 833 | luaD_callnoyield(L, L->top.p - 2, 1); /* call it */ |
| 834 | } |
| 835 | luaD_throw(L, LUA_ERRRUN); |
| 836 | } |
| 837 | |
| 838 | |
| 839 | l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { |
no test coverage detected