diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-09-20 16:47:41 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-09-20 16:47:41 +0000 |
| commit | a8c3660c1a4be5d4887f1899bc3c8e62b875c6c0 (patch) | |
| tree | e9e1ca7dbe936e4c830ed6f0cfb463d5b4e5783f /test/Bindings | |
| parent | a4ddacf60bc1c319ddb397a8a61b3696a43ff0e4 (diff) | |
| download | external_llvm-a8c3660c1a4be5d4887f1899bc3c8e62b875c6c0.zip external_llvm-a8c3660c1a4be5d4887f1899bc3c8e62b875c6c0.tar.gz external_llvm-a8c3660c1a4be5d4887f1899bc3c8e62b875c6c0.tar.bz2 | |
Incorporating review feedback for GC verifier patch.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@42163 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
| -rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index ef274a8..6d04638 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -155,14 +155,17 @@ let test_constants () = (* RUN: grep {Const04.*"cruel\\\\00world"} < %t.ll *) group "string"; - let c = make_string_constant "cruel\x00world" false in + let c = make_string_constant "cruel\000world" false in ignore (define_global "Const04" c m); insist ((make_array_type i8_type 11) = type_of c); (* RUN: grep {Const05.*"hi\\\\00again\\\\00"} < %t.ll *) group "string w/ null"; - let c = make_string_constant "hi\x00again" true in + let c = make_string_constant "hi\000again" true in + prerr_string "====> "; + prerr_int (array_length (type_of c)); + prerr_endline " <===="; ignore (define_global "Const05" c m); insist ((make_array_type i8_type 9) = type_of c); |