6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-11-01 15:11:24 +00:00
Code Issues Projects Releases Wiki Activity

[OCaml] De-duplicate llvm_raise and llvm_string_of_message.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@220898 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2014-10-30 08:29:29 +00:00
parent d07e7ecd85
commit b9f3251952
7 changed files with 14 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
bindings/ocaml/bitreader/bitreader_ocaml.c
View File

@ -18,18 +18,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;
}
/*===-- BitReader --------------------------------------------------------===*/
void llvm_raise(value Prototype, char *Message);
/* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */
CAMLprim LLVMModuleRef llvm_get_module(LLVMContextRef C, LLVMMemoryBufferRef MemBuf) {

2
bindings/ocaml/bitwriter/bitwriter_ocaml.c
View File

@ -21,8 +21,6 @@
#include "caml/mlvalues.h"
#include "caml/memory.h"
/*===-- BitWriter ---------------------------------------------------------===*/
/* Llvm.llmodule -> string -> bool */
CAMLprim value llvm_write_bitcode_file(LLVMModuleRef M, value Path) {
int Result = LLVMWriteBitcodeToFile(M, String_val(Path));

11
bindings/ocaml/executionengine/executionengine_ocaml.c
View File

@ -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 .......................................--*/

13
bindings/ocaml/irreader/irreader_ocaml.c
View File

@ -18,18 +18,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;
}
/*===-- IRReader ----------------------------------------------------------===*/
void llvm_raise(value Prototype, char *Message);
/* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */
CAMLprim value llvm_parse_ir(LLVMContextRef C,

11
bindings/ocaml/linker/linker_ocaml.c
View File

@ -21,16 +21,7 @@
#include "caml/fail.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);
/* llmodule -> llmodule -> Mode.t -> unit */
CAMLprim value llvm_link_modules(LLVMModuleRef Dst, LLVMModuleRef Src, value Mode) {

14
bindings/ocaml/llvm/llvm_ocaml.c
View File

@ -25,14 +25,16 @@
#include "caml/fail.h"
#include "caml/callback.h"
static void llvm_raise(value Prototype, char *Message) {
CAMLparam1(Prototype);
CAMLlocal1(CamlMessage);
CamlMessage = copy_string(Message);
value llvm_string_of_message(char* Message) {
value String = caml_copy_string(Message);
LLVMDisposeMessage(Message);
raise_with_arg(Prototype, CamlMessage);
return String;
}
void llvm_raise(value Prototype, char *Message) {
CAMLparam1(Prototype);
raise_with_arg(Prototype, llvm_string_of_message(Message));
CAMLnoreturn;
}

21
bindings/ocaml/target/target_ocaml.c
View File

@ -23,25 +23,8 @@
#include "caml/custom.h"
#include "caml/callback.h"
/*===---- Exceptions ------------------------------------------------------===*/
static void llvm_raise(value Prototype, char *Message) {
CAMLparam1(Prototype);
CAMLlocal1(CamlMessage);
CamlMessage = copy_string(Message);
LLVMDisposeMessage(Message);
raise_with_arg(Prototype, CamlMessage);
CAMLnoreturn;
}
static value llvm_string_of_message(char* Message) {
value String = caml_copy_string(Message);
LLVMDisposeMessage(Message);
return String;
}
void llvm_raise(value Prototype, char *Message);
value llvm_string_of_message(char* Message);
/*===---- Data Layout -----------------------------------------------------===*/