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 | f6fcdbcf9c23f0e1f1559de5b02cc903df6c8dbd (patch) | |
| tree | adaf051eb73cc45305c1baa98df674894728bf5b /llvm/bindings/ocaml/executionengine/executionengine_ocaml.c | |
| parent | e9096c8289b71f0c0de5ac16bccef470bf6a93a8 (diff) | |
| download | bcm5719-llvm-f6fcdbcf9c23f0e1f1559de5b02cc903df6c8dbd.tar.gz bcm5719-llvm-f6fcdbcf9c23f0e1f1559de5b02cc903df6c8dbd.zip | |
Use the ocaml tag 0 since we are just returning an option value.
llvm-svn: 97612
Diffstat (limited to 'llvm/bindings/ocaml/executionengine/executionengine_ocaml.c')
| -rw-r--r-- | llvm/bindings/ocaml/executionengine/executionengine_ocaml.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c b/llvm/bindings/ocaml/executionengine/executionengine_ocaml.c index d12a9f7acde..1d3e57a705b 100644 --- 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); } |
