** Get the next udata to be finalized from the 'tobefnz' list, and ** link it back into the 'allgc' list. */
| 884 | ** link it back into the 'allgc' list. |
| 885 | */ |
| 886 | static GCObject *udata2finalize (global_State *g) { |
| 887 | GCObject *o = g->tobefnz; /* get first element */ |
| 888 | lua_assert(tofinalize(o)); |
| 889 | g->tobefnz = o->next; /* remove it from 'tobefnz' list */ |
| 890 | o->next = g->allgc; /* return it to 'allgc' list */ |
| 891 | g->allgc = o; |
| 892 | resetbit(o->marked, FINALIZEDBIT); /* object is "normal" again */ |
| 893 | if (issweepphase(g)) |
| 894 | makewhite(g, o); /* "sweep" object */ |
| 895 | else if (getage(o) == G_OLD1) |
| 896 | g->firstold1 = o; /* it is the first OLD1 object in the list */ |
| 897 | return o; |
| 898 | } |
| 899 | |
| 900 | |
| 901 | static void dothecall (lua_State *L, void *ud) { |