From ce7a91b2778f7cc3adf714c25734f219937af1ea Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Tue, 5 Nov 2013 11:56:13 +0000 Subject: [OCaml] (PR11717) Make declare_qualified_global respect address argument Original patch by Jonathan Ragan-Kelley llvm-svn: 194064 --- llvm/bindings/ocaml/llvm/llvm_ocaml.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'llvm/bindings') diff --git a/llvm/bindings/ocaml/llvm/llvm_ocaml.c b/llvm/bindings/ocaml/llvm/llvm_ocaml.c index 927432e2479..46c170b44f3 100644 --- a/llvm/bindings/ocaml/llvm/llvm_ocaml.c +++ b/llvm/bindings/ocaml/llvm/llvm_ocaml.c @@ -930,7 +930,8 @@ CAMLprim LLVMValueRef llvm_declare_qualified_global(LLVMTypeRef Ty, value Name, LLVMPointerType(Ty, Int_val(AddressSpace))); return GlobalVar; } - return LLVMAddGlobal(M, Ty, String_val(Name)); + return LLVMAddGlobalInAddressSpace(M, Ty, String_val(Name), + Int_val(AddressSpace)); } /* string -> llmodule -> llvalue option */ -- cgit v1.2.3