| 776 | |
| 777 | |
| 778 | l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { |
| 779 | CallInfo *ci = L->ci; |
| 780 | const char *msg; |
| 781 | va_list argp; |
| 782 | luaC_checkGC(L); /* error message uses memory */ |
| 783 | va_start(argp, fmt); |
| 784 | msg = luaO_pushvfstring(L, fmt, argp); /* format message */ |
| 785 | va_end(argp); |
| 786 | if (isLua(ci)) /* if Lua function, add source:line information */ |
| 787 | luaG_addinfo(L, msg, ci_func(ci)->p->source, getcurrentline(ci)); |
| 788 | luaG_errormsg(L); |
| 789 | } |
| 790 | |
| 791 | |
| 792 | /* |
no test coverage detected