diff options
| author | Dimitry Andric <dim@FreeBSD.org> | 2015-02-25 18:25:34 +0000 |
|---|---|---|
| committer | Dimitry Andric <dim@FreeBSD.org> | 2015-02-25 18:25:34 +0000 |
| commit | b6bcb9a905dec7821221e8ceaf1504c1f329815e (patch) | |
| tree | 04d79cf27b19565c7fe5e8a5f476f91e6cde20e0 /bindings/ocaml/linker/linker_ocaml.c | |
| parent | 8af9f2019d565de6161a3ce884a16942fe2dde29 (diff) | |
Diffstat (limited to 'bindings/ocaml/linker/linker_ocaml.c')
| -rw-r--r-- | bindings/ocaml/linker/linker_ocaml.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bindings/ocaml/linker/linker_ocaml.c b/bindings/ocaml/linker/linker_ocaml.c index 3b8512aa5953..ed37777d852c 100644 --- a/bindings/ocaml/linker/linker_ocaml.c +++ b/bindings/ocaml/linker/linker_ocaml.c @@ -23,11 +23,11 @@ void llvm_raise(value Prototype, char *Message); -/* llmodule -> llmodule -> unit */ -CAMLprim value llvm_link_modules(LLVMModuleRef Dst, LLVMModuleRef Src) { +/* llmodule -> llmodule -> Mode.t -> unit */ +CAMLprim value llvm_link_modules(LLVMModuleRef Dst, LLVMModuleRef Src, value Mode) { char* Message; - if (LLVMLinkModules(Dst, Src, 0, &Message)) + if (LLVMLinkModules(Dst, Src, Int_val(Mode), &Message)) llvm_raise(*caml_named_value("Llvm_linker.Error"), Message); return Val_unit; |