From 63a3b1a1eb2fe8aca8315e28ac2c6d150b1ee218 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 6 Nov 2009 15:08:43 -0200
Subject: [PATCH] macro 'checkvalref' redefined as function (to avoid too long
 macros)

---
 ltests.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ltests.c b/ltests.c
index d98f38f4..a04f7d6e 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 2.77 2009/10/23 19:12:19 roberto Exp roberto $
+** $Id: ltests.c,v 2.78 2009/11/05 17:43:54 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -202,9 +202,12 @@ static int testobjref (global_State *g, GCObject *f, GCObject *t) {
 
 #define checkobjref(g,f,t) lua_assert(testobjref(g,f,obj2gco(t)))
 
-#define checkvalref(g,f,t) lua_assert(!iscollectable(t) || \
-	((ttype(t) == gch(gcvalue(t))->tt) && testobjref(g,f,gcvalue(t))))
 
+static void checkvalref (global_State *g, GCObject *f, const TValue *t) {
+  if (iscollectable(t)) {
+    lua_assert(righttt(t) && testobjref(g, f, gcvalue(t)));
+  }
+}
 
 
 static void checktable (global_State *g, Table *h) {