1
{-# LANGUAGE CPP, ForeignFunctionInterface #-}
3
module LLVM.FFI.Support
5
createStandardModulePasses
6
, createStandardFunctionPasses
9
#if __GLASGOW_HASKELL__ >= 704
10
import Foreign.C.Types (CInt(..), CUInt(..))
12
import Foreign.C.Types (CInt, CUInt)
14
import LLVM.FFI.Core (PassManagerRef)
16
foreign import ccall unsafe "LLVMCreateStandardFunctionPasses" createStandardFunctionPasses
17
:: PassManagerRef -> CUInt -> IO ()
19
foreign import ccall unsafe "LLVMCreateStandardModulePasses" createStandardModulePasses
20
:: PassManagerRef -> CUInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> IO ()