[llvm-commits] [llvm] r97612 - /llvm/trunk/bindings/ocaml/executionengine/executionengine_ocaml.c

[Erick Tryzelaar]

Author: erickt
Date: Tue Mar  2 17:59:08 2010
New Revision: 97612

URL: http://llvm.org/viewvc/llvm-project?rev=97612&view=rev
Log:
Use the ocaml tag 0 since we are just returning an option value.

Modified:
    llvm/trunk/bindings/ocaml/executionengine/executionengine_ocaml.c

Modified: llvm/trunk/bindings/ocaml/executionengine/executionengine_ocaml.c
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/executionengine/executionengine_ocaml.c?rev=97612&r1=97611&r2=97612&view=diff
==============================================================================
--- llvm/trunk/bindings/ocaml/executionengine/executionengine_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/executionengine/executionengine_ocaml.c Tue Mar  2 17:59:08 2010
@@ -226,7 +226,7 @@
   LLVMValueRef Found;
   if (LLVMFindFunction(EE, String_val(Name), &Found))
     CAMLreturn(Val_unit);
-  Option = alloc(1, 1);
+  Option = alloc(1, 0);
   Field(Option, 0) = Val_op(Found);
   CAMLreturn(Option);
 }