Commit 1607c878 authored by simonmar's avatar simonmar
Browse files

[project @ 2006-01-10 09:47:51 by simonmar]

Fix compilation with GHC 6.2.x, hopefully
parent e0dc0bc8
...@@ -455,6 +455,7 @@ pokeCAString ptr str = ...@@ -455,6 +455,7 @@ pokeCAString ptr str =
go str 0 go str 0
#if __GLASGOW_HASKELL__ < 600 #if __GLASGOW_HASKELL__ < 600
mallocForeignPtrBytes :: Int -> IO (ForeignPtr a) mallocForeignPtrBytes :: Int -> IO (ForeignPtr a)
mallocForeignPtrBytes n = do mallocForeignPtrBytes n = do
r <- mallocBytes n r <- mallocBytes n
...@@ -464,5 +465,10 @@ foreign import ccall unsafe "stdlib.h free" ...@@ -464,5 +465,10 @@ foreign import ccall unsafe "stdlib.h free"
finalizerFree :: Ptr a -> IO () finalizerFree :: Ptr a -> IO ()
peekCAStringLen = peekCStringLen peekCAStringLen = peekCStringLen
#elif __GLASGOW_HASKELL__ <= 602
peekCAStringLen = peekCStringLen
#endif #endif
\end{code} \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