rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

hash tables may shrink if use rate is too small.

This commit is contained in:
Roberto Ierusalimschy 1998-08-10 18:36:32 -03:00
parent 894a264671
commit 5378331f2d
2 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lstring.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstring.c,v 1.13 1998/06/19 16:14:09 roberto Exp roberto $ ** $Id: lstring.c,v 1.14 1998/07/27 17:06:17 roberto Exp roberto $
** String table (keeps all strings handled by Lua) ** String table (keeps all strings handled by Lua)
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -45,8 +45,7 @@ static unsigned long hash_s (char *s, long l)
return h; return h;
} }
static int newsize (stringtable *tb) static int newsize (stringtable *tb) {
{
int size = tb->size; int size = tb->size;
int realuse = 0; int realuse = 0;
int i; int i;
@ -54,10 +53,7 @@ static int newsize (stringtable *tb)
for (i=0; i<size; i++) for (i=0; i<size; i++)
if (tb->hash[i] != NULL && tb->hash[i] != &EMPTY) if (tb->hash[i] != NULL && tb->hash[i] != &EMPTY)
realuse++; realuse++;
if (2*(realuse+1) <= size) /* +1 is the new element */ return luaO_redimension((realuse+1)*2); /* +1 is the new element */
return size; /* don't need to grow, just rehash to clear EMPTYs */
else
return luaO_redimension(size);
} }

10
ltable.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltable.c,v 1.12 1998/01/28 16:50:33 roberto Exp roberto $ ** $Id: ltable.c,v 1.13 1998/07/12 16:15:19 roberto Exp roberto $
** Lua tables (hash) ** Lua tables (hash)
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -121,8 +121,7 @@ Hash *luaH_new (int nhash)
} }
static int newsize (Hash *t) static int newsize (Hash *t) {
{
Node *v = t->node; Node *v = t->node;
int size = nhash(t); int size = nhash(t);
int realuse = 0; int realuse = 0;
@ -131,10 +130,7 @@ static int newsize (Hash *t)
if (ttype(ref(v+i)) != LUA_T_NIL && ttype(val(v+i)) != LUA_T_NIL) if (ttype(ref(v+i)) != LUA_T_NIL && ttype(val(v+i)) != LUA_T_NIL)
realuse++; realuse++;
} }
if (2*(realuse+1) <= size) /* +1 is the new element */ return luaO_redimension((realuse+1)*2); /* +1 is the new element */
return size; /* don't need to grow, just rehash */
else
return luaO_redimension(size);
} }
static void rehash (Hash *t) static void rehash (Hash *t)