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

Tests for the instruction iterator bindings.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@48775 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Gordon Henriksen 2008-03-25 16:35:08 +00:00
parent 033d778249
commit 1d21395f4c
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
test/Bindings/Ocaml/vmcore.ml
View File

@ -705,6 +705,40 @@ let test_basic_blocks () =
end
(*===-- Instructions ------------------------------------------------------===*)
let test_instructions () =
begin group "iteration";
let m = create_module "temp" in
let fty = function_type void_type [| i32_type; i32_type |] in
let f = define_function "f" fty m in
let bb = entry_block f in
let b = builder_at (At_end bb) in
insist (At_end bb = instr_begin bb);
insist (At_start bb = instr_end bb);
let i1 = build_add (param f 0) (param f 1) "One" b in
let i2 = build_sub (param f 0) (param f 1) "Two" b in
insist (Before i1 = instr_begin bb);
insist (Before i2 = instr_succ i1);
insist (At_end bb = instr_succ i2);
insist (After i2 = instr_end bb);
insist (After i1 = instr_pred i2);
insist (At_start bb = instr_pred i1);
let lf s x = s ^ "->" ^ value_name x in
insist ("->One->Two" = fold_left_instrs lf "" bb);
let rf x s = value_name x ^ "<-" ^ s in
insist ("One<-Two<-" = fold_right_instrs rf bb "");
dispose_module m
end
(*===-- Builder -----------------------------------------------------------===*)
let test_builder () =
@ -1024,6 +1058,7 @@ let _ =
suite "functions" test_functions;
suite "params" test_params;
suite "basic blocks" test_basic_blocks;
suite "instructions" test_instructions;
suite "builder" test_builder;
suite "module provider" test_module_provider;
suite "pass manager" test_pass_manager;