talezero/integration
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

eris: add 'lua_isthrowing' support

Browse Source
This commit is contained in:
jyelon
2023-04-06 17:26:03 -04:00
parent dc4a5f6198
commit b8df2bbc89
2 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
luprex/ext/eris-master/src/ldo.c
View File

@@ -102,6 +102,9 @@ static void seterrorobj (lua_State *L, int errcode, StkId oldtop) {
L->top = oldtop + 1; L->top = oldtop + 1;
} }
LUA_API int lua_isthrowing (lua_State *L) {
return ((L->errorJmp != NULL) && (L->errorJmp->status != LUA_OK));
}
l_noret luaD_throw (lua_State *L, int errcode) { l_noret luaD_throw (lua_State *L, int errcode) {
if (L->errorJmp) { /* thread has an error handler? */ if (L->errorJmp) { /* thread has an error handler? */

1
luprex/ext/eris-master/src/lua.h
View File

@@ -150,6 +150,7 @@ LUA_API void (lua_insert) (lua_State *L, int idx);
LUA_API void (lua_replace) (lua_State *L, int idx); LUA_API void (lua_replace) (lua_State *L, int idx);
LUA_API void (lua_copy) (lua_State *L, int fromidx, int toidx); LUA_API void (lua_copy) (lua_State *L, int fromidx, int toidx);
LUA_API int (lua_checkstack) (lua_State *L, int sz); LUA_API int (lua_checkstack) (lua_State *L, int sz);
LUA_API int (lua_isthrowing) (lua_State *L);
LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n); LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n);