From fabda024ea08e7cd3ce3ef26462acda7753bf3b7 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 18 Jun 2009 11:25:41 +0000
Subject: [PATCH] fix FFI import of __hscore_memcpy_dst_off, and add a ToDo
---
dph-base/Data/Array/Parallel/Arr/BUArr.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/dph-base/Data/Array/Parallel/Arr/BUArr.hs b/dph-base/Data/Array/Parallel/Arr/BUArr.hs
index 25a9a396..d01600e3 100644
--- a/dph-base/Data/Array/Parallel/Arr/BUArr.hs
+++ b/dph-base/Data/Array/Parallel/Arr/BUArr.hs
@@ -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"
--
GitLab