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 10exception Error of string 11 12external register_exns : exn -> unit = "llvm_register_linker_exns" 13let _ = register_exns (Error "") 14 15module Mode = struct 16 type t = 17 | DestroySource 18 | PreserveSource 19end 20 21external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit 22 = "llvm_link_modules"