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 | 1940dd10dd6b79e3332f384756c268b85d0ad400 (patch) | |
| tree | 05338314f5ebe6bc09cee6d5ae01ce992a08110a /test/Bindings | |
| parent | abbcc5ee6fa39daadadaa0b583579b3e17f32fd7 (diff) | |
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')
| -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 1ae8e60641..10a20ea6f7 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 *) |