RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2025-02-28 16:28:58 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix arguments to ocaml's llvm_params.

Browse Source 
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 42d06735ca
commit 429605f7cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
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;