[project @ 2005-08-12 14:43:04 by simonpj]

[ghc-hetmet.git] / ghc / compiler / utils / FastString.lhs

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 0f9772c..52512d3 100644 (file)
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -399,7 +399,7 @@ hashSubStrBA ba# start# len# = loop 0# 0#
 
 hashUnicode :: [Int] -> Int# -> Int#
 hashUnicode [] h = h
-hashUnicode (I# c : cs) h = hashUnicode cs ((ord# c + (h *# 128)) `remInt#` hASH_TBL_SIZE#)
+hashUnicode (I# c : cs) h = hashUnicode cs ((c +# (h *# 128#)) `remInt#` hASH_TBL_SIZE#)
 \end{code}
 
 \begin{code}