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