#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"
return Val_unit;
}
-void llvm_raise(value Prototype, char *Message) {
+static void llvm_raise(value Prototype, char *Message) {
CAMLparam1(Prototype);
CAMLlocal1(CamlMessage);
LLVMDisposeMessage(Message);
raise_with_arg(Prototype, CamlMessage);
+ abort(); /* NOTREACHED */
CAMLnoreturn;
}
#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));
}