diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 05:51:09 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 05:51:09 +0000 |
| commit | d2b4aff4bca23ff5dadf180281a74902a18fcf73 (patch) | |
| tree | 9eb3118618f7704137111910dd0c25c5c4ffadf1 /bindings/ocaml/llvm/llvm_ocaml.c | |
| parent | b29d7d25423bc91a06a8a16aee3ff0ea96980706 (diff) | |
| download | external_llvm-d2b4aff4bca23ff5dadf180281a74902a18fcf73.zip external_llvm-d2b4aff4bca23ff5dadf180281a74902a18fcf73.tar.gz external_llvm-d2b4aff4bca23ff5dadf180281a74902a18fcf73.tar.bz2 | |
Remove malloc and free from the ocaml bindings.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97367 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 86492d7..23b74dd 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -1204,18 +1204,6 @@ CAMLprim LLVMValueRef llvm_build_not(LLVMValueRef X, /*--... Memory .............................................................--*/ /* lltype -> string -> llbuilder -> llvalue */ -CAMLprim LLVMValueRef llvm_build_malloc(LLVMTypeRef Ty, - value Name, value B) { - return LLVMBuildMalloc(Builder_val(B), Ty, String_val(Name)); -} - -/* lltype -> llvalue -> string -> llbuilder -> llvalue */ -CAMLprim LLVMValueRef llvm_build_array_malloc(LLVMTypeRef Ty, LLVMValueRef Size, - value Name, value B) { - return LLVMBuildArrayMalloc(Builder_val(B), Ty, Size, String_val(Name)); -} - -/* lltype -> string -> llbuilder -> llvalue */ CAMLprim LLVMValueRef llvm_build_alloca(LLVMTypeRef Ty, value Name, value B) { return LLVMBuildAlloca(Builder_val(B), Ty, String_val(Name)); @@ -1227,11 +1215,6 @@ CAMLprim LLVMValueRef llvm_build_array_alloca(LLVMTypeRef Ty, LLVMValueRef Size, return LLVMBuildArrayAlloca(Builder_val(B), Ty, Size, String_val(Name)); } -/* llvalue -> llbuilder -> llvalue */ -CAMLprim LLVMValueRef llvm_build_free(LLVMValueRef Pointer, value B) { - return LLVMBuildFree(Builder_val(B), Pointer); -} - /* llvalue -> string -> llbuilder -> llvalue */ CAMLprim LLVMValueRef llvm_build_load(LLVMValueRef Pointer, value Name, value B) { |