summaryrefslogtreecommitdiff
path: root/runtime/src/kmp_error.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'runtime/src/kmp_error.cpp')
-rw-r--r--runtime/src/kmp_error.cpp38
1 files changed, 12 insertions, 26 deletions
diff --git a/runtime/src/kmp_error.cpp b/runtime/src/kmp_error.cpp
index 1a708b58758eb..b30b26e3ab2b4 100644
--- a/runtime/src/kmp_error.cpp
+++ b/runtime/src/kmp_error.cpp
@@ -4,10 +4,9 @@
//===----------------------------------------------------------------------===//
//
-// The LLVM Compiler Infrastructure
-//
-// This file is dual licensed under the MIT and the University of Illinois Open
-// Source Licenses. See LICENSE.txt for details.
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
@@ -29,10 +28,8 @@ static char const *cons_text_c[] = {
"\"sections\"",
"work-sharing", /* this is not called "single" because of lowering of
"sections" pragmas */
- "\"taskq\"", "\"taskq\"", "\"taskq ordered\"", "\"critical\"",
- "\"ordered\"", /* in PARALLEL */
+ "\"critical\"", "\"ordered\"", /* in PARALLEL */
"\"ordered\"", /* in PDO */
- "\"ordered\"", /* in TASKQ */
"\"master\"", "\"reduce\"", "\"barrier\""};
#define get_src(ident) ((ident) == NULL ? NULL : (ident)->psource)
@@ -215,9 +212,7 @@ void __kmp_check_workshare(int gtid, enum cons_type ct, ident_t const *ident) {
if (p->stack_top >= p->stack_size) {
__kmp_expand_cons_stack(gtid, p);
}
- if (p->w_top > p->p_top &&
- !(IS_CONS_TYPE_TASKQ(p->stack_data[p->w_top].type) &&
- IS_CONS_TYPE_TASKQ(ct))) {
+ if (p->w_top > p->p_top) {
// We are already in a WORKSHARE construct for this PARALLEL region.
__kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,
&p->stack_data[p->w_top]);
@@ -258,8 +253,7 @@ __kmp_check_sync( int gtid, enum cons_type ct, ident_t const * ident, kmp_user_l
if (p->stack_top >= p->stack_size)
__kmp_expand_cons_stack(gtid, p);
- if (ct == ct_ordered_in_parallel || ct == ct_ordered_in_pdo ||
- ct == ct_ordered_in_taskq) {
+ if (ct == ct_ordered_in_parallel || ct == ct_ordered_in_pdo) {
if (p->w_top <= p->p_top) {
/* we are not in a worksharing construct */
#ifdef BUILD_PARALLEL_ORDERED
@@ -271,13 +265,8 @@ __kmp_check_sync( int gtid, enum cons_type ct, ident_t const * ident, kmp_user_l
} else {
/* inside a WORKSHARING construct for this PARALLEL region */
if (!IS_CONS_TYPE_ORDERED(p->stack_data[p->w_top].type)) {
- if (p->stack_data[p->w_top].type == ct_taskq) {
- __kmp_error_construct2(kmp_i18n_msg_CnsNotInTaskConstruct, ct, ident,
- &p->stack_data[p->w_top]);
- } else {
- __kmp_error_construct2(kmp_i18n_msg_CnsNoOrderedClause, ct, ident,
- &p->stack_data[p->w_top]);
- }
+ __kmp_error_construct2(kmp_i18n_msg_CnsNoOrderedClause, ct, ident,
+ &p->stack_data[p->w_top]);
}
}
if (p->s_top > p->p_top && p->s_top > p->w_top) {
@@ -289,10 +278,8 @@ __kmp_check_sync( int gtid, enum cons_type ct, ident_t const * ident, kmp_user_l
if (stack_type == ct_critical ||
((stack_type == ct_ordered_in_parallel ||
- stack_type == ct_ordered_in_pdo ||
- stack_type ==
- ct_ordered_in_taskq) && /* C doesn't allow named ordered;
- ordered in ordered gets error */
+ stack_type == ct_ordered_in_pdo) &&
+ /* C doesn't allow named ordered; ordered in ordered gets error */
p->stack_data[index].ident != NULL &&
(p->stack_data[index].ident->flags & KMP_IDENT_KMPC))) {
/* we are in ORDERED which is inside an ORDERED or CRITICAL construct */
@@ -400,9 +387,8 @@ enum cons_type __kmp_pop_workshare(int gtid, enum cons_type ct,
if (tos != p->w_top ||
(p->stack_data[tos].type != ct &&
- // below are two exceptions to the rule that construct types must match
- !(p->stack_data[tos].type == ct_pdo_ordered && ct == ct_pdo) &&
- !(p->stack_data[tos].type == ct_task_ordered && ct == ct_task))) {
+ // below is the exception to the rule that construct types must match
+ !(p->stack_data[tos].type == ct_pdo_ordered && ct == ct_pdo))) {
__kmp_check_null_func();
__kmp_error_construct2(kmp_i18n_msg_CnsExpectedEnd, ct, ident,
&p->stack_data[tos]);