RPCSX/llvm
1
0
Fork 0
mirror of https://github.com/RPCSX/llvm.git synced 2025-01-28 15:54:00 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[OCaml] Fix a typo

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194508 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2013-11-12 20:55:42 +00:00
parent 46456f6a2f
commit 850b520114
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -528,14 +528,14 @@ CAMLprim value llvm_dump_value(LLVMValueRef Val) {
}
/* llvalue -> string */
CAMLprim value llvm_string_of_llvalue(LLVMTypeRef M) {
char* TypeCStr;
TypeCStr = LLVMPrintValueToString(M);
CAMLprim value llvm_string_of_llvalue(LLVMValueRef M) {
char* ValueCStr;
ValueCStr = LLVMPrintValueToString(M);
value TypeStr = caml_copy_string(TypeCStr);
LLVMDisposeMessage(TypeCStr);
value ValueStr = caml_copy_string(ValueCStr);
LLVMDisposeMessage(ValueCStr);
return TypeStr;
return ValueStr;
}
/* llvalue -> llvalue -> unit */