diff options
| author | sof <unknown> | 1998-01-20 10:20:33 +0000 |
|---|---|---|
| committer | sof <unknown> | 1998-01-20 10:20:33 +0000 |
| commit | 1bb9b75f11787cdfff7218b5e7c1e10c0c6bb850 (patch) | |
| tree | 8a7c0ef2a1f0714257bc32353602afcd75adf8e1 /ghc | |
| parent | 3c3afc47a4317ecafa8d2d78106cf98598469300 (diff) | |
| download | haskell-1bb9b75f11787cdfff7218b5e7c1e10c0c6bb850.tar.gz | |
[project @ 1998-01-20 10:20:33 by sof]
Removed indexCharOffFO#: not needed anymore
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/compiler/utils/FastString.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs index 0d6b055214..1635997c99 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# |