diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2011-05-05 16:42:25 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2011-05-05 16:42:25 -0300 |
| commit | 74b0bb3a458adc8e0d845d67e0f9486679466d26 (patch) | |
| tree | 0edd40ad7fe6f5ba891cde5b1e2a919c62370a4f /lgc.c | |
| parent | e4076fe6d9d920e8e9acd4e979c61168de8abec1 (diff) | |
| download | lua-74b0bb3a458adc8e0d845d67e0f9486679466d26.tar.gz lua-74b0bb3a458adc8e0d845d67e0f9486679466d26.tar.bz2 lua-74b0bb3a458adc8e0d845d67e0f9486679466d26.zip | |
macro 'checkconsistency' moved to this file, as it is used only
here
Diffstat (limited to 'lgc.c')
| -rw-r--r-- | lgc.c | 6 |
1 files changed, 5 insertions, 1 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lgc.c,v 2.107 2010/12/20 19:40:07 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 2.108 2010/12/29 18:00:23 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 | */ |
| @@ -73,6 +73,10 @@ | |||
| 73 | #define checkdeadkey(n) lua_assert(!ttisdeadkey(gkey(n)) || ttisnil(gval(n))) | 73 | #define checkdeadkey(n) lua_assert(!ttisdeadkey(gkey(n)) || ttisnil(gval(n))) |
| 74 | 74 | ||
| 75 | 75 | ||
| 76 | #define checkconsistency(obj) \ | ||
| 77 | lua_longassert(!iscollectable(obj) || righttt(obj)) | ||
| 78 | |||
| 79 | |||
| 76 | #define markvalue(g,o) { checkconsistency(o); \ | 80 | #define markvalue(g,o) { checkconsistency(o); \ |
| 77 | if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); } | 81 | if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); } |
| 78 | 82 | ||