From 1b254f9a56b8647ea0101ee49ff00fd4a810b6d4 Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Thu, 30 Oct 2014 08:29:29 +0000 Subject: [OCaml] De-duplicate llvm_raise and llvm_string_of_message. llvm-svn: 220898 --- llvm/bindings/ocaml/executionengine/executionengine_ocaml.c | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'llvm/bindings/ocaml/executionengine/executionengine_ocaml.c') diff --git a/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c b/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c index a12cc0091ae..c647d23133c 100644 --- a/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c +++ b/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c @@ -25,16 +25,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; -} +void llvm_raise(value Prototype, char *Message); /*--... Operations on generic values .......................................--*/ -- cgit v1.2.3