diff options
| author | Peter Collingbourne <peter@pcc.me.uk> | 2011-08-10 01:10:17 +0000 |
|---|---|---|
| committer | Peter Collingbourne <peter@pcc.me.uk> | 2011-08-10 01:10:17 +0000 |
| commit | e1686b08e4b9c570197633afc09f4fe32d664f0d (patch) | |
| tree | de769021b2074093dc65c2ca17dddf40458f8173 | |
| parent | 59c1ba96ba99cf07647073c672fd9f2e5f571bc8 (diff) | |
| download | llvm-e1686b08e4b9c570197633afc09f4fe32d664f0d.tar.gz llvm-e1686b08e4b9c570197633afc09f4fe32d664f0d.tar.bz2 llvm-e1686b08e4b9c570197633afc09f4fe32d664f0d.tar.xz | |
Remove the build_unwind function from the OCaml bindings.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@137193 91177308-0d34-0410-b5e6-96231b3b80d8
| -rw-r--r-- | bindings/ocaml/llvm/llvm.ml | 1 | ||||
| -rw-r--r-- | bindings/ocaml/llvm/llvm.mli | 6 | ||||
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 5 | ||||
| -rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 8 |
4 files changed, 0 insertions, 20 deletions
diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml index a62ba37707..7786d8c48d 100644 --- a/bindings/ocaml/llvm/llvm.ml +++ b/bindings/ocaml/llvm/llvm.ml @@ -820,7 +820,6 @@ 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_unwind : llbuilder -> llvalue = "llvm_build_unwind" external build_unreachable : llbuilder -> llvalue = "llvm_build_unreachable" (*--... Arithmetic .........................................................--*) diff --git a/bindings/ocaml/llvm/llvm.mli b/bindings/ocaml/llvm/llvm.mli index 44f345f1b0..24621486f4 100644 --- a/bindings/ocaml/llvm/llvm.mli +++ b/bindings/ocaml/llvm/llvm.mli @@ -1616,12 +1616,6 @@ val build_invoke : llvalue -> llvalue array -> llbasicblock -> llbasicblock -> string -> llbuilder -> llvalue -(** [build_unwind b] creates an - [unwind] - instruction at the position specified by the instruction builder [b]. - See the method [llvm::LLVMBuilder::CreateUnwind]. *) -val build_unwind : llbuilder -> llvalue - (** [build_unreachable b] creates an [unreachable] instruction at the position specified by the instruction builder [b]. diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 455e191d52..4baf99b4b1 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -1213,11 +1213,6 @@ CAMLprim LLVMValueRef llvm_build_invoke_bc(value Args[], int NumArgs) { } /* llbuilder -> llvalue */ -CAMLprim LLVMValueRef llvm_build_unwind(value B) { - return LLVMBuildUnwind(Builder_val(B)); -} - -/* llbuilder -> llvalue */ CAMLprim LLVMValueRef llvm_build_unreachable(value B) { return LLVMBuildUnreachable(Builder_val(B)); } diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index bff04a16bb..fa60398044 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -898,14 +898,6 @@ let test_builder () = ignore (build_invoke fn [| p1; p2 |] bb04 bb00 "build_invoke" b) end; - group "unwind"; begin - (* RUN: grep {unwind} < %t.ll - *) - let bb05 = append_block context "Bb05" fn in - let b = builder_at_end context bb05 in - ignore (build_unwind b) - end; - group "unreachable"; begin (* RUN: grep {unreachable} < %t.ll *) |