diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-01-27 11:00:43 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-01-27 11:00:43 -0200 |
commit | 635b7c707d146ab56127260601b6fb84c0c140f3 (patch) | |
tree | 90d93019b3668c98645bf49d181671dbe9d6b435 | |
parent | 83f0d6ef1ac9ddd2e9771e721aab2af8117a18a1 (diff) | |
download | lua-635b7c707d146ab56127260601b6fb84c0c140f3.tar.gz lua-635b7c707d146ab56127260601b6fb84c0c140f3.tar.bz2 lua-635b7c707d146ab56127260601b6fb84c0c140f3.zip |
details
-rw-r--r-- | lobject.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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 | ||
60 | int luaO_rawequalObj (const TObject *t1, const TObject *t2) { | 60 | int 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 | ||