4a38b02b4e
gcc/c-family/ * c-common.c (c_common_attribute_table): Handle "omp declare target link" attribute. gcc/ * cgraphunit.c (output_in_order): Do not assemble "omp declare target link" variables in ACCEL_COMPILER. * gimplify.c (gimplify_adjust_omp_clauses): Do not remove mapping of "omp declare target link" variables. * omp-low.c (scan_sharing_clauses): Do not remove mapping of "omp declare target link" variables. (add_decls_addresses_to_decl_constructor): For "omp declare target link" variables output address of the artificial pointer instead of address of the variable. Set most significant bit of the size to mark them. (pass_data_omp_target_link): New pass_data. (pass_omp_target_link): New class. (find_link_var_op): New static function. (make_pass_omp_target_link): New function. * passes.def: Add pass_omp_target_link. * tree-pass.h (make_pass_omp_target_link): Declare. * varpool.c (symbol_table::output_variables): Do not assemble "omp declare target link" variables in ACCEL_COMPILER. gcc/lto/ * lto.c: Include stringpool.h and fold-const.h. (offload_handle_link_vars): New static function. (lto_main): Call offload_handle_link_vars. libgomp/ * libgomp.h (REFCOUNT_LINK): Define. (struct splay_tree_key_s): Add link_key. * target.c (gomp_map_vars): Treat REFCOUNT_LINK objects as not mapped. Replace target address of the pointer with target address of newly mapped object in the splay tree. Set link pointer on target to the device address of the mapped object. (gomp_unmap_vars): Restore target address of the pointer in the splay tree for REFCOUNT_LINK objects after unmapping. (gomp_load_image_to_device): Set refcount to REFCOUNT_LINK for "omp declare target link" objects. (gomp_unload_image_from_device): Replace j with i. Force unmap of all "omp declare target link" objects, which were mapped for the image. (gomp_exit_data): Restore target address of the pointer in the splay tree for REFCOUNT_LINK objects after unmapping. * testsuite/libgomp.c/target-link-1.c: New file. From-SVN: r231655
64 lines
1.1 KiB
C
64 lines
1.1 KiB
C
struct S { int s, t; };
|
|
|
|
int a = 1, b = 1;
|
|
double c[27];
|
|
struct S d = { 8888, 8888 };
|
|
#pragma omp declare target link (a) to (b) link (c, d)
|
|
|
|
int
|
|
foo (void)
|
|
{
|
|
return a++ + b++;
|
|
}
|
|
|
|
int
|
|
bar (int n)
|
|
{
|
|
int *p1 = &a;
|
|
int *p2 = &b;
|
|
c[n] += 2.0;
|
|
d.s -= 2;
|
|
d.t -= 2;
|
|
return *p1 + *p2 + d.s + d.t;
|
|
}
|
|
|
|
#pragma omp declare target (foo, bar)
|
|
|
|
int
|
|
main ()
|
|
{
|
|
a = b = 2;
|
|
d.s = 17;
|
|
d.t = 18;
|
|
|
|
int res, n = 10;
|
|
#pragma omp target map (to: a, b, c, d) map (from: res)
|
|
{
|
|
res = foo () + foo ();
|
|
c[n] = 3.0;
|
|
res += bar (n);
|
|
}
|
|
|
|
int shared_mem = 0;
|
|
#pragma omp target map (alloc: shared_mem)
|
|
shared_mem = 1;
|
|
|
|
if ((shared_mem && res != (2 + 2) + (3 + 3) + (4 + 4 + 15 + 16))
|
|
|| (!shared_mem && res != (2 + 1) + (3 + 2) + (4 + 3 + 15 + 16)))
|
|
__builtin_abort ();
|
|
|
|
#pragma omp target enter data map (to: c)
|
|
#pragma omp target update from (c)
|
|
res = (int) (c[n] + 0.5);
|
|
if ((shared_mem && res != 5) || (!shared_mem && res != 0))
|
|
__builtin_abort ();
|
|
|
|
#pragma omp target map (to: a, b) map (from: res)
|
|
res = foo ();
|
|
|
|
if ((shared_mem && res != 4 + 4) || (!shared_mem && res != 2 + 3))
|
|
__builtin_abort ();
|
|
|
|
return 0;
|
|
}
|