llvm.org GIT mirror llvm / 6bd7730
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 Erick Tryzelaar 10 years ago
1 changed file(s) with 1 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
225225 LLVMValueRef Found;
226226 if (LLVMFindFunction(EE, String_val(Name), &Found))
227227 CAMLreturn(Val_unit);
228 Option = alloc(1, 1);
228 Option = alloc(1, 0);
229229 Field(Option, 0) = Val_op(Found);
230230 CAMLreturn(Option);
231231 }