| 1228 | |
| 1229 | |
| 1230 | LUA_API int lua_error (lua_State *L) { |
| 1231 | TValue *errobj; |
| 1232 | lua_lock(L); |
| 1233 | errobj = s2v(L->top - 1); |
| 1234 | api_checknelems(L, 1); |
| 1235 | /* error object is the memory error message? */ |
| 1236 | if (ttisshrstring(errobj) && eqshrstr(tsvalue(errobj), G(L)->memerrmsg)) |
| 1237 | luaM_error(L); /* raise a memory error */ |
| 1238 | else |
| 1239 | luaG_errormsg(L); /* raise a regular error */ |
| 1240 | /* code unreachable; will unlock when control actually leaves the kernel */ |
| 1241 | return 0; /* to avoid warnings */ |
| 1242 | } |
| 1243 | |
| 1244 | |
| 1245 | LUA_API int lua_next (lua_State *L, int idx) { |