mirror of https://github.com/rusefi/lua.git
collector in generational mode should never be in 'pause' state
This commit is contained in:
parent
4fc15bbfb7
commit
5ac56a94dd
10
ltests.c
10
ltests.c
|
@ -1,5 +1,5 @@
|
||||||
/*
|
/*
|
||||||
** $Id: ltests.c,v 2.129 2012/05/31 20:25:42 roberto Exp $
|
** $Id: ltests.c,v 2.130 2012/06/07 18:52:47 roberto Exp roberto $
|
||||||
** Internal Module for Debugging of the Lua Implementation
|
** Internal Module for Debugging of the Lua Implementation
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
@ -663,7 +663,15 @@ static int gc_state (lua_State *L) {
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
|
global_State *g = G(L);
|
||||||
|
if (g->gckind == KGC_GEN && option == GCSpause)
|
||||||
|
luaL_error(L, "cannot go to 'pause' state in generational mode");
|
||||||
lua_lock(L);
|
lua_lock(L);
|
||||||
|
if (option < g->gcstate) { /* must cross 'pause'? */
|
||||||
|
luaC_runtilstate(L, bitmask(GCSpause)); /* run until pause */
|
||||||
|
if (g->gckind == KGC_GEN)
|
||||||
|
g->gcstate = GCSpropagate; /* skip pause in gen. mode */
|
||||||
|
}
|
||||||
luaC_runtilstate(L, bitmask(option));
|
luaC_runtilstate(L, bitmask(option));
|
||||||
lua_assert(G(L)->gcstate == option);
|
lua_assert(G(L)->gcstate == option);
|
||||||
lua_unlock(L);
|
lua_unlock(L);
|
||||||
|
|
Loading…
Reference in New Issue