diff options
author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-29 20:45:00 +0000 |
---|---|---|
committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-29 20:45:00 +0000 |
commit | cc0928ff22d9f3e8f2930874f6727db8c700ec35 (patch) | |
tree | 3c1111e6f78118c02964ced26c7aca9de33bcaf1 /test/Bindings | |
parent | 21c62da287237d39d0d95004881ea4baae3be6da (diff) | |
download | llvm-cc0928ff22d9f3e8f2930874f6727db8c700ec35.tar.gz llvm-cc0928ff22d9f3e8f2930874f6727db8c700ec35.tar.bz2 llvm-cc0928ff22d9f3e8f2930874f6727db8c700ec35.tar.xz |
Bindings for instruction calling conventions.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45422 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
-rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 6b103cb8fc..457e7664ef 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -768,14 +768,19 @@ let test_builder () = end; group "miscellaneous"; begin - (* RUN: grep {Inst45.*call.*P2.*P1} < %t.ll + (* RUN: grep {CallInst.*call.*P2.*P1} < %t.ll + * RUN: grep {CallInst.*cc63} < %t.ll * RUN: grep {Inst47.*select.*Inst46.*P1.*P2} < %t.ll * RUN: grep {Inst48.*va_arg.*null.*i32} < %t.ll * 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 *) - ignore (build_call fn [| p2; p1 |] "Inst45" atentry); + 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); + let inst46 = build_icmp Icmp.Eq p1 p2 "Inst46" atentry in ignore (build_select inst46 p1 p2 "Inst47" atentry); ignore (build_va_arg |