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 | 2e855e68d861224c9b61e2bc9cecad1536b1534b (patch) | |
| tree | 8e4854d47b8c08d95662a6cc9b1a4c7b03f6a8f1 /bindings/ocaml/llvm/llvm_ocaml.c | |
| parent | efbcebc95dc8a7936dda8ec5733b6f6d4bd62343 (diff) | |
C and Ocaml bindings for ExecutionEngine (i.e., the JIT compiler).
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45335 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 506b5294de..7224439feb 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -18,7 +18,6 @@ #include "llvm-c/Core.h" #include "caml/alloc.h" #include "caml/custom.h" -#include "caml/mlvalues.h" #include "caml/memory.h" #include "caml/fail.h" #include "caml/callback.h" @@ -37,7 +36,7 @@ CAMLprim value llvm_register_core_exns(value IoError) { return Val_unit; } -void llvm_raise(value Prototype, char *Message) { +static void llvm_raise(value Prototype, char *Message) { CAMLparam1(Prototype); CAMLlocal1(CamlMessage); @@ -45,6 +44,7 @@ void llvm_raise(value Prototype, char *Message) { LLVMDisposeMessage(Message); raise_with_arg(Prototype, CamlMessage); + abort(); /* NOTREACHED */ CAMLnoreturn; } @@ -234,7 +234,7 @@ CAMLprim LLVMTypeRef llvm_opaque_type(value Unit) { #define Typehandle_val(v) (*(LLVMTypeHandleRef *)(Data_custom_val(v))) -void llvm_finalize_handle(value TH) { +static void llvm_finalize_handle(value TH) { LLVMDisposeTypeHandle(Typehandle_val(TH)); } |