summaryrefslogtreecommitdiff
path: root/bindings/ocaml/all_backends/all_backends_ocaml.c
diff options
context:
space:
mode:
authorPeter Zotov <whitequark@whitequark.org>2014-05-01 21:00:52 +0000
committerPeter Zotov <whitequark@whitequark.org>2014-05-01 21:00:52 +0000
commit53e72030fd9308f5c77485e7aa9a22ed4bb1fa07 (patch)
tree1907665cab75f3efc6be824ebc77c5596393ecee /bindings/ocaml/all_backends/all_backends_ocaml.c
parentc02fc3d30dca21deb167f15418d238e1033d62eb (diff)
downloadllvm-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/all_backends_ocaml.c')
-rw-r--r--bindings/ocaml/all_backends/all_backends_ocaml.c32
1 files changed, 32 insertions, 0 deletions
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;
+}