diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-08-20 14:51:16 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-08-20 14:51:16 +0000 |
| commit | e12741055015ef5b98e1225834fcece0a3f04029 (patch) | |
| tree | 1aacf1ea45ffde85f7b81e28bdf7977828386a0c /bindings/ocaml/llvm | |
| parent | 2a7d731828ab87bba42f7ecac8db509646cd2cdd (diff) | |
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/ocaml/llvm')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index c4355ba2db..2caa3876dc 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; |