projects
/
oota-llvm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revert "Update LLVM bindings after r239940. ..."
[oota-llvm.git]
/
bindings
/
ocaml
/
llvm
/
llvm_ocaml.c
diff --git
a/bindings/ocaml/llvm/llvm_ocaml.c
b/bindings/ocaml/llvm/llvm_ocaml.c
index 26835d0155997a0dcd8610a55b5150f20d08dfd0..3889f9276ccd26b54d668e185842bf455c665f15 100644
(file)
--- a/
bindings/ocaml/llvm/llvm_ocaml.c
+++ b/
bindings/ocaml/llvm/llvm_ocaml.c
@@
-1745,7
+1745,7
@@
CAMLprim LLVMValueRef llvm_build_invoke_bc(value Args[], int NumArgs) {
CAMLprim LLVMValueRef llvm_build_landingpad(LLVMTypeRef Ty, LLVMValueRef PersFn,
value NumClauses, value Name,
value B) {
CAMLprim LLVMValueRef llvm_build_landingpad(LLVMTypeRef Ty, LLVMValueRef PersFn,
value NumClauses, value Name,
value B) {
- return LLVMBuildLandingPad(Builder_val(B), Ty, Int_val(NumClauses),
+ return LLVMBuildLandingPad(Builder_val(B), Ty,
PersFn,
Int_val(NumClauses),
String_val(Name));
}
String_val(Name));
}