Follow changes in primitive
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 28 Aug 2011 10:45:27 +0000 (10:45 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 28 Aug 2011 10:45:27 +0000 (10:45 +0000)
Data/Vector.hs
Data/Vector/Mutable.hs
Data/Vector/Primitive.hs
Data/Vector/Primitive/Mutable.hs

index 439e88b..a628871 100644 (file)
@@ -227,7 +227,7 @@ instance G.Vector Vector a where
 
   {-# INLINE basicUnsafeCopy #-}
   basicUnsafeCopy (MVector i n dst) (Vector j _ src)
-    = copyArray src j dst i n
+    = copyArray dst i src j n
 
 -- See http://trac.haskell.org/vector/ticket/12
 instance Eq a => Eq (Vector a) where
index e3514fa..cc35edb 100644 (file)
@@ -104,7 +104,7 @@ instance G.MVector MVector a where
 
   {-# INLINE basicUnsafeCopy #-}
   basicUnsafeCopy (MVector i n dst) (MVector j _ src)
-    = copyMutableArray src j dst i n
+    = copyMutableArray dst i src j n
   
   basicUnsafeMove dst@(MVector iDst n arrDst) src@(MVector iSrc _ arrSrc)
     = case n of
index d76479d..1fe3677 100644 (file)
@@ -209,7 +209,7 @@ instance Prim a => G.Vector Vector a where
 
   {-# INLINE basicUnsafeCopy #-}
   basicUnsafeCopy (MVector i n dst) (Vector j _ src)
-    = copyByteArray src (j*sz) dst (i*sz) (n*sz)
+    = copyByteArray dst (i*sz) src (j*sz) (n*sz)
     where
       sz = sizeOf (undefined :: a)
 
index 2e769e0..447e315 100644 (file)
@@ -95,13 +95,13 @@ instance Prim a => G.MVector MVector a where
 
   {-# INLINE basicUnsafeCopy #-}
   basicUnsafeCopy (MVector i n dst) (MVector j _ src)
-    = copyMutableByteArray src (j*sz) dst (i*sz) (n*sz)
+    = copyMutableByteArray dst (i*sz) src (j*sz) (n*sz)
     where
       sz = sizeOf (undefined :: a)
   
   {-# INLINE basicUnsafeMove #-}
   basicUnsafeMove (MVector i n dst) (MVector j _ src)
-    = moveByteArray src (j*sz) dst (i*sz) (n * sz)
+    = moveByteArray dst (i*sz) src (j*sz) (n * sz)
     where
       sz = sizeOf (undefined :: a)