llvm.org GIT mirror llvm / e127410
Fix arguments to ocaml's llvm_params. Thanks to Jianzhou Zhao for finding this. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@111624 91177308-0d34-0410-b5e6-96231b3b80d8 Erick Tryzelaar 10 years ago
1 changed file(s) with 2 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all
963963 return LLVMGetParam(Fn, Int_val(Index));
964964 }
965965
966 /* llvalue -> int -> llvalue */
967 CAMLprim value llvm_params(LLVMValueRef Fn, value Index) {
966 /* llvalue -> llvalue */
967 CAMLprim value llvm_params(LLVMValueRef Fn) {
968968 value Params = alloc(LLVMCountParams(Fn), 0);
969969 LLVMGetParams(Fn, (LLVMValueRef *) Op_val(Params));
970970 return Params;