| 651 | |
| 652 | |
| 653 | l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { |
| 654 | CallInfo *ci = L->ci; |
| 655 | const char *msg; |
| 656 | va_list argp; |
| 657 | luaC_checkGC(L); /* error message uses memory */ |
| 658 | va_start(argp, fmt); |
| 659 | msg = luaO_pushvfstring(L, fmt, argp); /* format message */ |
| 660 | va_end(argp); |
| 661 | if (isLua(ci)) /* if Lua function, add source:line information */ |
| 662 | luaG_addinfo(L, msg, ci_func(ci)->p->source, currentline(ci)); |
| 663 | luaG_errormsg(L); |
| 664 | } |
| 665 | |
| 666 | |
| 667 | void luaG_traceexec (lua_State *L) { |
no test coverage detected