From 1bb9b75f11787cdfff7218b5e7c1e10c0c6bb850 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 20 Jan 1998 10:20:33 +0000
Subject: [PATCH] [project @ 1998-01-20 10:20:33 by sof] Removed
indexCharOffFO#: not needed anymore
---
ghc/compiler/utils/FastString.lhs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 0d6b055214f0..1635997c99ae 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#
--
GitLab