aboutsummaryrefslogtreecommitdiffstats
path: root/bindings
diff options
context:
space:
mode:
authorErick Tryzelaar <idadesub@users.sourceforge.net>2010-08-20 14:51:16 +0000
committerErick Tryzelaar <idadesub@users.sourceforge.net>2010-08-20 14:51:16 +0000
commite12741055015ef5b98e1225834fcece0a3f04029 (patch)
tree1aacf1ea45ffde85f7b81e28bdf7977828386a0c /bindings
parent2a7d731828ab87bba42f7ecac8db509646cd2cdd (diff)
downloadexternal_llvm-e12741055015ef5b98e1225834fcece0a3f04029.zip
external_llvm-e12741055015ef5b98e1225834fcece0a3f04029.tar.gz
external_llvm-e12741055015ef5b98e1225834fcece0a3f04029.tar.bz2
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
Diffstat (limited to 'bindings')
-rw-r--r--bindings/ocaml/llvm/llvm_ocaml.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c
index c4355ba..2caa387 100644
--- a/bindings/ocaml/llvm/llvm_ocaml.c
+++ b/bindings/ocaml/llvm/llvm_ocaml.c
@@ -964,8 +964,8 @@ CAMLprim LLVMValueRef llvm_param(LLVMValueRef Fn, value Index) {
return LLVMGetParam(Fn, Int_val(Index));
}
-/* llvalue -> int -> llvalue */
-CAMLprim value llvm_params(LLVMValueRef Fn, value Index) {
+/* llvalue -> llvalue */
+CAMLprim value llvm_params(LLVMValueRef Fn) {
value Params = alloc(LLVMCountParams(Fn), 0);
LLVMGetParams(Fn, (LLVMValueRef *) Op_val(Params));
return Params;