diff options
Diffstat (limited to 'llvm/bindings/ocaml/bitreader/bitreader_ocaml.c')
-rw-r--r-- | llvm/bindings/ocaml/bitreader/bitreader_ocaml.c | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c index eab3e1ae30e..15ebd5f635f 100644 --- a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c +++ b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c @@ -18,18 +18,7 @@ #include "caml/memory.h" #include "caml/callback.h" -static void llvm_raise(value Prototype, char *Message) { - CAMLparam1(Prototype); - CAMLlocal1(CamlMessage); - - CamlMessage = copy_string(Message); - LLVMDisposeMessage(Message); - - raise_with_arg(Prototype, CamlMessage); - CAMLnoreturn; -} - -/*===-- BitReader --------------------------------------------------------===*/ +void llvm_raise(value Prototype, char *Message); /* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */ CAMLprim LLVMModuleRef llvm_get_module(LLVMContextRef C, LLVMMemoryBufferRef MemBuf) { |