aboutsummaryrefslogtreecommitdiff
path: root/lobject.c
diff options
context:
space:
mode:
Diffstat (limited to 'lobject.c')
-rw-r--r--lobject.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/lobject.c b/lobject.c
index a8c74c7f..981e236e 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lobject.c,v 1.8 1997/12/15 16:17:20 roberto Exp roberto $ 2** $Id: lobject.c,v 1.9 1997/12/26 18:38:16 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*/
@@ -48,9 +48,9 @@ int luaO_equalObj (TObject *t1, TObject *t2)
48 case LUA_T_NUMBER: return nvalue(t1) == nvalue(t2); 48 case LUA_T_NUMBER: return nvalue(t1) == nvalue(t2);
49 case LUA_T_STRING: case LUA_T_USERDATA: return svalue(t1) == svalue(t2); 49 case LUA_T_STRING: case LUA_T_USERDATA: return svalue(t1) == svalue(t2);
50 case LUA_T_ARRAY: return avalue(t1) == avalue(t2); 50 case LUA_T_ARRAY: return avalue(t1) == avalue(t2);
51 case LUA_T_CLOSURE: return t1->value.cl == t2->value.cl;
52 case LUA_T_PROTO: return tfvalue(t1) == tfvalue(t2); 51 case LUA_T_PROTO: return tfvalue(t1) == tfvalue(t2);
53 case LUA_T_CPROTO: return fvalue(t1) == fvalue(t2); 52 case LUA_T_CPROTO: return fvalue(t1) == fvalue(t2);
53 case LUA_T_CLOSURE: return t1->value.cl == t2->value.cl;
54 default: 54 default:
55 lua_error("internal error in `lua_equalObj'"); 55 lua_error("internal error in `lua_equalObj'");
56 return 0; /* UNREACHEABLE */ 56 return 0; /* UNREACHEABLE */