From 5070750688885e45b8ae522f831f0a0a1889bcf2 Mon Sep 17 00:00:00 2001 From: Erick Tryzelaar Date: Sun, 28 Feb 2010 05:51:33 +0000 Subject: 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 --- test/Bindings/Ocaml/vmcore.ml | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'test/Bindings/Ocaml') 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 *) -- cgit v1.1