projects
/
oota-llvm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[OCaml] Expose Llvm_target.TargetMachine.add_analysis_passes.
[oota-llvm.git]
/
bindings
/
ocaml
/
target
/
target_ocaml.c
diff --git
a/bindings/ocaml/target/target_ocaml.c
b/bindings/ocaml/target/target_ocaml.c
index fea3eff174ae62b8d58949793836ea023e87c7c6..efb5d9bd51e55fd8620059b6dc46c6fc2452d6b8 100644
(file)
--- a/
bindings/ocaml/target/target_ocaml.c
+++ b/
bindings/ocaml/target/target_ocaml.c
@@
-374,3
+374,10
@@
CAMLprim LLVMMemoryBufferRef llvm_targetmachine_emit_to_memory_buffer(
return Buffer;
}
+
+/* TargetMachine.t -> Llvm.PassManager.t -> unit */
+CAMLprim value llvm_targetmachine_add_analysis_passes(LLVMPassManagerRef PM,
+ value Machine) {
+ LLVMAddAnalysisPasses(TargetMachine_val(Machine), PM);
+ return Val_unit;
+}