diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-30 16:34:54 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-30 16:34:54 +0000 |
| commit | a6049bd55cacbd4474874b42b749994eb6911a2a (patch) | |
| tree | 04177dfd1817d99b875976c592cea2f88df6b2ed /test | |
| parent | ad1cabe5ac258ae0301a7836cef02ab6c86812b3 (diff) | |
| download | external_llvm-a6049bd55cacbd4474874b42b749994eb6911a2a.zip external_llvm-a6049bd55cacbd4474874b42b749994eb6911a2a.tar.gz external_llvm-a6049bd55cacbd4474874b42b749994eb6911a2a.tar.bz2 | |
PR2731: C and Ocaml bindings for setTailCall and isTailCall.
Based on patch by Giorgos Korfiatis.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@55570 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test')
| -rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 4dc1965..6945908 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -979,11 +979,15 @@ let test_builder () = * RUN: grep {Inst49.*extractelement.*Vec1.*P2} < %t.ll * RUN: grep {Inst50.*insertelement.*Vec1.*P1.*P2} < %t.ll * RUN: grep {Inst51.*shufflevector.*Vec1.*Vec2.*1.*1.*0.*0} < %t.ll + * RUN: grep {CallInst.*tail call} < %t.ll *) let ci = build_call fn [| p2; p1 |] "CallInst" atentry in insist (CallConv.c = instruction_call_conv ci); set_instruction_call_conv 63 ci; insist (63 = instruction_call_conv ci); + insist (not (is_tail_call ci)); + set_tail_call true ci; + insist (is_tail_call ci); let inst46 = build_icmp Icmp.Eq p1 p2 "Inst46" atentry in ignore (build_select inst46 p1 p2 "Inst47" atentry); |