luaF_close
luaF_close(L, oldtop);
luaF_close(L, oldtop); /* close possible pending closures */
LUAI_FUNC void luaF_close (lua_State *L, StkId level);
luaF_close(L, L->stack); /* close all upvalues for this thread */
luaF_close(L1, L1->stack); /* close all upvalues for this thread */
if (a > 0) luaF_close(L, ci->u.l.base + a - 1); \
if (cl->p->sizep > 0) luaF_close(L, oci->u.l.base);
if (cl->p->sizep > 0) luaF_close(L, base);