From a8de0de1fe79a958fdad5746e2d489aea4f1d22e Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Mon, 9 Jun 2014 18:28:47 +0000 Subject: [PATCH] [OCaml] Add more Llvm_target tests Patch by Jacques-Pascal Deplaix llvm-svn: 210482 --- llvm/test/Bindings/Ocaml/target.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/llvm/test/Bindings/Ocaml/target.ml b/llvm/test/Bindings/Ocaml/target.ml index 26cd129..0a2283a 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 -----------------------------------------------------===*) -- 2.7.4