Fix definition of FNV hash. Thanks Taylor!

diff --git a/src/microcode/intern.c b/src/microcode/intern.c
index fe8461766e7006261aa8ed6344262a83aad6ede3..9d44262d5e716638dd958324e8ff9fed4f018aaf 100644 (file)
--- a/src/microcode/intern.c
+++ b/src/microcode/intern.c
@@ -38,11 +38,12 @@ string_hash (uint32_t length, const char * string)
   const unsigned char * end = (scan + length);
   uint32_t result = 2166136261U;
   while (scan < end)
-    result = ((result * 16777619U) + (*scan++));
-#if (BIGGEST_FIXNUM >= 0xFFFFFFFF)
+    result = ((result * 16777619U) ^ ((uint32_t) (*scan++)));
+#if (FIXNUM_LENGTH >= 32)
   return (result);
 #else
-  return (result & ((uint32_t) BIGGEST_FIXNUM));
+  /* Shorten the result using xor-folding.  */
+  return ((result >> FIXNUM_LENGTH) ^ (result & FIXNUM_MASK));
 #endif
 }