diff options
| author | simonmar <unknown> | 2000-04-14 08:52:35 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-04-14 08:52:35 +0000 |
| commit | f2dc93350f9b67e203b95bd5dfbccf66bd118d48 (patch) | |
| tree | 059897b97b4567f285aa1fc9a175827c69b0417f | |
| parent | fd1c3119f74e4cbeb34d54a929a565434d579795 (diff) | |
| download | haskell-f2dc93350f9b67e203b95bd5dfbccf66bd118d48.tar.gz | |
[project @ 2000-04-14 08:52:35 by simonmar]
_ForeignObj ==> ForeignObj
| -rw-r--r-- | ghc/compiler/utils/FastString.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs index 4b55c0d13d..080decb51d 100644 --- a/ghc/compiler/utils/FastString.lhs +++ b/ghc/compiler/utils/FastString.lhs @@ -331,7 +331,7 @@ mkFastSubStringFO# fo# start# len# = [] -> -- no match, add it to table by copying out the -- the string into a ByteArray - case copySubStrFO (_ForeignObj fo#) (I# start#) (I# len#) of + case copySubStrFO (ForeignObj fo#) (I# start#) (I# len#) of #if __GLASGOW_HASKELL__ < 405 (ByteArray _ barr#) -> #else @@ -345,7 +345,7 @@ mkFastSubStringFO# fo# start# len# = -- entry with same length and compare byte by byte. case bucket_match ls start# len# fo# of Nothing -> - case copySubStrFO (_ForeignObj fo#) (I# start#) (I# len#) of + case copySubStrFO (ForeignObj fo#) (I# start#) (I# len#) of #if __GLASGOW_HASKELL__ < 405 (ByteArray _ barr#) -> #else @@ -449,8 +449,8 @@ mkFastSubString :: Addr -> Int -> Int -> FastString mkFastSubString (A# a#) (I# start#) (I# len#) = mkFastString# (addrOffset# a# start#) len# -mkFastSubStringFO :: _ForeignObj -> Int -> Int -> FastString -mkFastSubStringFO (_ForeignObj fo#) (I# start#) (I# len#) = +mkFastSubStringFO :: ForeignObj -> Int -> Int -> FastString +mkFastSubStringFO (ForeignObj fo#) (I# start#) (I# len#) = mkFastSubStringFO# fo# start# len# \end{code} |