RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-11-22 10:42:39 +01:00
Code Issues Projects Releases Wiki Activity

[NFC][OCaml] Resolve a couple more compilation warnings

Browse Source 
Followup to: 0b1dc49ca38a [NFC][OCaml] Resolve const and unsigned compilation warnings

Differential Revision: https://reviews.llvm.org/D99420
This commit is contained in:
Josh Berdine 2021-03-26 15:19:01 +00:00
parent 9c42462d88
commit 859df511df
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -885,7 +885,7 @@ CAMLprim LLVMValueRef llvm_mdnull(LLVMContextRef C) {
/* llvalue -> string option */ /* llvalue -> string option */
CAMLprim value llvm_get_mdstring(LLVMValueRef V) { CAMLprim value llvm_get_mdstring(LLVMValueRef V) {
size_t Len; unsigned Len;
const char *CStr = LLVMGetMDString(V, &Len); const char *CStr = LLVMGetMDString(V, &Len);
return cstr_to_string_option(CStr, Len); return cstr_to_string_option(CStr, Len);
} }

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

@ -314,8 +314,8 @@ CAMLprim value llvm_targetmachine_emit_to_file(LLVMModuleRef Module,
char *ErrorMessage; char *ErrorMessage;
if(LLVMTargetMachineEmitToFile(TargetMachine_val(Machine), Module, if(LLVMTargetMachineEmitToFile(TargetMachine_val(Machine), Module,
String_val(FileName), Int_val(FileType), (char *)String_val(FileName),
&ErrorMessage)) { Int_val(FileType), &ErrorMessage)) {
llvm_raise(*caml_named_value("Llvm_target.Error"), ErrorMessage); llvm_raise(*caml_named_value("Llvm_target.Error"), ErrorMessage);
} }