This commit is contained in:
iceman1001 2024-02-04 11:30:29 +01:00
commit 171419ea88

View file

@ -193,6 +193,8 @@ static void f_luaopen(lua_State *L, void *ud) {
g->memerrmsg = luaS_newliteral(L, MEMERRMSG);
luaS_fix(g->memerrmsg); /* it should never be collected */
g->gcrunning = 1; /* allow gc */
g->version = lua_version(NULL);
luai_userstateopen(L);
}
@ -223,6 +225,9 @@ static void close_state(lua_State *L) {
global_State *g = G(L);
luaF_close(L, L->stack); /* close all upvalues for this thread */
luaC_freeallobjects(L); /* collect all objects */
if (g->version) /* closing a fully built state? */
luai_userstateclose(L);
luaM_freearray(L, G(L)->strt.hash, G(L)->strt.size);
luaZ_freebuffer(L, &g->buff);
freestack(L);
@ -288,7 +293,7 @@ LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) {
setnilvalue(&g->l_registry);
luaZ_initbuffer(L, &g->buff);
g->panic = NULL;
g->version = lua_version(NULL);
g->version = NULL;
g->gcstate = GCSpause;
g->allgc = NULL;
g->finobj = NULL;
@ -306,8 +311,7 @@ LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) {
/* memory allocation error: free partial state */
close_state(L);
L = NULL;
} else
luai_userstateopen(L);
}
return L;
}
@ -315,7 +319,6 @@ LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) {
LUA_API void lua_close(lua_State *L) {
L = G(L)->mainthread; /* only the main thread can be closed */
lua_lock(L);
luai_userstateclose(L);
close_state(L);
}