[OCaml] Accept context explicitly in Llvm_target functions

[oota-llvm.git] / test / Bindings / Ocaml / executionengine.ml

diff --git a/test/Bindings/Ocaml/executionengine.ml b/test/Bindings/Ocaml/executionengine.ml
index c33da626cffb725106ea32b1da1cadcb3e4636c4..9cbeae8832c149d63fe541a95cb228c3ad23f8c3 100644 (file)
--- 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 *)