6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-08-09 11:25:55 +00:00
Code Issues 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
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 */ /* llvalue -> string */
CAMLprim value llvm_string_of_llvalue(LLVMTypeRef M) { CAMLprim value llvm_string_of_llvalue(LLVMValueRef M) {
char* TypeCStr; char* ValueCStr;
TypeCStr = LLVMPrintValueToString(M); ValueCStr = LLVMPrintValueToString(M);
value TypeStr = caml_copy_string(TypeCStr); value ValueStr = caml_copy_string(ValueCStr);
LLVMDisposeMessage(TypeCStr); LLVMDisposeMessage(ValueCStr);
return TypeStr; return ValueStr;
} }
/* llvalue -> llvalue -> unit */ /* llvalue -> llvalue -> unit */