Function checkSizes

src/Chain/libraries/glua/lgc.cpp:780–787

** If possible, shrink string table */

** If possible, shrink string table
*/
static void checkSizes(lua_State *L, global_State *g) {
    if (g->gckind != KGC_EMERGENCY) {
        l_mem olddebt = g->GCdebt;
        if (g->strt.nuse < g->strt.size / 4)  /* string table too big? */
            luaS_resize(L, g->strt.size / 2);  /* shrink it a little */
        g->GCestimate += g->GCdebt - olddebt;  /* update estimate */
    }
}


static GCObject *udata2finalize(global_State *g) {