diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2005-02-23 14:30:22 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2005-02-23 14:30:22 -0300 |
| commit | d55bb795faaa3a632aeb92fd29fc12b796ae7968 (patch) | |
| tree | e81b84b41de1264dd078cec37541716ba0ffcf27 /lgc.h | |
| parent | d84cc9d2dbf1f44e7126fe3ed9a82eed9757a63a (diff) | |
| download | lua-d55bb795faaa3a632aeb92fd29fc12b796ae7968.tar.gz lua-d55bb795faaa3a632aeb92fd29fc12b796ae7968.tar.bz2 lua-d55bb795faaa3a632aeb92fd29fc12b796ae7968.zip | |
details
Diffstat (limited to 'lgc.h')
| -rw-r--r-- | lgc.h | 12 |
1 files changed, 6 insertions, 6 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lgc.h,v 2.10 2005/01/19 15:54:26 roberto Exp roberto $ | 2 | ** $Id: lgc.h,v 2.11 2005/02/10 13:25:02 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 | */ |
| @@ -29,7 +29,7 @@ | |||
| 29 | #define testbits(x,m) ((x) & (m)) | 29 | #define testbits(x,m) ((x) & (m)) |
| 30 | #define bitmask(b) (1<<(b)) | 30 | #define bitmask(b) (1<<(b)) |
| 31 | #define bit2mask(b1,b2) (bitmask(b1) | bitmask(b2)) | 31 | #define bit2mask(b1,b2) (bitmask(b1) | bitmask(b2)) |
| 32 | #define setbit(x,b) setbits(x, bitmask(b)) | 32 | #define l_setbit(x,b) setbits(x, bitmask(b)) |
| 33 | #define resetbit(x,b) resetbits(x, bitmask(b)) | 33 | #define resetbit(x,b) resetbits(x, bitmask(b)) |
| 34 | #define testbit(x,b) testbits(x, bitmask(b)) | 34 | #define testbit(x,b) testbits(x, bitmask(b)) |
| 35 | #define set2bits(x,b1,b2) setbits(x, (bit2mask(b1, b2))) | 35 | #define set2bits(x,b1,b2) setbits(x, (bit2mask(b1, b2))) |
| @@ -70,7 +70,7 @@ | |||
| 70 | #define isdead(g,v) ((v)->gch.marked & otherwhite(g) & WHITEBITS) | 70 | #define isdead(g,v) ((v)->gch.marked & otherwhite(g) & WHITEBITS) |
| 71 | 71 | ||
| 72 | #define changewhite(x) ((x)->gch.marked ^= WHITEBITS) | 72 | #define changewhite(x) ((x)->gch.marked ^= WHITEBITS) |
| 73 | #define gray2black(x) setbit((x)->gch.marked, BLACKBIT) | 73 | #define gray2black(x) l_setbit((x)->gch.marked, BLACKBIT) |
| 74 | 74 | ||
| 75 | #define valiswhite(x) (iscollectable(x) && iswhite(gcvalue(x))) | 75 | #define valiswhite(x) (iscollectable(x) && iswhite(gcvalue(x))) |
| 76 | 76 | ||
| @@ -85,7 +85,7 @@ | |||
| 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,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ |
| 88 | luaC_barrierback(L,obj2gco(p),gcvalue(v)); } | 88 | luaC_barrierback(L,obj2gco(p)); } |
| 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))) \ |
| @@ -93,7 +93,7 @@ | |||
| 93 | 93 | ||
| 94 | #define luaC_objbarriert(L,p,o) \ | 94 | #define luaC_objbarriert(L,p,o) \ |
| 95 | { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ | 95 | { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ |
| 96 | luaC_barrierback(L,obj2gco(p),obj2gco(o)); } | 96 | luaC_barrierback(L,obj2gco(p)); } |
| 97 | 97 | ||
| 98 | size_t luaC_separateudata (lua_State *L, int all); | 98 | size_t luaC_separateudata (lua_State *L, int all); |
| 99 | void luaC_callGCTM (lua_State *L); | 99 | void luaC_callGCTM (lua_State *L); |
| @@ -103,7 +103,7 @@ void luaC_fullgc (lua_State *L); | |||
| 103 | void luaC_link (lua_State *L, GCObject *o, lu_byte tt); | 103 | void luaC_link (lua_State *L, GCObject *o, lu_byte tt); |
| 104 | void luaC_linkupval (lua_State *L, UpVal *uv); | 104 | void luaC_linkupval (lua_State *L, UpVal *uv); |
| 105 | void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v); | 105 | void luaC_barrierf (lua_State *L, GCObject *o, GCObject *v); |
| 106 | void luaC_barrierback (lua_State *L, GCObject *o, GCObject *v); | 106 | void luaC_barrierback (lua_State *L, GCObject *o); |
| 107 | 107 | ||
| 108 | 108 | ||
| 109 | #endif | 109 | #endif |
