lua

A copy of the Lua development repository
Log | Files | Refs | README

commit 894a2646719006489800ea68b0515ab956f8aa62
parent e1a127245d3d977945819240a2df90ceb8ae516f
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 27 Jul 1998 14:05:56 -0300

new hash function.

Diffstat:
Mlstring.c | 6+++---
1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lstring.c b/lstring.c @@ -1,5 +1,5 @@ /* -** $Id: lstring.c,v 1.12 1998/03/06 16:54:42 roberto Exp roberto $ +** $Id: lstring.c,v 1.13 1998/06/19 16:14:09 roberto Exp roberto $ ** String table (keeps all strings handled by Lua) ** See Copyright Notice in lua.h */ @@ -39,9 +39,9 @@ void luaS_init (void) static unsigned long hash_s (char *s, long l) { - unsigned long h = 0; + unsigned long h = 0; /* seed */ while (l--) - h = ((h<<5)-h)^(unsigned char)*(s++); + h = h ^ ((h<<5)+(h>>2)+(unsigned char)*(s++)); return h; }