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

add gmpSizeInBits

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-23 09:15:15 +01:00
parent efedb38570
commit 27dacbfb21
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Crypto/Number/Compat.hs
View File

@ -20,6 +20,7 @@ module Crypto.Number.Compat
, gmpNextPrime , gmpNextPrime
, gmpTestPrimeMillerRabin , gmpTestPrimeMillerRabin
, gmpSizeInBytes , gmpSizeInBytes
, gmpSizeInBits
, gmpExportInteger , gmpExportInteger
, gmpImportInteger , gmpImportInteger
) where ) where
@ -123,6 +124,13 @@ gmpSizeInBytes n = GmpSupported (I# (word2Int# (sizeInBaseInteger n 256#)))
gmpSizeInBytes _ = GmpUnsupported gmpSizeInBytes _ = GmpUnsupported
#endif #endif
gmpSizeInBits :: Integer -> GmpSupported Int
#if MIN_VERSION_integer_gmp(0,5,1)
gmpSizeInBits n = GmpSupported (I# (word2Int# (sizeInBaseInteger n 2#)))
#else
gmpSizeInBits _ = GmpUnsupported
#endif
-- | Export an integer to a memory -- | Export an integer to a memory
gmpExportInteger :: Integer -> Ptr Word8 -> GmpSupported (IO ()) gmpExportInteger :: Integer -> Ptr Word8 -> GmpSupported (IO ())
#if MIN_VERSION_integer_gmp(1,0,0) #if MIN_VERSION_integer_gmp(1,0,0)