Ticket #4827: 4827-array.dpatch

1 patch for repository darcs.haskell.org:/srv/darcs/packages/array:

Fri Apr  1 12:59:48 BST 2011  Max Bolingbroke <batterseapower@hotmail.com>
  * Use count argument in hPutArray/hGetArray. Fixes #4827

New patches:

[Use count argument in hPutArray/hGetArray. Fixes #4827
Max Bolingbroke <batterseapower@hotmail.com>**20110401115948
 Ignore-this: 6523a13b28fc6ea3d89ebfaaf5f8651c
] {
hunk ./Data/Array/IO.hs 77
       -- we would like to read directly into the buffer, but we can't
       -- be sure that the MutableByteArray# is pinned, so we have to
       -- allocate a separate area of memory and copy.
-      allocaBytes n $ \p -> do
-        r <- hGetBuf handle p n
+      allocaBytes count $ \p -> do
+        r <- hGetBuf handle p count
         memcpy_ba_ptr ptr p (fromIntegral r)
         return r
 
hunk ./Data/Array/IO.hs 101
   | otherwise = do
       -- as in hGetArray, we would like to use the array directly, but
       -- we can't be sure that the MutableByteArray# is pinned.
-     allocaBytes n $ \p -> do
-       memcpy_ptr_ba p raw (fromIntegral n)
-       hPutBuf handle p n
+     allocaBytes count $ \p -> do
+       memcpy_ptr_ba p raw (fromIntegral count)
+       hPutBuf handle p count
 
 foreign import ccall unsafe "memcpy"
    memcpy_ptr_ba :: Ptr a -> MutableByteArray# RealWorld -> CSize -> IO (Ptr ())
}

Context:

[TAG git migration
Ian Lynagh <igloo@earth.li>**20110331135042
 Ignore-this: 6f8ed34cbc3a330f1424783a290565ce
] 
Patch bundle hash:
24b1824dfc0df991d5855aae8c6bf119e7568c28