Sfoglia il codice sorgente

macro 'checkconsistency' moved to this file, as it is used only
here

Roberto Ierusalimschy 14 anni fa
parent
commit
74b0bb3a45
1 ha cambiato i file con 5 aggiunte e 1 eliminazioni
  1. 5 1
      lgc.c

+ 5 - 1
lgc.c

@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 2.107 2010/12/20 19:40:07 roberto Exp roberto $
+** $Id: lgc.c,v 2.108 2010/12/29 18:00:23 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -73,6 +73,10 @@
 #define checkdeadkey(n)	lua_assert(!ttisdeadkey(gkey(n)) || ttisnil(gval(n)))
 
 
+#define checkconsistency(obj)  \
+  lua_longassert(!iscollectable(obj) || righttt(obj))
+
+
 #define markvalue(g,o) { checkconsistency(o); \
   if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); }