diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-10-08 12:16:59 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-10-08 12:16:59 +0000 |
| commit | acf684315e39603957019c69243fba79d4068ba6 (patch) | |
| tree | edeea7e47499c1d7143dfbcfff1c162a7adf4c9a /llvm | |
| parent | 74529b7d5f51b78e11e5bc37a508ded875812c92 (diff) | |
| download | bcm5719-llvm-acf684315e39603957019c69243fba79d4068ba6.tar.gz bcm5719-llvm-acf684315e39603957019c69243fba79d4068ba6.zip | |
Fixed downrev Ocaml compatibility.
llvm-svn: 42744
Diffstat (limited to 'llvm')
| -rw-r--r-- | llvm/bindings/ocaml/llvm/llvm_ocaml.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/llvm/bindings/ocaml/llvm/llvm_ocaml.c b/llvm/bindings/ocaml/llvm/llvm_ocaml.c index 3eae5d9f0ab..98354fc84cd 100644 --- a/llvm/bindings/ocaml/llvm/llvm_ocaml.c +++ b/llvm/bindings/ocaml/llvm/llvm_ocaml.c @@ -416,7 +416,7 @@ CAMLprim value llvm_lookup_global(value Name, LLVMModuleRef M) { CAMLparam1(Name); LLVMValueRef GlobalVar; if ((GlobalVar = LLVMGetNamedGlobal(M, String_val(Name)))) { - value Option = caml_alloc(1, 1); + value Option = alloc(1, 1); Field(Option, 0) = (value) GlobalVar; CAMLreturn(Option); } @@ -493,7 +493,7 @@ CAMLprim value llvm_lookup_function(value Name, LLVMModuleRef M) { CAMLparam1(Name); LLVMValueRef Fn; if ((Fn = LLVMGetNamedFunction(M, String_val(Name)))) { - value Option = caml_alloc(1, 1); + value Option = alloc(1, 1); Field(Option, 0) = (value) Fn; CAMLreturn(Option); } |
