{-# LANGUAGE
  ForeignFunctionInterface,
  EmptyDataDecls,
  MultiParamTypeClasses,
  FlexibleInstances,
  UndecidableInstances,
  OverlappingInstances
  #-}

-- | FFI functions for handling the LLVM GlobalVariable class
module LLVM.General.Internal.FFI.GlobalVariable where

import Foreign.Ptr
import Foreign.C

import LLVM.General.Internal.FFI.PtrHierarchy
import LLVM.General.Internal.FFI.LLVMCTypes

foreign import ccall unsafe "LLVMIsAGlobalVariable" isAGlobalVariable ::
    Ptr Value -> IO (Ptr GlobalVariable)

foreign import ccall unsafe "LLVMIsGlobalConstant" isGlobalConstant ::
    Ptr GlobalVariable -> IO LLVMBool

foreign import ccall unsafe "LLVMSetGlobalConstant" setGlobalConstant ::
    Ptr GlobalVariable -> LLVMBool -> IO ()

foreign import ccall unsafe "LLVMGetInitializer" getInitializer ::
    Ptr GlobalVariable -> IO (Ptr Constant)

foreign import ccall unsafe "LLVMSetInitializer" setInitializer ::
    Ptr GlobalVariable -> Ptr Constant -> IO ()

foreign import ccall unsafe "LLVMIsThreadLocal" isThreadLocal ::
    Ptr GlobalVariable -> IO LLVMBool

foreign import ccall unsafe "LLVMSetThreadLocal" setThreadLocal ::
    Ptr GlobalVariable -> LLVMBool -> IO ()