diff options
author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 05:51:33 +0000 |
---|---|---|
committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 05:51:33 +0000 |
commit | 5070750688885e45b8ae522f831f0a0a1889bcf2 (patch) | |
tree | 05338314f5ebe6bc09cee6d5ae01ce992a08110a /test/Bindings/Ocaml | |
parent | cd5185f6687e19d8973dc7c6a9f4c6009cd53257 (diff) | |
download | external_llvm-5070750688885e45b8ae522f831f0a0a1889bcf2.zip external_llvm-5070750688885e45b8ae522f831f0a0a1889bcf2.tar.gz external_llvm-5070750688885e45b8ae522f831f0a0a1889bcf2.tar.bz2 |
Add the new union arthmetic instructions to llvm-c and ocaml.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97371 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings/Ocaml')
-rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 1ae8e60..10a20ea 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -288,6 +288,12 @@ let test_constants () = ignore (define_global "const_structure" c m); insist ((struct_type context [| i16_type; i16_type; i32_type; i32_type |]) = (type_of c)); + + group "union"; + let t = union_type context [| i1_type; i16_type; i64_type; double_type |] in + let c = const_union t one in + ignore (define_global "Const_union" c m); + insist (t = (type_of c)); (* RUN: grep {const_null.*zeroinit} < %t.ll *) |