Commit f2dc9335 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-04-14 08:52:35 by simonmar]

_ForeignObj ==> ForeignObj
parent fd1c3119
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment