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

smaller tables for machines with 8-bit alignment

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-01-29 15:17:26 -02:00
parent fa8c44b510
commit 6b71a9cfe5
8 changed files with 69 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lgc.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lgc.c,v 1.80 2001/01/26 13:18:00 roberto Exp roberto $
** $Id: lgc.c,v 1.81 2001/01/26 14:16:24 roberto Exp roberto $
** Garbage Collector
** See Copyright Notice in lua.h
*/
@@ -133,11 +133,16 @@ static void traversetable (GCState *st, Hash *h) {
for (i=0; i<h->size; i++) {
Node *n = node(h, i);
if (ttype(val(n)) == LUA_TNIL) {
if (ttype(key(n)) != LUA_TNIL)
sethvalue(key(n), NULL); /* dead key; remove it */
if (ttype_key(n) != LUA_TNIL)
n->key_value.v = NULL; /* dead key; remove it */
}
else {
markobject(st, &n->key);
lua_assert(ttype_key(n) != LUA_TNIL);
if (ttype_key(n) != LUA_TNUMBER) {
TObject o;
setkey2obj(&o, n);
markobject(st, &o);
}
markobject(st, &n->val);
}
}