Restore LLVMLinkModules C API until it is properly deprecated.

[oota-llvm.git] / bindings / ocaml / linker / llvm_linker.mli

diff --git a/bindings/ocaml/linker/llvm_linker.mli b/bindings/ocaml/linker/llvm_linker.mli
index 9752b65e4b205b8257ed14e02db639c52ce2064b..06c3b92a577e9d34b1dfb4fc429ee5230bf0250d 100644 (file)
--- a/bindings/ocaml/linker/llvm_linker.mli
+++ b/bindings/ocaml/linker/llvm_linker.mli
@@ -14,14 +14,6 @@
 
 exception Error of string
 
 
 exception Error of string
 

-(** Linking mode. *)
-module Mode : sig
-  type t =
-  | DestroySource
-  | PreserveSource
-end
-

 (** [link_modules dst src mode] links [src] into [dst], raising [Error]
     if the linking fails. *)
 (** [link_modules dst src mode] links [src] into [dst], raising [Error]
     if the linking fails. *)

-external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit
-                      = "llvm_link_modules"
\ No newline at end of file
+val link_modules : Llvm.llmodule -> Llvm.llmodule -> unit
\ No newline at end of file