[Haskell-cafe] Re: Array copying

2007-12-03 Thread ChrisK
Andrew Coppin wrote: > ChrisK wrote: >> For GHC 6.6 I created >> >> >>> foreign import ccall unsafe "memcpy" >>> memcpy :: MutableByteArray# RealWorld -> MutableByteArray# >>> RealWorld -> Int# -> IO () >>> >> >> >>> {-# INLINE copySTU #-} >>> copySTU :: (Show i,Ix i,MArray (STUArray s

[Haskell-cafe] Re: Array copying

2007-12-03 Thread ChrisK
Reinier Lamers wrote: > ChrisK wrote: > >> For GHC 6.6 I created >> >> >> >>> foreign import ccall unsafe "memcpy" >>>memcpy :: MutableByteArray# RealWorld -> MutableByteArray# >>> RealWorld -> Int# -> IO () >>> >> >> >> >>> {-# INLINE copySTU #-} >>> copySTU :: (Show i,Ix i,MArray (STU

Re: [Haskell-cafe] Re: Array copying

2007-12-03 Thread Reinier Lamers
ChrisK wrote: For GHC 6.6 I created foreign import ccall unsafe "memcpy" memcpy :: MutableByteArray# RealWorld -> MutableByteArray# RealWorld -> Int# -> IO () {-# INLINE copySTU #-} copySTU :: (Show i,Ix i,MArray (STUArray s) e (ST s)) => STUArray s i e -> STUArray s i e ->

Re: [Haskell-cafe] Re: Array copying

2007-12-02 Thread Andrew Coppin
ChrisK wrote: For GHC 6.6 I created foreign import ccall unsafe "memcpy" memcpy :: MutableByteArray# RealWorld -> MutableByteArray# RealWorld -> Int# -> IO () {-# INLINE copySTU #-} copySTU :: (Show i,Ix i,MArray (STUArray s) e (ST s)) => STUArray s i e -> STUArray s i e ->

[Haskell-cafe] Re: Array copying

2007-12-02 Thread ChrisK
Andrew Coppin wrote: > Andrew Coppin wrote: >> copy :: Word32 -> IOUArray Word32 Bool -> Word32 -> IO (IOUArray >> Word32 Bool) >> copy p grid size = do >> let size' = size * p >> grid' <- newArray (1,size') False >> >> mapM_ >>(\n -> do >> b <- readArray grid n >> if b >>t