Function luaC_step

src/Chain/libraries/glua/lgc.cpp:1133–1151

** performs a basic GC step when collector is running */

** performs a basic GC step when collector is running
*/
void luaC_step(lua_State *L) {
    global_State *g = G(L);
    l_mem debt = getdebt(g);  /* GC deficit (be paid now) */
    if (!g->gcrunning) {  /* not running? */
        luaE_setdebt(g, -GCSTEPSIZE * 10);  /* avoid being called too often */
        return;
    }
    do {  /* repeat until pause or enough "credit" (negative debt) */
        lu_mem work = singlestep(L);  /* perform one single step */
        debt -= work;
    } while (debt > -GCSTEPSIZE && g->gcstate != GCSpause);
    if (g->gcstate == GCSpause)
        setpause(g);  /* pause until next cycle */
    else {
        debt = (debt / g->gcstepmul) * STEPMULADJ;  /* convert 'work units' to Kb */
        luaE_setdebt(g, debt);
        runafewfinalizers(L);
    }
}


/*