diff options
author | Peter Zotov <whitequark@whitequark.org> | 2014-06-09 18:28:47 +0000 |
---|---|---|
committer | Peter Zotov <whitequark@whitequark.org> | 2014-06-09 18:28:47 +0000 |
commit | 7ffad46ea7edc8a6fa6fd7555c08387faacb8594 (patch) | |
tree | ee3fcf4581b0da4590f1662fa2cc2cc32c8dff64 /test/Bindings | |
parent | 08e709589dfe0f2ae5d43c3b0df454f8301ce74a (diff) | |
download | llvm-7ffad46ea7edc8a6fa6fd7555c08387faacb8594.tar.gz llvm-7ffad46ea7edc8a6fa6fd7555c08387faacb8594.tar.bz2 llvm-7ffad46ea7edc8a6fa6fd7555c08387faacb8594.tar.xz |
[OCaml] Add more Llvm_target tests
Patch by Jacques-Pascal Deplaix
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@210482 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
-rw-r--r-- | test/Bindings/Ocaml/target.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/Bindings/Ocaml/target.ml b/test/Bindings/Ocaml/target.ml index 26cd12939d..0a2283aa3e 100644 --- a/test/Bindings/Ocaml/target.ml +++ b/test/Bindings/Ocaml/target.ml @@ -46,7 +46,7 @@ let test_target_data () = let layout = "e-p:32:32-f64:32:64-v64:32:64-v128:32:128-n32-S32" in let dl = DL.of_string layout in let sty = struct_type context [| i32_type; i64_type |] in - + assert_equal (DL.as_string dl) layout; assert_equal (DL.byte_order dl) Endian.Little; assert_equal (DL.pointer_size dl) 4; @@ -86,7 +86,8 @@ let test_target_machine () = assert_equal (TM.triple machine) (Target.default_triple ()); assert_equal (TM.cpu machine) ""; assert_equal (TM.features machine) ""; - ignore (TM.data_layout machine) + ignore (TM.data_layout machine); + TM.set_verbose_asm true machine (*===-- Code Emission -----------------------------------------------------===*) |