diff options
Diffstat (limited to 'lgc.h')
-rw-r--r-- | lgc.h | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.h,v 2.12 2005/02/23 17:30:22 roberto Exp roberto $ | 2 | ** $Id: lgc.h,v 2.13 2005/04/25 19:24:10 roberto Exp roberto $ |
3 | ** Garbage Collector | 3 | ** Garbage Collector |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -84,16 +84,15 @@ | |||
84 | #define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ | 84 | #define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ |
85 | luaC_barrierf(L,obj2gco(p),gcvalue(v)); } | 85 | luaC_barrierf(L,obj2gco(p),gcvalue(v)); } |
86 | 86 | ||
87 | #define luaC_barriert(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ | 87 | #define luaC_barriert(L,t,v) { if (valiswhite(v) && isblack(obj2gco(t))) \ |
88 | luaC_barrierback(L,obj2gco(p)); } | 88 | luaC_barrierback(L,t); } |
89 | 89 | ||
90 | #define luaC_objbarrier(L,p,o) \ | 90 | #define luaC_objbarrier(L,p,o) \ |
91 | { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ | 91 | { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ |
92 | luaC_barrierf(L,obj2gco(p),obj2gco(o)); } | 92 | luaC_barrierf(L,obj2gco(p),obj2gco(o)); } |
93 | 93 | ||
94 | #define luaC_objbarriert(L,p,o) \ | 94 | #define luaC_objbarriert(L,t,o) \ |
95 | { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ | 95 | { if (iswhite(obj2gco(o)) && isblack(obj2gco(t))) luaC_barrierback(L,t); } |
96 | luaC_barrierback(L,obj2gco(p)); } | ||
97 | 96 | ||
98 | LUAI_FUNC size_t luaC_separateudata (lua_State *L, int all); | 97 | LUAI_FUNC size_t luaC_separateudata (lua_State *L, int all); |
99 | LUAI_FUNC void luaC_callGCTM (lua_State *L); | 98 | LUAI_FUNC void luaC_callGCTM (lua_State *L); |
@@ -103,7 +102,7 @@ LUAI_FUNC void luaC_fullgc (lua_State *L); | |||
103 | LUAI_FUNC void luaC_link (lua_State *L, GCObject *o, lu_byte tt); | 102 | LUAI_FUNC void luaC_link (lua_State *L, GCObject *o, lu_byte tt); |
104 | LUAI_FUNC void luaC_linkupval (lua_State *L, UpVal *uv); | 103 | LUAI_FUNC void luaC_linkupval (lua_State *L, UpVal *uv); |
105 | LUAI_FUNC void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v); | 104 | LUAI_FUNC void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v); |
106 | LUAI_FUNC void luaC_barrierback (lua_State *L, GCObject *o); | 105 | LUAI_FUNC void luaC_barrierback (lua_State *L, Table *t); |
107 | 106 | ||
108 | 107 | ||
109 | #endif | 108 | #endif |