| 767 | |
| 768 | |
| 769 | l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { |
| 770 | CallInfo *ci = L->ci; |
| 771 | const char *msg; |
| 772 | va_list argp; |
| 773 | luaC_checkGC(L); /* error message uses memory */ |
| 774 | va_start(argp, fmt); |
| 775 | msg = luaO_pushvfstring(L, fmt, argp); /* format message */ |
| 776 | va_end(argp); |
| 777 | if (isLua(ci)) /* if Lua function, add source:line information */ |
| 778 | luaG_addinfo(L, msg, ci_func(ci)->p->source, getcurrentline(ci)); |
| 779 | luaG_errormsg(L); |
| 780 | } |
| 781 | |
| 782 | |
| 783 | /* |
no test coverage detected