[llvm-commits] [llvm] r42744 - /llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

[Gordon Henriksen]

Author: gordon
Date: Mon Oct  8 07:16:59 2007
New Revision: 42744

URL: http://llvm.org/viewvc/llvm-project?rev=42744&view=rev
Log:
Fixed downrev Ocaml compatibility.

Modified:
    llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

Modified: llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c?rev=42744&r1=42743&r2=42744&view=diff

==============================================================================
--- llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c Mon Oct  8 07:16:59 2007
@@ -416,7 +416,7 @@
   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 @@
   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);
   }