[llvm-commits] [llvm] r97290 - /llvm/trunk/bindings/ocaml/bitreader/bitreader_ocaml.c

[Jeffrey Yasskin]

Author: jyasskin
Date: Fri Feb 26 18:25:18 2010
New Revision: 97290

URL: http://llvm.org/viewvc/llvm-project?rev=97290&view=rev
Log:
Fix the ocaml bindings for the bitcode reader.
llvm_get_module_provider() was returning a value of the wrong type.


Modified:
    llvm/trunk/bindings/ocaml/bitreader/bitreader_ocaml.c

Modified: llvm/trunk/bindings/ocaml/bitreader/bitreader_ocaml.c
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/bitreader/bitreader_ocaml.c?rev=97290&r1=97289&r2=97290&view=diff
==============================================================================
--- llvm/trunk/bindings/ocaml/bitreader/bitreader_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/bitreader/bitreader_ocaml.c Fri Feb 26 18:25:18 2010
@@ -56,7 +56,7 @@
   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 */