| 660 | |
| 661 | |
| 662 | void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v) { |
| 663 | global_State *g = G(L); |
| 664 | lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); |
| 665 | lua_assert(g->gcstate != GCSfinalize && g->gcstate != GCSpause); |
| 666 | lua_assert(ttype(&o->gch) != LUA_TTABLE); |
| 667 | /* must keep invariant? */ |
| 668 | if (g->gcstate == GCSpropagate) |
| 669 | reallymarkobject(g, v); /* restore invariant */ |
| 670 | else /* don't mind */ |
| 671 | makewhite(g, o); /* mark as white just to avoid other barriers */ |
| 672 | } |
| 673 | |
| 674 | |
| 675 | void luaC_barrierback (lua_State *L, Table *t) { |
nothing calls this directly
no test coverage detected