projects
/
oota-llvm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove module providers from ocaml.
[oota-llvm.git]
/
bindings
/
ocaml
/
bitreader
/
bitreader_ocaml.c
diff --git
a/bindings/ocaml/bitreader/bitreader_ocaml.c
b/bindings/ocaml/bitreader/bitreader_ocaml.c
index 318c7038e21008dd075e763447d6883610a00895..ef72ce213d8b9008d4579de38da13bb8fd5df4c4 100644
(file)
--- a/
bindings/ocaml/bitreader/bitreader_ocaml.c
+++ b/
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 */
/*===-- 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;
CAMLparam0();
CAMLlocal2(Variant, MessageVal);
char *Message;
- LLVMModule
ProviderRef MP
;
- if (LLVMGetBitcodeModule
ProviderInContext(C, MemBuf, &MP
, &Message))
+ LLVMModule
Ref M
;
+ if (LLVMGetBitcodeModule
InContext(C, MemBuf, &M
, &Message))
llvm_raise(llvm_bitreader_error_exn, Message);
llvm_raise(llvm_bitreader_error_exn, Message);
- CAMLreturn((value) M
P
);
+ CAMLreturn((value) M);
}
/* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */
}
/* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */