From 633360c9d9312cd159ab4ef98e918924a06cfdbd Mon Sep 17 00:00:00 2001 From: Gordon Henriksen Date: Mon, 8 Oct 2007 12:16:59 +0000 Subject: Fixed downrev Ocaml compatibility. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@42744 91177308-0d34-0410-b5e6-96231b3b80d8 --- bindings/ocaml/llvm/llvm_ocaml.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bindings') diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 3eae5d9f0a..98354fc84c 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/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); } -- cgit v1.2.3