From 894a2646719006489800ea68b0515ab956f8aa62 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 27 Jul 1998 14:06:17 -0300
Subject: [PATCH] new hash function.

---
 lstring.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lstring.c b/lstring.c
index b2b4baa2..11303877 100644
--- 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;
 }