From 70b7007307caf79a256f56404e72ece27d85a857 Mon Sep 17 00:00:00 2001 From: Jeffrey Yasskin Date: Sat, 27 Feb 2010 00:25:18 +0000 Subject: 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 --- bindings/ocaml/bitreader/bitreader_ocaml.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bindings') diff --git a/bindings/ocaml/bitreader/bitreader_ocaml.c b/bindings/ocaml/bitreader/bitreader_ocaml.c index 5fd9f854d9..318c7038e2 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 */ -- cgit v1.2.3