6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-01-15 23:31:37 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97612 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Erick Tryzelaar 2010-03-02 23:59:08 +00:00
parent df75eb64a7
commit 6bd7730426
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/ocaml/executionengine/executionengine_ocaml.c
View File

@ -226,7 +226,7 @@ CAMLprim value llvm_ee_find_function(value Name, LLVMExecutionEngineRef EE) {
LLVMValueRef Found; LLVMValueRef Found;
if (LLVMFindFunction(EE, String_val(Name), &Found)) if (LLVMFindFunction(EE, String_val(Name), &Found))
CAMLreturn(Val_unit); CAMLreturn(Val_unit);
Option = alloc(1, 1); Option = alloc(1, 0);
Field(Option, 0) = Val_op(Found); Field(Option, 0) = Val_op(Found);
CAMLreturn(Option); CAMLreturn(Option);
} }