[OCaml] Implement Llvm.string_of_llvalue

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194136 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov
2013-11-06 09:21:08 +00:00
parent 14bbb1d9b0
commit ba0c7cd012
4 changed files with 24 additions and 0 deletions

View File

@@ -527,6 +527,17 @@ CAMLprim value llvm_dump_value(LLVMValueRef Val) {
return Val_unit;
}
/* llvalue -> string */
CAMLprim value llvm_string_of_llvalue(LLVMTypeRef M) {
char* TypeCStr;
TypeCStr = LLVMPrintValueToString(M);
value TypeStr = caml_copy_string(TypeCStr);
LLVMDisposeMessage(TypeCStr);
return TypeStr;
}
/* llvalue -> llvalue -> unit */
CAMLprim value llvm_replace_all_uses_with(LLVMValueRef OldVal,
LLVMValueRef NewVal) {