1 /*===-- linker_ocaml.c - LLVM Ocaml Glue ------------------------*- C++ -*-===*\
3 |* The LLVM Compiler Infrastructure *|
5 |* This file is distributed under the University of Illinois Open Source *|
6 |* License. See LICENSE.TXT for details. *|
8 |*===----------------------------------------------------------------------===*|
10 |* This file glues LLVM's OCaml interface to its C interface. These functions *|
11 |* are by and large transparent wrappers to the corresponding C functions. *|
13 |* Note that these functions intentionally take liberties with the CAMLparamX *|
14 |* macros, since most of the parameters are not GC heap objects. *|
16 \*===----------------------------------------------------------------------===*/
18 #include "llvm-c/Linker.h"
19 #include "caml/alloc.h"
20 #include "caml/memory.h"
21 #include "caml/fail.h"
23 static value llvm_linker_error_exn;
25 CAMLprim value llvm_register_linker_exns(value Error) {
26 llvm_linker_error_exn = Field(Error, 0);
27 register_global_root(&llvm_linker_error_exn);
31 static void llvm_raise(value Prototype, char *Message) {
32 CAMLparam1(Prototype);
33 CAMLlocal1(CamlMessage);
35 CamlMessage = copy_string(Message);
36 LLVMDisposeMessage(Message);
38 raise_with_arg(Prototype, CamlMessage);
39 abort(); /* NOTREACHED */
41 CAMLnoreturn; /* Silences warnings, but is missing in some versions. */
45 /* llmodule -> llmodule -> Mode.t -> unit
46 raises Error msg on error */
47 CAMLprim value llvm_link_modules(LLVMModuleRef Dst, LLVMModuleRef Src, value Mode) {
50 if (LLVMLinkModules(Dst, Src, Int_val(Mode), &Message))
51 llvm_raise(llvm_linker_error_exn, Message);