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

[Chris Lattner]

Author: lattner
Date: Mon Feb  8 19:39:46 2010
New Revision: 95644

URL: http://llvm.org/viewvc/llvm-project?rev=95644&view=rev
Log:
fix llvm_build_struct_gep for PR6167, patch by
Peter Hawkins!

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=95644&r1=95643&r2=95644&view=diff

==============================================================================
--- llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c Mon Feb  8 19:39:46 2010
@@ -1263,11 +1263,10 @@
 
 /* llvalue -> int -> string -> llbuilder -> llvalue */
 CAMLprim LLVMValueRef llvm_build_struct_gep(LLVMValueRef Pointer,
-                                               value Indices, value Name,
+                                               value Index, value Name,
                                                value B) {
-  return LLVMBuildInBoundsGEP(Builder_val(B), Pointer,
-                              (LLVMValueRef *) Op_val(Indices),
-                              Wosize_val(Indices), String_val(Name));
+  return LLVMBuildStructGEP(Builder_val(B), Pointer,
+                              Int_val(Index), String_val(Name));
 }
 
 /* string -> string -> llbuilder -> llvalue */