Fixed downrev Ocaml compatibility.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@42744 91177308-0d34-0410-b5e6-96231b3b80d8

diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c
index 3eae5d9f0ab8bffff93d20c2cde3e790e71c9174..98354fc84cdb6b4f89a5a72e1eb0a51cdecd830d 100644 (file)
--- 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);
   }