From: sof <unknown>
Date: Tue, 20 Jan 1998 10:20:33 +0000 (+0000)
Subject: [project @ 1998-01-20 10:20:33 by sof]
X-Git-Tag: Approx_2487_patches~1085
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1bb9b75f11787cdfff7218b5e7c1e10c0c6bb850;p=ghc-hetmet.git

[project @ 1998-01-20 10:20:33 by sof]
Removed indexCharOffFO#: not needed anymore
---

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 0d6b055..1635997 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -378,9 +378,9 @@ hashSubStrFO fo# start# len# =
    2# -> ((ord# c0 *# 631#) +# (ord# c1 *# 217#) +# len#) `remInt#` hASH_TBL_SIZE#
    _  -> ((ord# c0 *# 631#) +# (ord# c1 *# 217#) +# (ord# c2 *# 43#) +# len#) `remInt#` hASH_TBL_SIZE#
   where
-    c0 = indexCharOffFO# fo# 0#
-    c1 = indexCharOffFO# fo# (len# `quotInt#` 2# -# 1#)
-    c2 = indexCharOffFO# fo# (len# -# 1#)
+    c0 = indexCharOffForeignObj# fo# 0#
+    c1 = indexCharOffForeignObj# fo# (len# `quotInt#` 2# -# 1#)
+    c2 = indexCharOffForeignObj# fo# (len# -# 1#)
 
 --    c1 = indexCharOffFO# fo# 1#
 --    c2 = indexCharOffFO# fo# 2#