| 694 | |
| 695 | |
| 696 | void luaC_linkupval (lua_State *L, UpVal *uv) { |
| 697 | global_State *g = G(L); |
| 698 | GCObject *o = obj2gco(uv); |
| 699 | o->gch.next = g->rootgc; /* link upvalue into `rootgc' list */ |
| 700 | g->rootgc = o; |
| 701 | if (isgray(o)) { |
| 702 | if (g->gcstate == GCSpropagate) { |
| 703 | gray2black(o); /* closed upvalues need barrier */ |
| 704 | luaC_barrier(L, uv, uv->v); |
| 705 | } |
| 706 | else { /* sweep phase: sweep it (turning it into white) */ |
| 707 | makewhite(g, o); |
| 708 | lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); |
| 709 | } |
| 710 | } |
| 711 | } |
| 712 | |