diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2014-10-30 08:29:29 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2014-10-30 08:29:29 +0000 |
| commit | 1b254f9a56b8647ea0101ee49ff00fd4a810b6d4 (patch) | |
| tree | 7bcd4627f2d7870e9a9fcd7b82dcc7ece710bdd2 /llvm/bindings/ocaml/executionengine/executionengine_ocaml.c | |
| parent | a2c5153edd2a4abb4a5a168e28b0be03bdf1f607 (diff) | |
| download | bcm5719-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/executionengine/executionengine_ocaml.c')
| -rw-r--r-- | llvm/bindings/ocaml/executionengine/executionengine_ocaml.c | 11 |
1 files changed, 1 insertions, 10 deletions
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 .......................................--*/ |
