nik/lush
1
1 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small improvements.

Browse Source
This commit is contained in:
Roberto Ierusalimschy committed 1999-01-04 11:37:07 -02:00
1 parent 03d38b66fd
commit 63a752f961
2 files changed
+6 -6
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

lobject.c
+2 -4
View File
@@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 1.13 1998/06/19 16:14:09 roberto Exp $ ** $Id: lobject.c,v 1.14 1998/12/27 20:25:20 roberto Exp roberto $
** Some generic functions over Lua objects ** Some generic functions over Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -40,9 +40,7 @@ int luaO_redimension (int oldsize)
} }
int luaO_equalObj (TObject *t1, TObject *t2) int luaO_equalval (TObject *t1, TObject *t2) {
{
if (ttype(t1) != ttype(t2)) return 0;
switch (ttype(t1)) { switch (ttype(t1)) {
case LUA_T_NIL: return 1; case LUA_T_NIL: return 1;
case LUA_T_NUMBER: return nvalue(t1) == nvalue(t2); case LUA_T_NUMBER: return nvalue(t1) == nvalue(t2);
lobject.h
+4 -2
View File
@@ -1,5 +1,5 @@
/* /*
** $Id: lobject.h,v 1.23 1998/12/01 19:09:47 roberto Exp $ ** $Id: lobject.h,v 1.24 1998/12/27 20:25:20 roberto Exp roberto $
** Type definitions for Lua objects ** Type definitions for Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -193,7 +193,9 @@ extern char *luaO_typenames[];
extern TObject luaO_nilobject; extern TObject luaO_nilobject;
int luaO_equalObj (TObject *t1, TObject *t2); #define luaO_equalObj(t1,t2) ((ttype(t1) != ttype(t2)) ? 0 \
: luaO_equalval(t1,t2))
int luaO_equalval (TObject *t1, TObject *t2);
int luaO_redimension (int oldsize); int luaO_redimension (int oldsize);
void luaO_insertlist (GCnode *root, GCnode *node); void luaO_insertlist (GCnode *root, GCnode *node);
double luaO_str2d (char *s); double luaO_str2d (char *s);