1 (*===-- llvm_linker.ml - LLVM OCaml Interface ------------------*- OCaml -*-===*
3 * The LLVM Compiler Infrastructure
5 * This file is distributed under the University of Illinois Open Source
6 * License. See LICENSE.TXT for details.
8 *===----------------------------------------------------------------------===*)
10 exception Error of string
12 external register_exns : exn -> unit = "llvm_register_linker_exns"
13 let _ = register_exns (Error "")
21 external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit