6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-13 20:32:21 +00:00
Code Issues Projects Releases Wiki Activity

Remove the build_unwind function from the OCaml bindings.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@137193 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Collingbourne 2011-08-10 01:10:17 +00:00
parent 59c1ba96ba
commit e1686b08e4
4 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
bindings/ocaml/llvm/llvm.ml
View File

@ -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 .........................................................--*)

6
bindings/ocaml/llvm/llvm.mli
View File

@ -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].

5
bindings/ocaml/llvm/llvm_ocaml.c
View File

@ -1212,11 +1212,6 @@ CAMLprim LLVMValueRef llvm_build_invoke_bc(value Args[], int NumArgs) {
Args[4], Args[5]);
}
/* 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));

8
test/Bindings/Ocaml/vmcore.ml
View File

@ -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
*)