aboutsummaryrefslogtreecommitdiffstats
path: root/bindings
diff options
context:
space:
mode:
authorPeter Zotov <whitequark@whitequark.org>2013-11-12 20:55:42 +0000
committerPeter Zotov <whitequark@whitequark.org>2013-11-12 20:55:42 +0000
commit850b520114dd6bd86fc8741201b9beea88f96599 (patch)
treedc95049ddab82d5bfca31ccafc6f476101f19d25 /bindings
parent46456f6a2ff5b81a3ea60bdcf9a0813c9fa4257f (diff)
downloadexternal_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.c12
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 */