diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-07-19 12:14:46 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-07-19 12:14:46 -0300 |
commit | 3c6d0aaa7d07de2cf24d09195b6678abbfee2268 (patch) | |
tree | 92e7da72cd89505e8d1326b71593df9b1e7b0fdf /lgc.h | |
parent | e43612aaf62bbb92fd7555b132d9ee1c0394dc58 (diff) | |
download | lua-3c6d0aaa7d07de2cf24d09195b6678abbfee2268.tar.gz lua-3c6d0aaa7d07de2cf24d09195b6678abbfee2268.tar.bz2 lua-3c6d0aaa7d07de2cf24d09195b6678abbfee2268.zip |
'iswhite' and related macros now can work directly on any object
(no need to convert to 'GCObject')
Diffstat (limited to 'lgc.h')
-rw-r--r-- | lgc.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.h,v 2.83 2014/07/17 17:27:49 roberto Exp roberto $ | 2 | ** $Id: lgc.h,v 2.84 2014/07/19 15:09:37 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 | */ |
@@ -107,15 +107,15 @@ | |||
107 | 107 | ||
108 | 108 | ||
109 | #define luaC_barrier(L,p,v) { \ | 109 | #define luaC_barrier(L,p,v) { \ |
110 | if (iscollectable(v) && isblack(obj2gco(p)) && iswhite(gcvalue(v))) \ | 110 | if (iscollectable(v) && isblack(p) && iswhite(gcvalue(v))) \ |
111 | luaC_barrier_(L,obj2gco(p),gcvalue(v)); } | 111 | luaC_barrier_(L,obj2gco(p),gcvalue(v)); } |
112 | 112 | ||
113 | #define luaC_barrierback(L,p,v) { \ | 113 | #define luaC_barrierback(L,p,v) { \ |
114 | if (iscollectable(v) && isblack(obj2gco(p)) && iswhite(gcvalue(v))) \ | 114 | if (iscollectable(v) && isblack(p) && iswhite(gcvalue(v))) \ |
115 | luaC_barrierback_(L,p); } | 115 | luaC_barrierback_(L,p); } |
116 | 116 | ||
117 | #define luaC_objbarrier(L,p,o) { \ | 117 | #define luaC_objbarrier(L,p,o) { \ |
118 | if (isblack(obj2gco(p)) && iswhite(obj2gco(o))) \ | 118 | if (isblack(p) && iswhite(o)) \ |
119 | luaC_barrier_(L,obj2gco(p),obj2gco(o)); } | 119 | luaC_barrier_(L,obj2gco(p),obj2gco(o)); } |
120 | 120 | ||
121 | #define luaC_upvalbarrier(L,uv) \ | 121 | #define luaC_upvalbarrier(L,uv) \ |