aboutsummaryrefslogtreecommitdiff
path: root/lgc.h
diff options
context:
space:
mode:
Diffstat (limited to 'lgc.h')
-rw-r--r--lgc.h13
1 files changed, 6 insertions, 7 deletions
diff --git a/lgc.h b/lgc.h
index 6c628a23..becc60fe 100644
--- a/lgc.h
+++ b/lgc.h
@@ -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
98LUAI_FUNC size_t luaC_separateudata (lua_State *L, int all); 97LUAI_FUNC size_t luaC_separateudata (lua_State *L, int all);
99LUAI_FUNC void luaC_callGCTM (lua_State *L); 98LUAI_FUNC void luaC_callGCTM (lua_State *L);
@@ -103,7 +102,7 @@ LUAI_FUNC void luaC_fullgc (lua_State *L);
103LUAI_FUNC void luaC_link (lua_State *L, GCObject *o, lu_byte tt); 102LUAI_FUNC void luaC_link (lua_State *L, GCObject *o, lu_byte tt);
104LUAI_FUNC void luaC_linkupval (lua_State *L, UpVal *uv); 103LUAI_FUNC void luaC_linkupval (lua_State *L, UpVal *uv);
105LUAI_FUNC void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v); 104LUAI_FUNC void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v);
106LUAI_FUNC void luaC_barrierback (lua_State *L, GCObject *o); 105LUAI_FUNC void luaC_barrierback (lua_State *L, Table *t);
107 106
108 107
109#endif 108#endif