ilusha/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2026-09-26 16:17:11 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Better support in 'ltests' for tracing the GC

Browse source
This commit is contained in:
Roberto Ierusalimschy 2024-10-21 15:18:20 -03:00
parent d0815046d0
commit 258355734d
5 changed files with 67 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lgc.c
View file

@ -1695,21 +1695,23 @@ static void incstep (lua_State *L, global_State *g) {
#if !defined(luai_tracegc)
#define luai_tracegc(L) ((void)0)
#define luai_tracegc(L,f) ((void)0)
#endif
/*
** Performs a basic GC step if collector is running. (If collector is
** not running, set a reasonable debt to avoid it being called at
** every single check.)
** Performs a basic GC step if collector is running. (If collector was
** stopped by the user, set a reasonable debt to avoid it being called
** at every single check.)
*/
void luaC_step (lua_State *L) {
global_State *g = G(L);
lua_assert(!g->gcemergency);
if (!gcrunning(g)) /* not running? */
luaE_setdebt(g, 20000);
if (!gcrunning(g)) { /* not running? */
if (g->gcstp & GCSTPUSR) /* stopped by the user? */
luaE_setdebt(g, 20000);
}
else {
luai_tracegc(L); /* for internal debugging */
luai_tracegc(L, 1); /* for internal debugging */
switch (g->gckind) {
case KGC_INC: case KGC_GENMAJOR:
incstep(L, g);
@ -1719,6 +1721,7 @@ void luaC_step (lua_State *L) {
setminordebt(g);
break;
}
luai_tracegc(L, 0); /* for internal debugging */
}
}