haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix integral type for older version of memcpy. fix ghc 7.4.x

Browse Source
This commit is contained in:
Vincent Hanquez 2014-11-09 14:15:14 +00:00
parent bd1c010df9
commit a98b7548b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/KDF/Scrypt.hs
View File

@ -56,7 +56,7 @@ generate params
allocaBytesAligned (128*(fromIntegral $ n params)*(r params)) 8 $ \v -> allocaBytesAligned (128*(fromIntegral $ n params)*(r params)) 8 $ \v ->
allocaBytesAligned (256*r params) 8 $ \xy -> allocaBytesAligned (256*r params) 8 $ \xy ->
withForeignPtr fptr $ \bPtr -> do withForeignPtr fptr $ \bPtr -> do
withBytePtr b $ \bOrig -> B.memcpy bPtr bOrig intLen withBytePtr b $ \bOrig -> B.memcpy bPtr bOrig (fromIntegral intLen)
forM_ [0..(p params-1)] $ \i -> forM_ [0..(p params-1)] $ \i ->
ccryptonite_scrypt_smix (bPtr `plusPtr` (i * 128 * (r params))) ccryptonite_scrypt_smix (bPtr `plusPtr` (i * 128 * (r params)))
(fromIntegral $ r params) (n params) v xy (fromIntegral $ r params) (n params) v xy