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 | a8de0de1fe79a958fdad5746e2d489aea4f1d22e (patch) | |
| tree | efd4c63f17acd78f2d50e64b2992110dda78e1c0 /llvm/test | |
| parent | 697bff9cb765dfaf40335eef8d32ac77b8d4c1dc (diff) | |
| download | bcm5719-llvm-a8de0de1fe79a958fdad5746e2d489aea4f1d22e.tar.gz bcm5719-llvm-a8de0de1fe79a958fdad5746e2d489aea4f1d22e.zip | |
[OCaml] Add more Llvm_target tests
Patch by Jacques-Pascal Deplaix
llvm-svn: 210482
Diffstat (limited to 'llvm/test')
| -rw-r--r-- | llvm/test/Bindings/Ocaml/target.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/llvm/test/Bindings/Ocaml/target.ml b/llvm/test/Bindings/Ocaml/target.ml index 26cd12939d1..0a2283aa3ed 100644 --- a/llvm/test/Bindings/Ocaml/target.ml +++ b/llvm/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 -----------------------------------------------------===*) |
