diff options
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); |