diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-23 16:59:28 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-23 16:59:28 +0000 |
| commit | 2a8cd89d0353349e92d38cdd6b604d8bbba0b6a4 (patch) | |
| tree | 41d673d2ffab0ed259d4f46aa14ebe4f4013d4b6 /llvm/bindings/ocaml/bitreader/bitreader_ocaml.c | |
| parent | e1101999160c81b257795e55bf37f8891dca3d27 (diff) | |
| download | bcm5719-llvm-2a8cd89d0353349e92d38cdd6b604d8bbba0b6a4.tar.gz bcm5719-llvm-2a8cd89d0353349e92d38cdd6b604d8bbba0b6a4.zip | |
C and Ocaml bindings for ExecutionEngine (i.e., the JIT compiler).
llvm-svn: 45335
Diffstat (limited to 'llvm/bindings/ocaml/bitreader/bitreader_ocaml.c')
| -rw-r--r-- | llvm/bindings/ocaml/bitreader/bitreader_ocaml.c | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c index 87477f6312d..980ed2abbfc 100644 --- a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c +++ b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c @@ -14,9 +14,8 @@ #include "llvm-c/BitReader.h" #include "caml/alloc.h" -#include "caml/mlvalues.h" +#include "caml/fail.h" #include "caml/memory.h" -#include <stdio.h> /* Can't use the recommended caml_named_value mechanism for backwards @@ -29,7 +28,17 @@ CAMLprim value llvm_register_bitreader_exns(value Error) { return Val_unit; } -void llvm_raise(value Prototype, char *Message); +static void llvm_raise(value Prototype, char *Message) { + CAMLparam1(Prototype); + CAMLlocal1(CamlMessage); + + CamlMessage = copy_string(Message); + LLVMDisposeMessage(Message); + + raise_with_arg(Prototype, CamlMessage); + abort(); /* NOTREACHED */ + CAMLnoreturn; +} /*===-- Modules -----------------------------------------------------------===*/ |
