projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6417028
)
[project @ 2005-03-30 01:12:51 by sof]
author
sof
<unknown>
Wed, 30 Mar 2005 01:12:51 +0000
(
01:12
+0000)
committer
sof
<unknown>
Wed, 30 Mar 2005 01:12:51 +0000
(
01:12
+0000)
canonicalize ffi decls
ghc/compiler/utils/PrimPacked.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/utils/PrimPacked.lhs
b/ghc/compiler/utils/PrimPacked.lhs
index
1a47e30
..
c3b62ed
100644
(file)
--- a/
ghc/compiler/utils/PrimPacked.lhs
+++ b/
ghc/compiler/utils/PrimPacked.lhs
@@
-238,22
+238,22
@@
eqCharStrPrefixBA a# b2# start# len# =
\begin{code}
#if __GLASGOW_HASKELL__ <= 408
strLength (Ptr a#) = ghc_strlen a#
\begin{code}
#if __GLASGOW_HASKELL__ <= 408
strLength (Ptr a#) = ghc_strlen a#
-foreign import ccall "ghc_strlen" unsafe
+foreign import ccall unsafe "ghc_strlen"
ghc_strlen :: Addr# -> Int
#else
ghc_strlen :: Addr# -> Int
#else
-foreign import ccall "ghc_strlen" unsafe
+foreign import ccall unsafe "ghc_strlen"
strLength :: Ptr () -> Int
#endif
strLength :: Ptr () -> Int
#endif
-foreign import ccall "ghc_memcmp" unsafe
+foreign import ccall unsafe "ghc_memcmp"
memcmp :: Addr# -> Addr# -> Int -> IO Int
memcmp :: Addr# -> Addr# -> Int -> IO Int
-foreign import ccall "ghc_memcmp" unsafe
+foreign import ccall unsafe "ghc_memcmp"
memcmp_ba :: Addr# -> ByteArray# -> Int -> IO Int
memcmp_ba :: Addr# -> ByteArray# -> Int -> IO Int
-foreign import ccall "ghc_memcmp_off" unsafe
+foreign import ccall unsafe "ghc_memcmp_off"
memcmp_baoff :: ByteArray# -> Int -> Addr# -> Int -> IO Int
memcmp_baoff :: ByteArray# -> Int -> Addr# -> Int -> IO Int
-foreign import ccall "ghc_memcmp_off" unsafe
+foreign import ccall unsafe "ghc_memcmp_off"
memcmp_baoff_ba :: ByteArray# -> Int -> ByteArray# -> Int -> IO Int
\end{code}
memcmp_baoff_ba :: ByteArray# -> Int -> ByteArray# -> Int -> IO Int
\end{code}