mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-02-19 14:44:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

small optimization

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2002-03-04 18:32:34 -03:00
parent 88c7b574cb
commit 1a3f175640
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lgc.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lgc.c,v 1.1 2001/11/29 22:14:34 rieru Exp rieru $
** $Id: lgc.c,v 1.127 2002/01/30 17:26:44 roberto Exp roberto $
** Garbage Collector
** See Copyright Notice in lua.h
*/
@ -43,7 +43,12 @@ typedef struct GCState {
static void markobject (GCState *st, TObject *o);
#define ismarkable(o) (!((1 << ttype(o)) & \
((1 << LUA_TNIL) | (1 << LUA_TNUMBER) | (1 << LUA_TBOOLEAN))))
static void reallymarkobject (GCState *st, TObject *o);
#define markobject(st,o) if (ismarkable(o)) reallymarkobject(st,o)
static void protomark (Proto *f) {
@ -96,7 +101,7 @@ static void marktable (GCState *st, Table *h) {
}
static void markobject (GCState *st, TObject *o) {
static void reallymarkobject (GCState *st, TObject *o) {
switch (ttype(o)) {
case LUA_TSTRING:
strmark(tsvalue(o));
@ -112,12 +117,7 @@ static void markobject (GCState *st, TObject *o) {
marktable(st, hvalue(o));
break;
}
default: {
lua_assert(ttype(o) == LUA_TNIL ||
ttype(o) == LUA_TNUMBER ||
ttype(o) == LUA_TBOOLEAN);
break;
}
default: lua_assert(0); /* should not be called with other types */
}
}