module Raaz.Hash.Sha512.Implementation.CPortable
( implementation, cPortable
) where
import Raaz.Core
import Raaz.Hash.Internal
import Raaz.Hash.Sha.Util
import Raaz.Hash.Sha512.Internal
implementation :: Implementation SHA512
implementation = SomeHashI cPortable
cPortable :: HashI SHA512 (HashMemory SHA512)
cPortable = portableC c_sha512_compress length128Write
foreign import ccall unsafe
"raaz/hash/sha512/portable.h raazHashSha512PortableCompress"
c_sha512_compress :: Pointer -> Int -> Pointer -> IO ()