dph-prim-seq: alloc correctly sized ints
authorBen Lippmeier <benl@ouroborus.net>
Mon, 12 Dec 2011 03:16:06 +0000 (14:16 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Mon, 12 Dec 2011 03:16:06 +0000 (14:16 +1100)
dph-prim-seq/Data/Array/Parallel/Unlifted/Vectors.hs

index 5e62cec..c00fa97 100644 (file)
@@ -77,11 +77,11 @@ singleton vec
  $ do   R.MVector start len mbaData <- R.unsafeThaw $ G.convert vec
         baData  <- P.unsafeFreezeByteArray mbaData
         
-        mbaStarts       <- P.newByteArray 4
+        mbaStarts       <- P.newByteArray (P.sizeOf (undefined :: Int))
         P.writeByteArray mbaStarts 0 start
         baStarts        <- P.unsafeFreezeByteArray mbaStarts
         
-        mbaLengths      <- P.newByteArray 4
+        mbaLengths      <- P.newByteArray (P.sizeOf (undefined :: Int))
         P.writeByteArray mbaLengths 0 len
         baLengths       <- P.unsafeFreezeByteArray mbaLengths