43 #define PUSH_MSG(ct, ident)                                                    \  argument
44   "\tpushing on stack: %s (%s)\n", cons_text_c[(ct)], get_src((ident))
81 static char *__kmp_pragma(int ct, ident_t const *ident) {  in __kmp_pragma()  argument
89   if (0 < ct && ct < cons_text_c_num) {  in __kmp_pragma()
90     cons = cons_text_c[ct];  in __kmp_pragma()
113                            enum cons_type ct, // Construct type.  in __kmp_error_construct()  argument
116   char *construct = __kmp_pragma(ct, ident);  in __kmp_error_construct()
122                             enum cons_type ct, // First construct type.  in __kmp_error_construct2()  argument
126   char *construct1 = __kmp_pragma(ct, ident);  in __kmp_error_construct2()
212 void __kmp_check_workshare(int gtid, enum cons_type ct, ident_t const *ident) {  in __kmp_check_workshare()  argument
223     __kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,  in __kmp_check_workshare()
228     __kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,  in __kmp_check_workshare()
233 void __kmp_push_workshare(int gtid, enum cons_type ct, ident_t const *ident) {  in __kmp_push_workshare()  argument
237   __kmp_check_workshare(gtid, ct, ident);  in __kmp_push_workshare()
238   KE_TRACE(100, (PUSH_MSG(ct, ident)));  in __kmp_push_workshare()
240   p->stack_data[tos].type = ct;  in __kmp_push_workshare()
250 __kmp_check_sync( int gtid, enum cons_type ct, ident_t const * ident, kmp_user_lock_p lck, kmp_uint…  argument
252 __kmp_check_sync( int gtid, enum cons_type ct, ident_t const * ident, kmp_user_lock_p lck )
262   if (ct == ct_ordered_in_parallel || ct == ct_ordered_in_pdo) {
267       KMP_ASSERT(ct == ct_ordered_in_parallel);
269       __kmp_error_construct(kmp_i18n_msg_CnsBoundToWorksharing, ct, ident);
274         __kmp_error_construct2(kmp_i18n_msg_CnsNoOrderedClause, ct, ident,
292         __kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,
296   } else if (ct == ct_critical) {
318       __kmp_error_construct2(kmp_i18n_msg_CnsNestingSameName, ct, ident, &cons);
320   } else if (ct == ct_master || ct == ct_masked || ct == ct_reduce) {
323       __kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,
326     if (ct == ct_reduce && p->s_top > p->p_top) {
328       __kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,
336 __kmp_push_sync( int gtid, enum cons_type ct, ident_t const * ident, kmp_user_lock_p lck, kmp_uint3…  argument
338 __kmp_push_sync( int gtid, enum cons_type ct, ident_t const * ident, kmp_user_lock_p lck )
347   __kmp_check_sync(gtid, ct, ident, lck, seq);
349   __kmp_check_sync(gtid, ct, ident, lck);
351   KE_TRACE(100, (PUSH_MSG(ct, ident)));
353   p->stack_data[tos].type = ct;
383 enum cons_type __kmp_pop_workshare(int gtid, enum cons_type ct,  argument
391     __kmp_error_construct(kmp_i18n_msg_CnsDetectedEnd, ct, ident);
395       (p->stack_data[tos].type != ct &&
397        !(p->stack_data[tos].type == ct_pdo_ordered && ct == ct_pdo))) {
399     __kmp_error_construct2(kmp_i18n_msg_CnsExpectedEnd, ct, ident,
411 void __kmp_pop_sync(int gtid, enum cons_type ct, ident_t const *ident) {  argument
417     __kmp_error_construct(kmp_i18n_msg_CnsDetectedEnd, ct, ident);
419   if (tos != p->s_top || p->stack_data[tos].type != ct) {
421     __kmp_error_construct2(kmp_i18n_msg_CnsExpectedEnd, ct, ident,
434 void __kmp_check_barrier(int gtid, enum cons_type ct, ident_t const *ident) {  argument
443     __kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,
448     __kmp_error_construct2(kmp_i18n_msg_CnsInvalidNesting, ct, ident,