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 let () = Callback.register_exception "Llvm_linker.Error" (Error "") 13 14 external link_modules' : Llvm.llmodule -> Llvm.llmodule -> unit 15 = "llvm_link_modules" 16