diff options
author | Chris Lattner <sabre@nondot.org> | 2010-02-09 01:39:46 +0000 |
---|---|---|
committer | Chris Lattner <sabre@nondot.org> | 2010-02-09 01:39:46 +0000 |
commit | c3c3be582de556f2a199f9154ec48f00be8eb077 (patch) | |
tree | ab889eaad506f104277db35730c06ee161f2cd93 /bindings | |
parent | e576f292ee5f7af40489a68fa626d53a14e46a10 (diff) | |
download | llvm-c3c3be582de556f2a199f9154ec48f00be8eb077.tar.gz llvm-c3c3be582de556f2a199f9154ec48f00be8eb077.tar.bz2 llvm-c3c3be582de556f2a199f9154ec48f00be8eb077.tar.xz |
fix llvm_build_struct_gep for PR6167, patch by
Peter Hawkins!
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@95644 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings')
-rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 6cc475d6d4..8fdcac5c19 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -1263,11 +1263,10 @@ CAMLprim LLVMValueRef llvm_build_in_bounds_gep(LLVMValueRef Pointer, /* 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 */ |