Use the ocaml tag 0 since we are just returning an option value.

llvm-svn: 97612
2010-03-02 23:59:08 +00:00 · 2010-03-02 23:59:08 +00:00 · f6fcdbcf9c
parent e9096c8289
commit f6fcdbcf9c
1 changed files with 1 additions and 1 deletions
--- a/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c
+++ b/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c
@ -226,7 +226,7 @@ CAMLprim value llvm_ee_find_function(value Name, LLVMExecutionEngineRef EE) {
  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);
 }