diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-09 01:55:52 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-09 01:55:52 +0000 |
| commit | 296a10a8237d87cdbd7b87c70ac727ebcc2acc54 (patch) | |
| tree | d36c2a72c7671302f4ed2520da5427d0d1f11a64 /test/Bindings/Ocaml/vmcore.ml | |
| parent | 12a293416db6cbe902ba1ca00488620a86f56a37 (diff) | |
| download | external_llvm-296a10a8237d87cdbd7b87c70ac727ebcc2acc54.zip external_llvm-296a10a8237d87cdbd7b87c70ac727ebcc2acc54.tar.gz external_llvm-296a10a8237d87cdbd7b87c70ac727ebcc2acc54.tar.bz2 | |
[PR-2610] Adding Ocaml bindings for Switch::addCase.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@54571 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings/Ocaml/vmcore.ml')
| -rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index ffb6970..24846b6 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -825,7 +825,18 @@ let test_builder () = ignore (build_cond_br cond bb03 bb00 b) end; - (* TODO: Switch *) + group "switch"; begin + (* RUN: grep {switch.*P1.*SwiBlock3} < %t.ll + * RUN: grep {2,.*SwiBlock2} < %t.ll + *) + let bb1 = append_block "SwiBlock1" fn in + let bb2 = append_block "SwiBlock2" fn in + ignore (build_unreachable (builder_at_end bb2)); + let bb3 = append_block "SwiBlock3" fn in + ignore (build_unreachable (builder_at_end bb3)); + let si = build_switch p1 bb3 1 (builder_at_end bb1) in + ignore (add_case si (const_int i32_type 2) bb2) + end; group "invoke"; begin (* RUN: grep {Inst02.*invoke.*P1.*P2} < %t.ll |