module LLVM.Util.Memory (
    memcpy,
    ) where

import qualified LLVM.Core.Instructive as LLVM

import Control.Monad (void)


memcpy ::
   IO
      (LLVM.Value Bool ->
       LLVM.Value Bool ->
       LLVM.Value Bool ->
       LLVM.Value Bool ->
       LLVM.Value Bool ->
       LLVM.CodeGenFunction r ())
memcpy =
   fmap
      (\f dest src len align volatile ->
          void $
             LLVM.call
                (f :: LLVM.Function (Bool -> Bool -> Bool -> Bool -> Bool -> IO ()))
                dest src len align volatile)
      LLVM.newFunction