Home | History | Annotate | Download | only in linker 
      1 (*===-- llvm_linker.ml - LLVM OCaml Interface ------------------*- OCaml -*-===*
      2  *
      3  *                     The LLVM Compiler Infrastructure
      4  *
      5  * This file is distributed under the University of Illinois Open Source
      6  * License. See LICENSE.TXT for details.
      7  *
      8  *===----------------------------------------------------------------------===*)
      9 
     10 exception Error of string
     11 
     12 external register_exns : exn -> unit = "llvm_register_linker_exns"
     13 let _ = register_exns (Error "")
     14 
     15 module Mode = struct
     16   type t =
     17   | DestroySource
     18   | PreserveSource
     19 end
     20 
     21 external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit
     22                       = "llvm_link_modules"