diff options
Diffstat (limited to 'test/Bindings/Ocaml/vectorize_opts.ml')
-rw-r--r-- | test/Bindings/Ocaml/vectorize_opts.ml | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/test/Bindings/Ocaml/vectorize_opts.ml b/test/Bindings/Ocaml/vectorize_opts.ml deleted file mode 100644 index 5ef985d5dc18..000000000000 --- a/test/Bindings/Ocaml/vectorize_opts.ml +++ /dev/null @@ -1,56 +0,0 @@ -(* RUN: rm -rf %t.builddir - * RUN: mkdir -p %t.builddir - * RUN: cp %s %t.builddir - * RUN: %ocamlopt -warn-error A llvm.cmxa llvm_vectorize.cmxa llvm_target.cmxa %t.builddir/vectorize_opts.ml -o %t - * RUN: %t %t.bc - * XFAIL: vg_leak - *) - -(* Note: It takes several seconds for ocamlopt to link an executable with - libLLVMCore.a, so it's better to write a big test than a bunch of - little ones. *) - -open Llvm -open Llvm_vectorize -open Llvm_target - -let context = global_context () -let void_type = Llvm.void_type context - -(* Tiny unit test framework - really just to help find which line is busted *) -let print_checkpoints = false - -let suite name f = - if print_checkpoints then - prerr_endline (name ^ ":"); - f () - - -(*===-- Fixture -----------------------------------------------------------===*) - -let filename = Sys.argv.(1) -let m = create_module context filename - - -(*===-- Transforms --------------------------------------------------------===*) - -let test_transforms () = - let (++) x f = ignore (f x); x in - - let fty = function_type void_type [| |] in - let fn = define_function "fn" fty m in - ignore (build_ret_void (builder_at_end context (entry_block fn))); - - ignore (PassManager.create () - ++ add_bb_vectorize - ++ add_loop_vectorize - ++ add_slp_vectorize - ++ PassManager.run_module m - ++ PassManager.dispose) - - -(*===-- Driver ------------------------------------------------------------===*) - -let _ = - suite "transforms" test_transforms; - dispose_module m |