llvm.org GIT mirror llvm / 49fd904
[OCaml] Don't use deprecated non-caml_namespaced functions. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@221143 91177308-0d34-0410-b5e6-96231b3b80d8 Peter Zotov 5 years ago
1 changed file(s) with 7 addition(s) and 7 deletion(s). Raw diff Collapse all Expand all
3333
3434 void llvm_raise(value Prototype, char *Message) {
3535 CAMLparam1(Prototype);
36 raise_with_arg(Prototype, llvm_string_of_message(Message));
36 caml_raise_with_arg(Prototype, llvm_string_of_message(Message));
3737 CAMLnoreturn;
3838 }
3939
4040 static value llvm_fatal_error_handler;
4141
4242 static void llvm_fatal_error_trampoline(const char *Reason) {
43 callback(llvm_fatal_error_handler, copy_string(Reason));
43 callback(llvm_fatal_error_handler, caml_copy_string(Reason));
4444 }
4545
4646 CAMLprim value llvm_install_fatal_error_handler(value Handler) {
154154
155155 /* llmodule -> string */
156156 CAMLprim value llvm_target_triple(LLVMModuleRef M) {
157 return copy_string(LLVMGetTarget(M));
157 return caml_copy_string(LLVMGetTarget(M));
158158 }
159159
160160 /* string -> llmodule -> unit */
165165
166166 /* llmodule -> string */
167167 CAMLprim value llvm_data_layout(LLVMModuleRef M) {
168 return copy_string(LLVMGetDataLayout(M));
168 return caml_copy_string(LLVMGetDataLayout(M));
169169 }
170170
171171 /* string -> llmodule -> unit */
538538
539539 /* llvalue -> string */
540540 CAMLprim value llvm_value_name(LLVMValueRef Val) {
541 return copy_string(LLVMGetValueName(Val));
541 return caml_copy_string(LLVMGetValueName(Val));
542542 }
543543
544544 /* string -> llvalue -> unit */
936936
937937 /* llvalue -> string */
938938 CAMLprim value llvm_section(LLVMValueRef Global) {
939 return copy_string(LLVMGetSection(Global));
939 return caml_copy_string(LLVMGetSection(Global));
940940 }
941941
942942 /* string -> llvalue -> unit */
12191219 CAMLlocal2(Name, Option);
12201220
12211221 if ((GC = LLVMGetGC(Fn))) {
1222 Name = copy_string(GC);
1222 Name = caml_copy_string(GC);
12231223
12241224 Option = alloc(1, 0);
12251225 Field(Option, 0) = Name;