diff options
| -rw-r--r-- | src/openssl.c | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/src/openssl.c b/src/openssl.c index 8977234..9dbcda7 100644 --- a/src/openssl.c +++ b/src/openssl.c @@ -1181,18 +1181,23 @@ static int ex__gc(lua_State *L) { return 0; } /* ex__gc() */ -static void ex_newstate(lua_State *L) { - struct ex_state *state; - struct lua_State *thr; +static _Bool ex_hasstate(lua_State *L) { + _Bool has; lua_pushlightuserdata(L, (void *)&ex__gc); lua_gettable(L, LUA_REGISTRYINDEX); + has = !lua_isnil(L, -1); + lua_pop(L, 1); - if (!lua_isnil(L, -1)) { - lua_pop(L, 1); + return has; +} /* ex_hasstate() */ +static void ex_newstate(lua_State *L) { + struct ex_state *state; + struct lua_State *thr; + + if (ex_hasstate(L)) return; - } state = prepudata(L, sizeof *state, NULL, &ex__gc); LIST_INIT(&state->data); |