maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

Fix arguments to ocaml's llvm_params. 

Thanks to Jianzhou Zhao for finding this.

llvm-svn: 111624
This commit is contained in:
Erick Tryzelaar 2010-08-20 14:51:16 +00:00
parent 21b62ac673
commit 34ce63a464
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
llvm/bindings/ocaml/llvm/llvm_ocaml.c
View File

@ -964,8 +964,8 @@ CAMLprim LLVMValueRef llvm_param(LLVMValueRef Fn, value Index) {
return LLVMGetParam(Fn, Int_val(Index)); return LLVMGetParam(Fn, Int_val(Index));
} }
/* llvalue -> int -> llvalue */ /* llvalue -> llvalue */
CAMLprim value llvm_params(LLVMValueRef Fn, value Index) { CAMLprim value llvm_params(LLVMValueRef Fn) {
value Params = alloc(LLVMCountParams(Fn), 0); value Params = alloc(LLVMCountParams(Fn), 0);
LLVMGetParams(Fn, (LLVMValueRef *) Op_val(Params)); LLVMGetParams(Fn, (LLVMValueRef *) Op_val(Params));
return Params; return Params;