diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2013-11-11 14:47:20 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-11 14:47:20 +0000 |
| commit | 786a43e2d8f98034046b7fd3a78d94e57a466895 (patch) | |
| tree | 21861c95e9ae4fddec5e0a5078b589f9964dcf5b /test/Bindings | |
| parent | 26f3bd89660e46a76a3b0267b23b00d917a45404 (diff) | |
| download | llvm-786a43e2d8f98034046b7fd3a78d94e57a466895.tar.gz llvm-786a43e2d8f98034046b7fd3a78d94e57a466895.tar.bz2 llvm-786a43e2d8f98034046b7fd3a78d94e57a466895.tar.xz | |
[OCaml] Accept context explicitly in Llvm_target functions
Llvm_target.intptr_type used to implicitly use global context. As
none of other functions in OCaml bindings do, it is changed to
accept context explicitly.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194381 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
| -rw-r--r-- | test/Bindings/Ocaml/executionengine.ml | 2 | ||||
| -rw-r--r-- | test/Bindings/Ocaml/target.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/test/Bindings/Ocaml/executionengine.ml b/test/Bindings/Ocaml/executionengine.ml index c33da626cf..9cbeae8832 100644 --- a/test/Bindings/Ocaml/executionengine.ml +++ b/test/Bindings/Ocaml/executionengine.ml @@ -107,7 +107,7 @@ let test_executionengine () = let td = ExecutionEngine.target_data ee in (* Demonstrate that a garbage pointer wasn't returned. *) - let ty = intptr_type td in + let ty = intptr_type td context in if ty != i32_type && ty != i64_type then bomb "target_data did not work"; (* dispose *) diff --git a/test/Bindings/Ocaml/target.ml b/test/Bindings/Ocaml/target.ml index 0f1aa18e39..017a886059 100644 --- a/test/Bindings/Ocaml/target.ml +++ b/test/Bindings/Ocaml/target.ml @@ -46,7 +46,7 @@ let test_target_data () = assert_equal (DataLayout.as_string td) layout; assert_equal (byte_order td) Endian.Little; assert_equal (pointer_size td) 4; - assert_equal (intptr_type td) i32_type; + assert_equal (intptr_type td context) i32_type; assert_equal (size_in_bits td sty) (Int64.of_int 96); assert_equal (store_size td sty) (Int64.of_int 12); assert_equal (abi_size td sty) (Int64.of_int 12); |