fix FFI import of __hscore_memcpy_dst_off, and add a ToDo 2009-06-25
authorSimon Marlow <marlowsd@gmail.com>
Thu, 18 Jun 2009 11:25:41 +0000 (11:25 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 18 Jun 2009 11:25:41 +0000 (11:25 +0000)
dph-base/Data/Array/Parallel/Arr/BUArr.hs

index 25a9a39..d01600e 100644 (file)
@@ -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"