| 980 | |
| 981 | |
| 982 | void luaC_freeallobjects (lua_State *L) { |
| 983 | global_State *g = G(L); |
| 984 | int i; |
| 985 | separatetobefnz(L, 1); /* separate all objects with finalizers */ |
| 986 | lua_assert(g->finobj == NULL); |
| 987 | callallpendingfinalizers(L, 0); |
| 988 | g->currentwhite = WHITEBITS; /* this "white" makes all objects look dead */ |
| 989 | g->gckind = KGC_NORMAL; |
| 990 | sweepwholelist(L, &g->finobj); /* finalizers can create objs. in 'finobj' */ |
| 991 | sweepwholelist(L, &g->allgc); |
| 992 | for (i = 0; i < g->strt.size; i++) /* free all string lists */ |
| 993 | sweepwholelist(L, &g->strt.hash[i]); |
| 994 | lua_assert(g->strt.nuse == 0); |
| 995 | } |
| 996 | |
| 997 | |
| 998 | static l_mem atomic (lua_State *L) { |
no test coverage detected