Allow passing around LLVMContext in ocaml.

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

diff --git a/test/Bindings/Ocaml/bitwriter.ml b/test/Bindings/Ocaml/bitwriter.ml
index ec9dbc83299730083c0f94762866e37321754bec..bb769b21738b8ebe726cc767beb3726292cae893 100644 (file)
--- a/test/Bindings/Ocaml/bitwriter.ml
+++ b/test/Bindings/Ocaml/bitwriter.ml
@@ -9,7 +9,7 @@
 let test x = if not x then exit 1 else ()
 
 let _ =
-  let m = Llvm.create_module "ocaml_test_module" in
+  let m = Llvm.create_module (Llvm.global_context ()) "ocaml_test_module" in
   
   ignore (Llvm.define_type_name "caml_int_ty" Llvm.i32_type m);