RPCSX/llvm
1
0
Fork 0
mirror of https://github.com/RPCSX/llvm.git synced 2024-11-24 20:29:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[OCaml] (PR11717) Make declare_qualified_global respect address argument

Browse Source 
Original patch by Jonathan Ragan-Kelley

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194064 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2013-11-05 11:56:13 +00:00
parent 8f198b0d60
commit 150c95eab5
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bindings/ocaml/llvm/llvm_ocaml.c
View File

@ -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 */

9
test/Bindings/Ocaml/vmcore.ml
View File

@ -405,7 +405,8 @@ let test_global_variables () =
let fourty_two32 = const_int i32_type 42 in
group "declarations"; begin
(* CHECK: GVar01{{.*}}external
(* CHECK: @GVar01 = external global i32
* CHECK: @QGVar01 = external addrspace(3) global i32
*)
insist (None == lookup_global "GVar01" m);
let g = declare_global i32_type "GVar01" m in
@ -427,8 +428,10 @@ let test_global_variables () =
end;
group "definitions"; begin
(* CHECK: GVar02{{.*}}42
* CHECK: GVar03{{.*}}42
(* CHECK: @GVar02 = global i32 42
* CHECK: @GVar03 = global i32 42
* CHECK: @QGVar02 = addrspace(3) global i32 42
* CHECK: @QGVar03 = addrspace(3) global i32 42
*)
let g = define_global "GVar02" fourty_two32 m in
let g2 = declare_global i32_type "GVar03" m ++