diff options
author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-17 16:08:32 +0000 |
---|---|---|
committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-17 16:08:32 +0000 |
commit | 57cebeec7ba08b55f29f5bf98ad0a3a17e9d0c71 (patch) | |
tree | 7c0fd6ef432b8676a5cf19c374b330842c4e5456 /test/Bindings/Ocaml/vmcore.ml | |
parent | 4374f8e208806ae4ffaa57a4b69eba5571207ba1 (diff) | |
download | llvm-57cebeec7ba08b55f29f5bf98ad0a3a17e9d0c71.tar.gz llvm-57cebeec7ba08b55f29f5bf98ad0a3a17e9d0c71.tar.bz2 llvm-57cebeec7ba08b55f29f5bf98ad0a3a17e9d0c71.tar.xz |
C and Ocaml bindings for address spaces, for that burgeoning market
for Ocaml-based compilers targeting embedded devices. :)
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45096 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings/Ocaml/vmcore.ml')
-rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 25 |
1 files changed, 18 insertions, 7 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 8bea6d23a9..65d8a316e9 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -103,13 +103,24 @@ let test_types () = insist (i8_type == element_type ty); insist (Array_type == classify_type ty); - (* RUN: grep {Ty10.*float\*} < %t.ll - *) - group "pointer"; - let ty = pointer_type float_type in - insist (define_type_name "Ty10" ty m); - insist (float_type == element_type ty); - insist (Pointer_type == classify_type ty); + begin group "pointer"; + (* RUN: grep {UnqualPtrTy.*float\*} < %t.ll + *) + let ty = pointer_type float_type in + insist (define_type_name "UnqualPtrTy" ty m); + insist (float_type == element_type ty); + insist (0 == address_space ty); + insist (Pointer_type == classify_type ty) + end; + + begin group "qualified_pointer"; + (* RUN: grep {QualPtrTy.*i8.*3.*\*} < %t.ll + *) + let ty = qualified_pointer_type i8_type 3 in + insist (define_type_name "QualPtrTy" ty m); + insist (i8_type == element_type ty); + insist (3 == address_space ty) + end; (* RUN: grep {Ty11.*\<4 x i16\>} < %t.ll *) |