diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2013-11-14 06:34:21 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-14 06:34:21 +0000 |
| commit | 2bdf881ee403c0493acdb3253bc697f3bd914cca (patch) | |
| tree | 12257ea158a8ec31b4af2f2fbfa19b32f7fce5c4 /bindings/ocaml/backends/backend_ocaml.c | |
| parent | a69773cead6dea09ade34342eafacf848ec41367 (diff) | |
| download | llvm-2bdf881ee403c0493acdb3253bc697f3bd914cca.tar.gz llvm-2bdf881ee403c0493acdb3253bc697f3bd914cca.tar.bz2 llvm-2bdf881ee403c0493acdb3253bc697f3bd914cca.tar.xz | |
[OCaml] Build stub OCaml libraries for all configured targets
This allows to only link in the needed targets, reducing binary
size and more importantly link time.
Note that this is an incomplete implementation: currently,
LLVM does not have the plumbing which would allow to conditionally
link in AsmPrinter, AsmParser and Disassembler for the targets
which support them. This should be improved in the future.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194670 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/backends/backend_ocaml.c')
| -rw-r--r-- | bindings/ocaml/backends/backend_ocaml.c | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/bindings/ocaml/backends/backend_ocaml.c b/bindings/ocaml/backends/backend_ocaml.c new file mode 100644 index 0000000000..fd6d06d90f --- /dev/null +++ b/bindings/ocaml/backends/backend_ocaml.c @@ -0,0 +1,37 @@ +/*===-- backend_ocaml.c - LLVM OCaml Glue -----------------------*- C++ -*-===*\ +|* *| +|* The LLVM Compiler Infrastructure *| +|* *| +|* This file is distributed under the University of Illinois Open Source *| +|* License. See LICENSE.TXT for details. *| +|* *| +|*===----------------------------------------------------------------------===*| +|* *| +|* This file glues LLVM's OCaml interface to its C interface. These functions *| +|* are by and large transparent wrappers to the corresponding C functions. *| +|* *| +|* Note that these functions intentionally take liberties with the CAMLparamX *| +|* macros, since most of the parameters are not GC heap objects. *| +|* *| +\*===----------------------------------------------------------------------===*/ + +#include "llvm-c/Target.h" +#include "caml/alloc.h" +#include "caml/memory.h" + +#define INITIALIZER1(target) \ + CAMLprim value llvm_initialize_ ## target(value Unit) { \ + LLVMInitialize ## target ## TargetInfo(); \ + LLVMInitialize ## target ## Target(); \ + LLVMInitialize ## target ## TargetMC(); \ + // TODO: Figure out how to call these only for targets \ + // which support them. \ + // LLVMInitialize ## target ## AsmPrinter(); \ + // LLVMInitialize ## target ## AsmParser(); \ + // LLVMInitialize ## target ## Disassembler(); \ + return Val_unit; \ + } + +#define INITIALIZER(target) INITIALIZER1(target) + +INITIALIZER(TARGET) |