Commit fabda024 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix FFI import of __hscore_memcpy_dst_off, and add a ToDo

parent 3a94db47
......@@ -605,9 +605,9 @@ hPutBU h arr@(BUArr i n arr#) =
off = sizeBU i (undefined :: e)
size = sizeBU n (undefined :: e)
--foreign import ccall unsafe "__hscore_memcpy_dst_off"
-- memcpy_baoff_ba :: RawBuffer -> Int -> RawBuffer -> CSize -> IO (Ptr ())
foreign import ccall unsafe "__hscore_memcpy_dst_off"
-- ToDo: dodgy dependency on base-package C wrapper. This should be moved
-- into the dph package.
foreign import ccall unsafe "__hscore_memcpy_src_off"
memcpy_src_off :: Ptr a -> ByteArray# -> CInt -> CSize -> IO (Ptr ())
foreign import ccall unsafe "memcpy"
......
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