From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 11 May 2002 17:54:44 +0000 (+0100)
Subject: unsigned char hashes (Re: perl@16539)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ceea138788c46b183220c4e9ce5aee45bb27dfa4;p=p5sagit%2Fp5-mst-13.2.git

unsigned char hashes (Re: perl@16539)
Message-ID: <20020511165444.GD301@Bagpuss.unfortu.net>

Be explicitly unsigned char in the hash calculation.

p4raw-id: //depot/perl@16542
---

diff --git a/hv.h b/hv.h
index 6dc0a88..4979fdd 100644
--- a/hv.h
+++ b/hv.h
@@ -52,7 +52,7 @@ struct xpvhv {
 /* (http://burtleburtle.net/bob/hash/doobs.html) */
 #define PERL_HASH(hash,str,len) \
      STMT_START	{ \
-	register const char *s_PeRlHaSh = str; \
+	register const unsigned char *s_PeRlHaSh = str; \
 	register I32 i_PeRlHaSh = len; \
 	register U32 hash_PeRlHaSh = 0; \
 	while (i_PeRlHaSh--) { \