diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-02 23:59:00 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-02 23:59:00 +0000 |
| commit | 98b05d67e9d7fe621baae8c0b3f3f89f29a43fac (patch) | |
| tree | 05486283d4137342c164451abacaad03bcf98755 /llvm/bindings/ocaml/bitreader/bitreader_ocaml.c | |
| parent | ad0e0cb0df0e0d660f88c82ad7d090924ead051a (diff) | |
| download | bcm5719-llvm-98b05d67e9d7fe621baae8c0b3f3f89f29a43fac.tar.gz bcm5719-llvm-98b05d67e9d7fe621baae8c0b3f3f89f29a43fac.zip | |
Remove module providers from ocaml.
llvm-svn: 97609
Diffstat (limited to 'llvm/bindings/ocaml/bitreader/bitreader_ocaml.c')
| -rw-r--r-- | llvm/bindings/ocaml/bitreader/bitreader_ocaml.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c index 318c7038e21..ef72ce213d8 100644 --- a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c +++ b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c @@ -46,17 +46,16 @@ static void llvm_raise(value Prototype, char *Message) { /*===-- Modules -----------------------------------------------------------===*/ /* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */ -CAMLprim value llvm_get_module_provider(LLVMContextRef C, - LLVMMemoryBufferRef MemBuf) { +CAMLprim value llvm_get_module(LLVMContextRef C, LLVMMemoryBufferRef MemBuf) { CAMLparam0(); CAMLlocal2(Variant, MessageVal); char *Message; - LLVMModuleProviderRef MP; - if (LLVMGetBitcodeModuleProviderInContext(C, MemBuf, &MP, &Message)) + LLVMModuleRef M; + if (LLVMGetBitcodeModuleInContext(C, MemBuf, &M, &Message)) llvm_raise(llvm_bitreader_error_exn, Message); - CAMLreturn((value) MP); + CAMLreturn((value) M); } /* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */ |
