| 694 | |
| 695 | |
| 696 | static void freeobj(lua_State *L, GCObject *o) { |
| 697 | switch (o->tt) { |
| 698 | case LUA_TPROTO: luaF_freeproto(L, gco2p(o)); break; |
| 699 | case LUA_TLCL: { |
| 700 | freeLclosure(L, gco2lcl(o)); |
| 701 | break; |
| 702 | } |
| 703 | case LUA_TCCL: { |
| 704 | luaM_freemem(L, o, sizeCclosure(gco2ccl(o)->nupvalues)); |
| 705 | break; |
| 706 | } |
| 707 | case LUA_TTABLE: luaH_free(L, gco2t(o)); break; |
| 708 | case LUA_TTHREAD: luaE_freethread(L, gco2th(o)); break; |
| 709 | case LUA_TUSERDATA: luaM_freemem(L, o, sizeudata(gco2u(o))); break; |
| 710 | case LUA_TSHRSTR: |
| 711 | luaS_remove(L, gco2ts(o)); /* remove it from hash table */ |
| 712 | luaM_freemem(L, o, sizelstring(gco2ts(o)->shrlen)); |
| 713 | break; |
| 714 | case LUA_TLNGSTR: { |
| 715 | luaM_freemem(L, o, sizelstring(gco2ts(o)->u.lnglen)); |
| 716 | break; |
| 717 | } |
| 718 | default: lua_assert(0); |
| 719 | } |
| 720 | } |
| 721 | |
| 722 | |
| 723 | #define sweepwholelist(L,p) sweeplist(L,p,MAX_LUMEM) |
no test coverage detected