[llvm-commits] [llvm] r111624 - /llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

[Erick Tryzelaar]

Author: erickt
Date: Fri Aug 20 09:51:16 2010
New Revision: 111624

URL: http://llvm.org/viewvc/llvm-project?rev=111624&view=rev
Log:
Fix arguments to ocaml's llvm_params.

Thanks to Jianzhou Zhao for finding this.

Modified:
    llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

Modified: llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c?rev=111624&r1=111623&r2=111624&view=diff
==============================================================================
--- llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c Fri Aug 20 09:51:16 2010
@@ -964,8 +964,8 @@
   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;