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
This commit is contained in:
Jeffrey Yasskin 2010-02-27 00:25:18 +00:00
parent d38cdb020e
commit 70b7007307

View File

@ -56,7 +56,7 @@ CAMLprim value llvm_get_module_provider(LLVMContextRef C,
if (LLVMGetBitcodeModuleProviderInContext(C, MemBuf, &MP, &Message)) if (LLVMGetBitcodeModuleProviderInContext(C, MemBuf, &MP, &Message))
llvm_raise(llvm_bitreader_error_exn, Message); llvm_raise(llvm_bitreader_error_exn, Message);
CAMLreturn((value) MemBuf); CAMLreturn((value) MP);
} }
/* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */ /* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */