From 93535a2b40367e6f68433295b37dc52c0e9c2c55 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 3 Jun 2020 12:28:25 +0200 Subject: [OpenMP] Fix mapping of artificial variables (PR94874) gcc/c-family/ChangeLog: * c-common.h (c_omp_predetermined_mapping): Declare. * c-omp.c (c_omp_predetermined_mapping): New. gcc/c/ChangeLog: * c-objc-common.h (LANG_HOOKS_OMP_PREDETERMINED_MAPPING): Redefine. gcc/cp/ChangeLog: * cp-gimplify.c (cxx_omp_predetermined_mapping): New. * cp-objcp-common.h (LANG_HOOKS_OMP_PREDETERMINED_MAPPING): Redfine. * cp-tree.h (cxx_omp_predetermined_mapping): Declare. gcc/fortran/ChangeLog: * f95-lang.c (LANG_HOOKS_OMP_PREDETERMINED_MAPPING): Redefine. * trans-openmp.c (gfc_omp_predetermined_mapping): New. * trans.h (gfc_omp_predetermined_mapping): Declare. gcc/ChangeLog: * gimplify.c (omp_notice_variable): Use new hook. * langhooks-def.h (lhd_omp_predetermined_mapping): Declare. (LANG_HOOKS_OMP_PREDETERMINED_MAPPING): Define (LANG_HOOKS_DECLS): Add it. * langhooks.c (lhd_omp_predetermined_sharing): Remove bogus unused attr. (lhd_omp_predetermined_mapping): New. * langhooks.h (struct lang_hooks_for_decls): Add new hook. gcc/testsuite/ChangeLog 2020-06-03 Thomas Schwinge Tobias Burnus PR middle-end/94874 * c-c++-common/gomp/pr94874.c: New. --- gcc/langhooks.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'gcc/langhooks.c') diff --git a/gcc/langhooks.c b/gcc/langhooks.c index 5e3216d..1cb7cda 100644 --- a/gcc/langhooks.c +++ b/gcc/langhooks.c @@ -579,13 +579,24 @@ lhd_expr_to_decl (tree expr, bool *tc ATTRIBUTE_UNUSED, bool *se ATTRIBUTE_UNUSE predetermined, OMP_CLAUSE_DEFAULT_UNSPECIFIED otherwise. */ enum omp_clause_default_kind -lhd_omp_predetermined_sharing (tree decl ATTRIBUTE_UNUSED) +lhd_omp_predetermined_sharing (tree decl) { if (DECL_ARTIFICIAL (decl)) return OMP_CLAUSE_DEFAULT_SHARED; return OMP_CLAUSE_DEFAULT_UNSPECIFIED; } +/* Return sharing kind if OpenMP mapping attribute of DECL is + predetermined, OMP_CLAUSE_DEFAULTMAP_CATEGORY_UNSPECIFIED otherwise. */ + +enum omp_clause_defaultmap_kind +lhd_omp_predetermined_mapping (tree decl) +{ + if (DECL_ARTIFICIAL (decl)) + return OMP_CLAUSE_DEFAULTMAP_TO; + return OMP_CLAUSE_DEFAULTMAP_CATEGORY_UNSPECIFIED; +} + /* Generate code to copy SRC to DST. */ tree -- cgit v1.1