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

[Internal] add write Xor for mutable array

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-11 07:17:49 +01:00
parent b191ef461c
commit 51cdd1bcd8
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Crypto/Internal/WordArray.hs
View File

@ -27,9 +27,11 @@ module Crypto.Internal.WordArray
, arrayRead64 , arrayRead64
, mutableArrayRead32 , mutableArrayRead32
, mutableArrayWrite32 , mutableArrayWrite32
, mutableArrayWriteXor32
) where ) where
import Data.Word import Data.Word
import Data.Bits (xor)
import Crypto.Internal.Compat import Crypto.Internal.Compat
import GHC.Prim import GHC.Prim
import GHC.Types import GHC.Types
@ -109,3 +111,8 @@ mutableArrayRead32 (MutableArray32 m) (I# o) = IO $ \s -> case readWord32Array#
mutableArrayWrite32 :: MutableArray32 -> Int -> Word32 -> IO () mutableArrayWrite32 :: MutableArray32 -> Int -> Word32 -> IO ()
mutableArrayWrite32 (MutableArray32 m) (I# o) (W32# w) = IO $ \s -> let s' = writeWord32Array# m o w s in (# s', () #) mutableArrayWrite32 (MutableArray32 m) (I# o) (W32# w) = IO $ \s -> let s' = writeWord32Array# m o w s in (# s', () #)
{-# INLINE mutableArrayWrite32 #-} {-# INLINE mutableArrayWrite32 #-}
mutableArrayWriteXor32 :: MutableArray32 -> Int -> Word32 -> IO ()
mutableArrayWriteXor32 m o w =
mutableArrayRead32 m o >>= \wOld -> mutableArrayWrite32 m o (wOld `xor` w)
{-# INLINE mutableArrayWriteXor32 #-}