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

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

import Foreign.Ptr
import Foreign.C

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

foreign import ccall unsafe "LLVMIsAGlobalValue" isAGlobalValue ::
    Ptr Value -> IO (Ptr GlobalValue)

foreign import ccall unsafe "LLVMGetLinkage" getLinkage ::
    Ptr GlobalValue -> IO Linkage

foreign import ccall unsafe "LLVMSetLinkage" setLinkage ::
    Ptr GlobalValue -> Linkage -> IO ()

foreign import ccall unsafe "LLVMGetSection" getSection ::
    Ptr GlobalValue -> IO CString

foreign import ccall unsafe "LLVMSetSection" setSection ::
    Ptr GlobalValue -> CString -> IO ()

foreign import ccall unsafe "LLVMGetVisibility" getVisibility ::
    Ptr GlobalValue -> IO Visibility

foreign import ccall unsafe "LLVMSetVisibility" setVisibility ::
    Ptr GlobalValue -> Visibility -> IO ()

foreign import ccall unsafe "LLVMGetAlignment" getAlignment ::
    Ptr GlobalValue -> IO CUInt

foreign import ccall unsafe "LLVMSetAlignment" setAlignment ::
    Ptr GlobalValue -> CUInt -> IO ()

foreign import ccall unsafe "LLVM_General_HasUnnamedAddr" hasUnnamedAddr ::
    Ptr GlobalValue -> IO LLVMBool

foreign import ccall unsafe "LLVM_General_SetUnnamedAddr" setUnnamedAddr ::
    Ptr GlobalValue -> LLVMBool -> IO ()