From: Thomas Schwinge Date: Fri, 19 May 2017 13:32:30 +0000 (+0200) Subject: Clarify gcc/gimplify.c:oacc_default_clause X-Git-Tag: upstream/12.2.0~39367 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0d0afa9fafec1711b52259b9b8caebf51380216d;p=platform%2Fupstream%2Fgcc.git Clarify gcc/gimplify.c:oacc_default_clause gcc/ * gimplify.c (oacc_default_clause): Clarify. From-SVN: r248279 --- diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 44ff617..8f63902 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,7 @@ +2017-05-19 Thomas Schwinge + + * gimplify.c (oacc_default_clause): Clarify. + 2017-05-19 Nathan Sidwell LANG_HOOK_REGISTER_DUMPS diff --git a/gcc/gimplify.c b/gcc/gimplify.c index acaab8b..0c02ee4 100644 --- a/gcc/gimplify.c +++ b/gcc/gimplify.c @@ -6952,30 +6952,34 @@ oacc_default_clause (struct gimplify_omp_ctx *ctx, tree decl, unsigned flags) switch (ctx->region_type) { - default: - gcc_unreachable (); - case ORT_ACC_KERNELS: - /* Scalars are default 'copy' under kernels, non-scalars are default - 'present_or_copy'. */ - flags |= GOVD_MAP; - if (!AGGREGATE_TYPE_P (type)) - flags |= GOVD_MAP_FORCE; - rkind = "kernels"; + + if (AGGREGATE_TYPE_P (type)) + /* Aggregates default to 'present_or_copy'. */ + flags |= GOVD_MAP; + else + /* Scalars default to 'copy'. */ + flags |= GOVD_MAP | GOVD_MAP_FORCE; + break; case ORT_ACC_PARALLEL: - { - if (on_device || AGGREGATE_TYPE_P (type) || declared) - /* Aggregates default to 'present_or_copy'. */ - flags |= GOVD_MAP; - else - /* Scalars default to 'firstprivate'. */ - flags |= GOVD_FIRSTPRIVATE; - rkind = "parallel"; - } + rkind = "parallel"; + + if (on_device || declared) + flags |= GOVD_MAP; + else if (AGGREGATE_TYPE_P (type)) + /* Aggregates default to 'present_or_copy'. */ + flags |= GOVD_MAP; + else + /* Scalars default to 'firstprivate'. */ + flags |= GOVD_FIRSTPRIVATE; + break; + + default: + gcc_unreachable (); } if (DECL_ARTIFICIAL (decl))