summaryrefslogtreecommitdiffstats
path: root/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c
diff options
context:
space:
mode:
authorPeter Zotov <whitequark@whitequark.org>2014-10-30 08:29:29 +0000
committerPeter Zotov <whitequark@whitequark.org>2014-10-30 08:29:29 +0000
commit1b254f9a56b8647ea0101ee49ff00fd4a810b6d4 (patch)
tree7bcd4627f2d7870e9a9fcd7b82dcc7ece710bdd2 /llvm/bindings/ocaml/bitreader/bitreader_ocaml.c
parenta2c5153edd2a4abb4a5a168e28b0be03bdf1f607 (diff)
downloadbcm5719-llvm-1b254f9a56b8647ea0101ee49ff00fd4a810b6d4.tar.gz
bcm5719-llvm-1b254f9a56b8647ea0101ee49ff00fd4a810b6d4.zip
[OCaml] De-duplicate llvm_raise and llvm_string_of_message.
llvm-svn: 220898
Diffstat (limited to 'llvm/bindings/ocaml/bitreader/bitreader_ocaml.c')
-rw-r--r--llvm/bindings/ocaml/bitreader/bitreader_ocaml.c13
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) {
OpenPOWER on IntegriCloud