Fix the ocaml bindings for the bitcode reader.

[oota-llvm.git] / bindings / ocaml / bitreader / bitreader_ocaml.c

diff --git a/bindings/ocaml/bitreader/bitreader_ocaml.c b/bindings/ocaml/bitreader/bitreader_ocaml.c
index 5fd9f854d9da269bf5ec37348d4028d212444eb9..318c7038e21008dd075e763447d6883610a00895 100644 (file)
--- a/bindings/ocaml/bitreader/bitreader_ocaml.c
+++ b/bindings/ocaml/bitreader/bitreader_ocaml.c
@@ -56,7 +56,7 @@ CAMLprim value llvm_get_module_provider(LLVMContextRef C,
   if (LLVMGetBitcodeModuleProviderInContext(C, MemBuf, &MP, &Message))
     llvm_raise(llvm_bitreader_error_exn, Message);
   
-  CAMLreturn((value) MemBuf);
+  CAMLreturn((value) MP);
 }
 
 /* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */