[svn:parrot] r19109 - branches/awaiting-0.4.13/src

[petdance]

Author: petdance
Date: Mon Jun 18 21:36:01 2007
New Revision: 19109

Modified:
   branches/awaiting-0.4.13/src/hash.c

Log:
Added a const so we're not casting it away

Modified: branches/awaiting-0.4.13/src/hash.c
==============================================================================
--- branches/awaiting-0.4.13/src/hash.c (original)
+++ branches/awaiting-0.4.13/src/hash.c Mon Jun 18 21:36:01 2007
@@ -98,7 +98,7 @@
 key_hash_cstring(Interp *interp, const void *value /*NN*/, size_t seed)
 {
     register size_t h = seed;
-    unsigned char * p = (unsigned char *) value;
+    const unsigned char * p = (const unsigned char *) value;
     while (*p) {
         h += h << 5;
         h += *p++;