Fixes undominating relaxed loads issue

[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..5f558ffb1162ac50db5249735afcd6fa8c7087b5 100644 (file)
--- a/bindings/ocaml/linker/llvm_linker.mli
+++ b/bindings/ocaml/linker/llvm_linker.mli
@@ -14,14 +14,6 @@
 
 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. *)
-external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit
-                      = "llvm_link_modules"
\ No newline at end of file
+(** [link_modules' dst src] links [src] into [dst], raising [Error]
+    if the linking fails. The src module is destroyed. *)
+val link_modules' : Llvm.llmodule -> Llvm.llmodule -> unit
\ No newline at end of file