From: Jeffrey Yasskin <jyasskin@google.com>
Date: Sat, 27 Feb 2010 00:25:18 +0000 (+0000)
Subject: Fix the ocaml bindings for the bitcode reader.
X-Git-Url: http://demsky.eecs.uci.edu/git/?a=commitdiff_plain;h=70b7007307caf79a256f56404e72ece27d85a857;p=oota-llvm.git

Fix the ocaml bindings for the bitcode reader.
llvm_get_module_provider() was returning a value of the wrong type.



git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97290 91177308-0d34-0410-b5e6-96231b3b80d8
---

diff --git a/bindings/ocaml/bitreader/bitreader_ocaml.c b/bindings/ocaml/bitreader/bitreader_ocaml.c
index 5fd9f854d9d..318c7038e21 100644
--- 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 */