diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2014-05-01 21:00:52 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2014-05-01 21:00:52 +0000 |
| commit | 53e72030fd9308f5c77485e7aa9a22ed4bb1fa07 (patch) | |
| tree | 1907665cab75f3efc6be824ebc77c5596393ecee /bindings/ocaml/all_backends | |
| parent | c02fc3d30dca21deb167f15418d238e1033d62eb (diff) | |
| download | llvm-53e72030fd9308f5c77485e7aa9a22ed4bb1fa07.tar.gz llvm-53e72030fd9308f5c77485e7aa9a22ed4bb1fa07.tar.bz2 llvm-53e72030fd9308f5c77485e7aa9a22ed4bb1fa07.tar.xz | |
[OCaml] Add an ocamlfind package llvm.all_backends.
This package is useful for architecture-independent tools like llc.
Patch by Jacques-Pascal Deplaix.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@207793 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/all_backends')
| -rw-r--r-- | bindings/ocaml/all_backends/Makefile | 21 | ||||
| -rw-r--r-- | bindings/ocaml/all_backends/all_backends_ocaml.c | 32 | ||||
| -rw-r--r-- | bindings/ocaml/all_backends/llvm_all_backends.ml | 10 | ||||
| -rw-r--r-- | bindings/ocaml/all_backends/llvm_all_backends.mli | 11 |
4 files changed, 74 insertions, 0 deletions
diff --git a/bindings/ocaml/all_backends/Makefile b/bindings/ocaml/all_backends/Makefile new file mode 100644 index 0000000000..a5ff290fe7 --- /dev/null +++ b/bindings/ocaml/all_backends/Makefile @@ -0,0 +1,21 @@ +##===- bindings/ocaml/all_backends/Makefile ----------------------*- Makefile -*-===## +# +# The LLVM Compiler Infrastructure +# +# This file is distributed under the University of Illinois Open Source +# License. See LICENSE.TXT for details. +# +##===----------------------------------------------------------------------===## +# +# This is the makefile for the Objective Caml Llvm_backends interface. +# +##===----------------------------------------------------------------------===## + +LEVEL := ../../.. +include $(LEVEL)/Makefile.config + +LIBRARYNAME := llvm_all_backends +UsedComponents := $(TARGETS_TO_BUILD) +UsedOcamlInterfaces := + +include ../Makefile.ocaml diff --git a/bindings/ocaml/all_backends/all_backends_ocaml.c b/bindings/ocaml/all_backends/all_backends_ocaml.c new file mode 100644 index 0000000000..8fe7d9b5d5 --- /dev/null +++ b/bindings/ocaml/all_backends/all_backends_ocaml.c @@ -0,0 +1,32 @@ +/*===-- all_backends_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/fail.h" +#include "caml/memory.h" +#include "caml/custom.h" + +/* unit -> unit */ +CAMLprim value llvm_initialize_all(value Unit) { + LLVMInitializeAllTargetInfos(); + LLVMInitializeAllTargets(); + LLVMInitializeAllTargetMCs(); + LLVMInitializeAllAsmPrinters(); + LLVMInitializeAllAsmParsers(); + return Val_unit; +} diff --git a/bindings/ocaml/all_backends/llvm_all_backends.ml b/bindings/ocaml/all_backends/llvm_all_backends.ml new file mode 100644 index 0000000000..f4f4725707 --- /dev/null +++ b/bindings/ocaml/all_backends/llvm_all_backends.ml @@ -0,0 +1,10 @@ +(*===-- llvm_all_backends.ml - LLVM OCaml Interface -----------*- OCaml -*-===* + * + * The LLVM Compiler Infrastructure + * + * This file is distributed under the University of Illinois Open Source + * License. See LICENSE.TXT for details. + * + *===----------------------------------------------------------------------===*) + +external initialize : unit -> unit = "llvm_initialize_all" diff --git a/bindings/ocaml/all_backends/llvm_all_backends.mli b/bindings/ocaml/all_backends/llvm_all_backends.mli new file mode 100644 index 0000000000..1808544706 --- /dev/null +++ b/bindings/ocaml/all_backends/llvm_all_backends.mli @@ -0,0 +1,11 @@ +(*===-- llvm_all_backends.mli - LLVM OCaml Interface ----------*- OCaml -*-===* + * + * The LLVM Compiler Infrastructure + * + * This file is distributed under the University of Illinois Open Source + * License. See LICENSE.TXT for details. + * + *===----------------------------------------------------------------------===*) + +(** Initialize all the backends targets *) +val initialize : unit -> unit |