diff options
author | Torok Edwin <edwintorok@gmail.com> | 2011-10-03 06:41:46 +0000 |
---|---|---|
committer | Torok Edwin <edwintorok@gmail.com> | 2011-10-03 06:41:46 +0000 |
commit | 48488a64fadb2f99706029e51ae4c06fcfac5cdb (patch) | |
tree | c60f5c57a1d50b22acfb0336a3d2663a499bd39f /bindings/ocaml/llvm/llvm.ml | |
parent | 4fcc80a486300021d320aec8cd125022ef701e5b (diff) | |
download | llvm-48488a64fadb2f99706029e51ae4c06fcfac5cdb.tar.gz llvm-48488a64fadb2f99706029e51ae4c06fcfac5cdb.tar.bz2 llvm-48488a64fadb2f99706029e51ae4c06fcfac5cdb.tar.xz |
attempt to fix ocaml bindings: landing pads
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@140991 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm.ml')
-rw-r--r-- | bindings/ocaml/llvm/llvm.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml index 7786d8c48d..e335eb8d39 100644 --- a/bindings/ocaml/llvm/llvm.ml +++ b/bindings/ocaml/llvm/llvm.ml @@ -820,6 +820,9 @@ external add_destination : llvalue -> llbasicblock -> unit external build_invoke : llvalue -> llvalue array -> llbasicblock -> llbasicblock -> string -> llbuilder -> llvalue = "llvm_build_invoke_bc" "llvm_build_invoke_nat" +external build_landingpad : lltype -> llvalue -> int -> string -> llbuilder -> + llvalue = "llvm_build_landingpad" +external set_cleanup : llvalue -> bool -> unit = "llvm_set_cleanup" external build_unreachable : llbuilder -> llvalue = "llvm_build_unreachable" (*--... Arithmetic .........................................................--*) |