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

[Internal] Add a function to create a initialized to 0 bytearray

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-18 06:52:57 +01:00
parent 09365a745f
commit 38b7f6ad73
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/Internal/ByteArray.hs
View File

@ -16,6 +16,7 @@ module Crypto.Internal.ByteArray
, byteArrayAlloc
, byteArrayAllocAndFreeze
, empty
, byteArrayZero
, byteArrayCopy
, byteArrayCopyRet
, byteArrayCopyAndFreeze
@ -39,7 +40,7 @@ import Data.SecureMem
import Crypto.Internal.Memory
import Crypto.Internal.Compat
import Crypto.Internal.Endian
import Crypto.Internal.Bytes (bufXor, bufCopy)
import Crypto.Internal.Bytes (bufXor, bufCopy, bufSet)
import Crypto.Internal.Words
import Foreign.Ptr
import Foreign.Storable
@ -147,6 +148,9 @@ byteArrayCopyAndFreeze bs f =
withByteArray bs $ \s -> bufCopy d s (byteArrayLength bs)
f (castPtr d)
byteArrayZero :: ByteArray ba => Int -> ba
byteArrayZero n = byteArrayAllocAndFreeze n $ \ptr -> bufSet ptr 0 n
byteArrayEq :: (ByteArrayAccess bs1, ByteArrayAccess bs2) => bs1 -> bs2 -> Bool
byteArrayEq b1 b2
| l1 /= l2 = False