RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2025-01-31 12:41:49 +01:00
Code Issues Projects Releases Wiki Activity

Try to fix ocaml bindings.

Browse Source 
llvm-svn: 116021
This commit is contained in:
Eric Christopher 2010-10-08 00:36:21 +00:00
parent df2ff926a6
commit 4d10241635
3 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bindings/ocaml/transforms/scalar/llvm_scalar_opts.ml
View File

@ -39,9 +39,6 @@ external add_loop_unroll : [<Llvm.PassManager.any] Llvm.PassManager.t
external add_loop_rotation : [<Llvm.PassManager.any] Llvm.PassManager.t external add_loop_rotation : [<Llvm.PassManager.any] Llvm.PassManager.t
-> unit -> unit
= "llvm_add_loop_rotation" = "llvm_add_loop_rotation"
external add_loop_index_split : [<Llvm.PassManager.any] Llvm.PassManager.t
-> unit
= "llvm_add_loop_index_split"
external external
add_memory_to_register_promotion : [<Llvm.PassManager.any] Llvm.PassManager.t add_memory_to_register_promotion : [<Llvm.PassManager.any] Llvm.PassManager.t
-> unit -> unit

5
bindings/ocaml/transforms/scalar/llvm_scalar_opts.mli
View File

@ -66,11 +66,6 @@ external add_loop_rotation : [<Llvm.PassManager.any] Llvm.PassManager.t
-> unit -> unit
= "llvm_add_loop_rotation" = "llvm_add_loop_rotation"
(** See the [llvm::createLoopIndexSplitPass] function. *)
external add_loop_index_split : [<Llvm.PassManager.any] Llvm.PassManager.t
-> unit
= "llvm_add_loop_index_split"
(** See the [llvm::createPromoteMemoryToRegisterPass] function. *) (** See the [llvm::createPromoteMemoryToRegisterPass] function. *)
external external
add_memory_to_register_promotion : [<Llvm.PassManager.any] Llvm.PassManager.t add_memory_to_register_promotion : [<Llvm.PassManager.any] Llvm.PassManager.t

6
bindings/ocaml/transforms/scalar/scalar_opts_ocaml.c
View File

@ -85,12 +85,6 @@ CAMLprim value llvm_add_loop_rotation(LLVMPassManagerRef PM) {
return Val_unit; return Val_unit;
} }
/* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
CAMLprim value llvm_add_loop_index_split(LLVMPassManagerRef PM) {
LLVMAddLoopIndexSplitPass(PM);
return Val_unit;
}
/* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */ /* [<Llvm.PassManager.any] Llvm.PassManager.t -> unit */
CAMLprim value llvm_add_memory_to_register_promotion(LLVMPassManagerRef PM) { CAMLprim value llvm_add_memory_to_register_promotion(LLVMPassManagerRef PM) {
LLVMAddPromoteMemoryToRegisterPass(PM); LLVMAddPromoteMemoryToRegisterPass(PM);