projects
/
oota-llvm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[OCaml] (PR11717) Make declare_qualified_global respect address argument
[oota-llvm.git]
/
bindings
/
ocaml
/
llvm
/
llvm_ocaml.c
diff --git
a/bindings/ocaml/llvm/llvm_ocaml.c
b/bindings/ocaml/llvm/llvm_ocaml.c
index 927432e2479b6933f879ae968f5cc39430ffd14b..46c170b44f34f228311c30b52ee0dfeda07c11cd 100644
(file)
--- a/
bindings/ocaml/llvm/llvm_ocaml.c
+++ b/
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 */