From 4540b6559648acfdfb2b1acdedb45357c922f019 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 20 Jan 1998 10:20:59 +0000
Subject: [PATCH] [project @ 1998-01-20 10:20:59 by sof] Removed
indexCharOffFO#: not needed anymore - part2
---
ghc/compiler/utils/PrimPacked.lhs | 9 ++-------
1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/ghc/compiler/utils/PrimPacked.lhs b/ghc/compiler/utils/PrimPacked.lhs
index e7abdb36151b..455bf9fd2956 100644
--- a/ghc/compiler/utils/PrimPacked.lhs
+++ b/ghc/compiler/utils/PrimPacked.lhs
@@ -22,8 +22,7 @@ module PrimPacked
eqCharStrPrefixBA, -- :: Addr# -> ByteArray# -> Int# -> Int# -> Bool
eqStrPrefixFO, -- :: ForeignObj# -> ByteArray# -> Int# -> Int# -> Bool
- addrOffset#, -- :: Addr# -> Int# -> Addr#
- indexCharOffFO# -- :: ForeignObj# -> Int# -> Char#
+ addrOffset# -- :: Addr# -> Int# -> Addr#
) where
-- This #define suppresses the "import FastString" that
@@ -122,14 +121,10 @@ copySubStrFO (ForeignObj fo) (I# start#) len@(I# length#) =
= write_ps_array arr_in# idx (chr# 0#) `seqStrictlyST`
returnStrictlyST ()
| otherwise
- = case (indexCharOffFO# fo (idx +# start#)) of { ch ->
+ = case (indexCharOffForeignObj# fo (idx +# start#)) of { ch ->
write_ps_array arr_in# idx ch `seqStrictlyST`
fill_in arr_in# (idx +# 1#) }
-{- ToDo: add FO primitives.. -}
-indexCharOffFO# :: ForeignObj# -> Int# -> Char#
-indexCharOffFO# fo i = indexCharOffForeignObj# fo i
-
-- step on (char *) pointer by x units.
addrOffset# :: Addr# -> Int# -> Addr#
addrOffset# a# i# =
--
GitLab