diff options
| author | Jeffrey Yasskin <jyasskin@google.com> | 2010-02-27 00:25:18 +0000 |
|---|---|---|
| committer | Jeffrey Yasskin <jyasskin@google.com> | 2010-02-27 00:25:18 +0000 |
| commit | 37d4195ded33d70c309832200223eb03938c476c (patch) | |
| tree | 1f88a7ecf0d113d0c2070b9835325a8f69604392 | |
| parent | c51d86c6290803199080ae9a162ac686ca398f5e (diff) | |
| download | external_llvm-37d4195ded33d70c309832200223eb03938c476c.zip external_llvm-37d4195ded33d70c309832200223eb03938c476c.tar.gz external_llvm-37d4195ded33d70c309832200223eb03938c476c.tar.bz2 | |
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
| -rw-r--r-- | bindings/ocaml/bitreader/bitreader_ocaml.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bindings/ocaml/bitreader/bitreader_ocaml.c b/bindings/ocaml/bitreader/bitreader_ocaml.c index 5fd9f85..318c703 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 */ |