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