aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2003-01-27 11:00:43 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2003-01-27 11:00:43 -0200
commit635b7c707d146ab56127260601b6fb84c0c140f3 (patch)
tree90d93019b3668c98645bf49d181671dbe9d6b435
parent83f0d6ef1ac9ddd2e9771e721aab2af8117a18a1 (diff)
downloadlua-635b7c707d146ab56127260601b6fb84c0c140f3.tar.gz
lua-635b7c707d146ab56127260601b6fb84c0c140f3.tar.bz2
lua-635b7c707d146ab56127260601b6fb84c0c140f3.zip
details
-rw-r--r--lobject.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/lobject.c b/lobject.c
index 7eb68b7d..ebe2728f 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lobject.c,v 1.93 2002/11/21 15:16:04 roberto Exp roberto $ 2** $Id: lobject.c,v 1.94 2002/12/04 17:38:31 roberto Exp roberto $
3** Some generic functions over Lua objects 3** Some generic functions over Lua objects
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -59,19 +59,19 @@ int luaO_log2 (unsigned int x) {
59 59
60int luaO_rawequalObj (const TObject *t1, const TObject *t2) { 60int luaO_rawequalObj (const TObject *t1, const TObject *t2) {
61 if (ttype(t1) != ttype(t2)) return 0; 61 if (ttype(t1) != ttype(t2)) return 0;
62 if (iscollectable(t1)) return gcvalue(t1) == gcvalue(t2);
63 else switch (ttype(t1)) { 62 else switch (ttype(t1)) {
64 case LUA_TNIL: 63 case LUA_TNIL:
65 return 1; 64 return 1;
65 case LUA_TNUMBER:
66 return nvalue(t1) == nvalue(t2);
66 case LUA_TBOOLEAN: 67 case LUA_TBOOLEAN:
67 return bvalue(t1) == bvalue(t2); /* boolean true must be 1 !! */ 68 return bvalue(t1) == bvalue(t2); /* boolean true must be 1 !! */
68 case LUA_TLIGHTUSERDATA: 69 case LUA_TLIGHTUSERDATA:
69 return pvalue(t1) == pvalue(t2); 70 return pvalue(t1) == pvalue(t2);
70 case LUA_TNUMBER: 71 default:
71 return nvalue(t1) == nvalue(t2); 72 lua_assert(iscollectable(t1));
73 return gcvalue(t1) == gcvalue(t2);
72 } 74 }
73 lua_assert(0);
74 return 0; /* to avoid warnings */
75} 75}
76 76
77 77