From 786a43e2d8f98034046b7fd3a78d94e57a466895 Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Mon, 11 Nov 2013 14:47:20 +0000 Subject: [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 --- test/Bindings/Ocaml/executionengine.ml | 2 +- test/Bindings/Ocaml/target.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'test/Bindings/Ocaml') 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); -- cgit v1.2.3