6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-28 04:33:05 +00:00
Code Issues Projects Releases Wiki Activity

[OCaml] Add more Llvm_target tests

Browse Source 
Patch by Jacques-Pascal Deplaix

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@210482 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2014-06-09 18:28:47 +00:00
parent 08e709589d
commit 7ffad46ea7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Bindings/Ocaml/target.ml
View File

@ -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 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 dl = DL.of_string layout in
let sty = struct_type context [| i32_type; i64_type |] in let sty = struct_type context [| i32_type; i64_type |] in
assert_equal (DL.as_string dl) layout; assert_equal (DL.as_string dl) layout;
assert_equal (DL.byte_order dl) Endian.Little; assert_equal (DL.byte_order dl) Endian.Little;
assert_equal (DL.pointer_size dl) 4; 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.triple machine) (Target.default_triple ());
assert_equal (TM.cpu machine) ""; assert_equal (TM.cpu machine) "";
assert_equal (TM.features machine) ""; assert_equal (TM.features machine) "";
ignore (TM.data_layout machine) ignore (TM.data_layout machine);
TM.set_verbose_asm true machine
(*===-- Code Emission -----------------------------------------------------===*) (*===-- Code Emission -----------------------------------------------------===*)