git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194508
91177308-0d34-0410-b5e6-
96231b3b80d8
}
/* 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 */