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 | ||
