| 89 | |
| 90 | |
| 91 | void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop) { |
| 92 | switch (errcode) { |
| 93 | case LUA_ERRMEM: { /* memory error? */ |
| 94 | setsvalue2s(L, oldtop, G(L)->memerrmsg); /* reuse preregistered msg. */ |
| 95 | break; |
| 96 | } |
| 97 | case LUA_ERRERR: { |
| 98 | setsvalue2s(L, oldtop, luaS_newliteral(L, "error in error handling")); |
| 99 | break; |
| 100 | } |
| 101 | case LUA_OK: { /* special case only for closing upvalues */ |
| 102 | setnilvalue(s2v(oldtop)); /* no error message */ |
| 103 | break; |
| 104 | } |
| 105 | default: { |
| 106 | lua_assert(errorstatus(errcode)); /* real error */ |
| 107 | setobjs2s(L, oldtop, L->top.p - 1); /* error message on current top */ |
| 108 | break; |
| 109 | } |
| 110 | } |
| 111 | L->top.p = oldtop + 1; |
| 112 | } |
| 113 | |
| 114 | |
| 115 | l_noret luaD_throw (lua_State *L, int errcode) { |
no test coverage detected