lua

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:
M
lstring.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;
 }