{-# LINE 1 "src/Data/Number/Flint/Flint/External/GMP/FFI.hsc" #-}
module Data.Number.Flint.Flint.External.GMP.FFI where
import Data.Int
import Data.Word
import Foreign.ForeignPtr
import Foreign.C.Types
import Foreign.Storable
import Data.Number.Flint.Flint.Internal
type CMpLimb = Word64
{-# LINE 24 "src/Data/Number/Flint/Flint/External/GMP/FFI.hsc" #-}
type CMpSLimb = Int64
{-# LINE 25 "src/Data/Number/Flint/Flint/External/GMP/FFI.hsc" #-}
type CMpSize = Int64
{-# LINE 26 "src/Data/Number/Flint/Flint/External/GMP/FFI.hsc" #-}
type CMpBitCnt = Word64
{-# LINE 27 "src/Data/Number/Flint/Flint/External/GMP/FFI.hsc" #-}
data Mp = CMp {-# UNPACK #-} !(ForeignPtr CMp)
type CMp = CFlint Mp
data Mpz = CMpz {-# UNPACK #-} !(ForeignPtr CMpz)
type CMpz = CFlint Mpz
data Mpq = CMpq {-# UNPACK #-} !(ForeignPtr CMpq)
type CMpq = CFlint Mpq
data Mpf = CMpf {-# UNPACK #-} !(ForeignPtr CMpf)
type CMpf = CFlint Mpf
data GmpRandstate = GmpRandstate {-# UNPACK #-} !(ForeignPtr CGmpRandstate)
type CGmpRandstate = CFlint GmpRandstate
instance Storable CMpf where
{-# INLINE sizeOf #-}
sizeOf :: CMpf -> Int
sizeOf CMpf
_ = (Int
24)
{-# LINE 51 "src/Data/Number/Flint/Flint/External/GMP/FFI.hsc" #-}
{-# INLINE alignment #-}
alignment :: CMpf -> Int
alignment CMpf
_ = Int
8
{-# LINE 53 "src/Data/Number/Flint/Flint/External/GMP/FFI.hsc" #-}
peek = undefined
poke :: Ptr CMpf -> CMpf -> IO ()
poke = Ptr CMpf -> CMpf -> IO ()
forall a. HasCallStack => a
undefined