6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-01-03 13:31:05 +00:00
Code Issues Projects Releases Wiki Activity

[OCaml] Don't use deprecated non-caml_namespaced functions.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@221143 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2014-11-03 09:51:47 +00:00
parent 13fd7205fa
commit 49fd9044f7
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,14 +34,14 @@ value llvm_string_of_message(char* Message) {
void llvm_raise(value Prototype, char *Message) { void llvm_raise(value Prototype, char *Message) {
CAMLparam1(Prototype); CAMLparam1(Prototype);
raise_with_arg(Prototype, llvm_string_of_message(Message)); caml_raise_with_arg(Prototype, llvm_string_of_message(Message));
CAMLnoreturn; CAMLnoreturn;
} }
static value llvm_fatal_error_handler; static value llvm_fatal_error_handler;
static void llvm_fatal_error_trampoline(const char *Reason) { static void llvm_fatal_error_trampoline(const char *Reason) {
callback(llvm_fatal_error_handler, copy_string(Reason)); callback(llvm_fatal_error_handler, caml_copy_string(Reason));
} }
CAMLprim value llvm_install_fatal_error_handler(value Handler) { CAMLprim value llvm_install_fatal_error_handler(value Handler) {
@ -155,7 +155,7 @@ CAMLprim value llvm_dispose_module(LLVMModuleRef M) {
/* llmodule -> string */ /* llmodule -> string */
CAMLprim value llvm_target_triple(LLVMModuleRef M) { CAMLprim value llvm_target_triple(LLVMModuleRef M) {
return copy_string(LLVMGetTarget(M)); return caml_copy_string(LLVMGetTarget(M));
} }
/* string -> llmodule -> unit */ /* string -> llmodule -> unit */
@ -166,7 +166,7 @@ CAMLprim value llvm_set_target_triple(value Trip, LLVMModuleRef M) {
/* llmodule -> string */ /* llmodule -> string */
CAMLprim value llvm_data_layout(LLVMModuleRef M) { CAMLprim value llvm_data_layout(LLVMModuleRef M) {
return copy_string(LLVMGetDataLayout(M)); return caml_copy_string(LLVMGetDataLayout(M));
} }
/* string -> llmodule -> unit */ /* string -> llmodule -> unit */
@ -539,7 +539,7 @@ CAMLprim value llvm_classify_value(LLVMValueRef Val) {
/* llvalue -> string */ /* llvalue -> string */
CAMLprim value llvm_value_name(LLVMValueRef Val) { CAMLprim value llvm_value_name(LLVMValueRef Val) {
return copy_string(LLVMGetValueName(Val)); return caml_copy_string(LLVMGetValueName(Val));
} }
/* string -> llvalue -> unit */ /* string -> llvalue -> unit */
@ -937,7 +937,7 @@ CAMLprim value llvm_set_linkage(value Linkage, LLVMValueRef Global) {
/* llvalue -> string */ /* llvalue -> string */
CAMLprim value llvm_section(LLVMValueRef Global) { CAMLprim value llvm_section(LLVMValueRef Global) {
return copy_string(LLVMGetSection(Global)); return caml_copy_string(LLVMGetSection(Global));
} }
/* string -> llvalue -> unit */ /* string -> llvalue -> unit */
@ -1220,7 +1220,7 @@ CAMLprim value llvm_gc(LLVMValueRef Fn) {
CAMLlocal2(Name, Option); CAMLlocal2(Name, Option);
if ((GC = LLVMGetGC(Fn))) { if ((GC = LLVMGetGC(Fn))) {
Name = copy_string(GC); Name = caml_copy_string(GC);
Option = alloc(1, 0); Option = alloc(1, 0);
Field(Option, 0) = Name; Field(Option, 0) = Name;