6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-11-02 22:23:10 +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
Download Patch File Download Diff File Expand all files Collapse all files

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;
}