aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorJulian Brown <julian@codesourcery.com>2019-05-20 17:27:38 -0700
committerKwok Cheung Yeung <kcy@codesourcery.com>2022-06-21 14:11:15 +0100
commit43a2dffa47aefeba76866027a68bc7308df0a167 (patch)
tree667f7c359de3808d9278ee60b8354a38d318086c /gcc
parent1665877ae57b9a2c9719da3db439d56196d2acd6 (diff)
downloadgcc-43a2dffa47aefeba76866027a68bc7308df0a167.zip
gcc-43a2dffa47aefeba76866027a68bc7308df0a167.tar.gz
gcc-43a2dffa47aefeba76866027a68bc7308df0a167.tar.bz2
Fix lexically-nested data mappings for no_alloc or optional arguments
gcc/ * gimplify.cc (gimplify_adjust_omp_clauses_1): Support implied no_alloc and optional arguments based on mappings in enclosing data regions.
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ChangeLog.omp5
-rw-r--r--gcc/gimplify.cc12
2 files changed, 13 insertions, 4 deletions
diff --git a/gcc/ChangeLog.omp b/gcc/ChangeLog.omp
index 286ff0f..40d7e5a 100644
--- a/gcc/ChangeLog.omp
+++ b/gcc/ChangeLog.omp
@@ -1,3 +1,8 @@
+2019-05-20 Julian Brown <julian@codesourcery.com>
+
+ * gimplify.cc (gimplify_adjust_omp_clauses_1): Support implied no_alloc
+ and optional arguments based on mappings in enclosing data regions.
+
2019-05-19 Julian Brown <julian@codesourcery.com>
* gimplify.cc (oacc_array_mapping_info): Add REF field.
diff --git a/gcc/gimplify.cc b/gcc/gimplify.cc
index 355b5b0..477576f 100644
--- a/gcc/gimplify.cc
+++ b/gcc/gimplify.cc
@@ -11336,9 +11336,12 @@ gimplify_adjust_omp_clauses_1 (splay_tree_node n, void *data)
{
tree mapping = array_info->mapping;
tree pointer = array_info->pointer;
- const gomp_map_kind presence_kind
- = omp_check_optional_argument (decl, false) ? GOMP_MAP_IF_PRESENT
- : GOMP_MAP_FORCE_PRESENT;
+ gomp_map_kind presence_kind = GOMP_MAP_FORCE_PRESENT;
+ bool no_alloc = (OMP_CLAUSE_CODE (mapping) == OMP_CLAUSE_MAP
+ && OMP_CLAUSE_MAP_KIND (mapping) == GOMP_MAP_IF_PRESENT);
+
+ if (no_alloc || omp_check_optional_argument (decl, false))
+ presence_kind = GOMP_MAP_IF_PRESENT;
if (code == OMP_CLAUSE_FIRSTPRIVATE)
/* Oops, we have the wrong type of clause. Rebuild it. */
@@ -11353,7 +11356,8 @@ gimplify_adjust_omp_clauses_1 (splay_tree_node n, void *data)
tree nc = build_omp_clause (OMP_CLAUSE_LOCATION (clause),
OMP_CLAUSE_MAP);
OMP_CLAUSE_DECL (nc) = unshare_expr (OMP_CLAUSE_DECL (pointer));
- OMP_CLAUSE_SET_MAP_KIND (nc, GOMP_MAP_POINTER);
+ OMP_CLAUSE_SET_MAP_KIND (nc, no_alloc ? GOMP_MAP_FIRSTPRIVATE_POINTER
+ : GOMP_MAP_POINTER);
/* For GOMP_MAP_FIRSTPRIVATE_POINTER, this is a bias, not a size. */
OMP_CLAUSE_SIZE (nc) = unshare_expr (OMP_CLAUSE_SIZE (pointer));