diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-02 23:59:08 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-02 23:59:08 +0000 |
| commit | 6bd7730426ccb80e3444e0ca8c2c4e607e53defd (patch) | |
| tree | 6399366d0a6fffddd4ec310c20ea57c9d57a0a73 /bindings | |
| parent | df75eb64a7e34083051315cfed02d1559084d4cf (diff) | |
| download | external_llvm-6bd7730426ccb80e3444e0ca8c2c4e607e53defd.zip external_llvm-6bd7730426ccb80e3444e0ca8c2c4e607e53defd.tar.gz external_llvm-6bd7730426ccb80e3444e0ca8c2c4e607e53defd.tar.bz2 | |
Use the ocaml tag 0 since we are just returning an option value.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97612 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings')
| -rw-r--r-- | bindings/ocaml/executionengine/executionengine_ocaml.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bindings/ocaml/executionengine/executionengine_ocaml.c b/bindings/ocaml/executionengine/executionengine_ocaml.c index d12a9f7..1d3e57a 100644 --- a/bindings/ocaml/executionengine/executionengine_ocaml.c +++ b/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); } |