diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2013-11-12 20:55:42 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-12 20:55:42 +0000 |
| commit | 850b520114dd6bd86fc8741201b9beea88f96599 (patch) | |
| tree | dc95049ddab82d5bfca31ccafc6f476101f19d25 /bindings | |
| parent | 46456f6a2ff5b81a3ea60bdcf9a0813c9fa4257f (diff) | |
| download | external_llvm-850b520114dd6bd86fc8741201b9beea88f96599.zip external_llvm-850b520114dd6bd86fc8741201b9beea88f96599.tar.gz external_llvm-850b520114dd6bd86fc8741201b9beea88f96599.tar.bz2 | |
[OCaml] Fix a typo
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194508 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 6134bfa..387f660 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -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 */ |