| File: | build/source/openmp/runtime/src/kmp_gsupport.cpp |
| Warning: | line 1569, column 5 Called C++ object pointer is uninitialized |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
| 1 | /* | |||
| 2 | * kmp_gsupport.cpp | |||
| 3 | */ | |||
| 4 | ||||
| 5 | //===----------------------------------------------------------------------===// | |||
| 6 | // | |||
| 7 | // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. | |||
| 8 | // See https://llvm.org/LICENSE.txt for license information. | |||
| 9 | // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception | |||
| 10 | // | |||
| 11 | //===----------------------------------------------------------------------===// | |||
| 12 | ||||
| 13 | #include "kmp.h" | |||
| 14 | #include "kmp_atomic.h" | |||
| 15 | ||||
| 16 | #if OMPT_SUPPORT1 | |||
| 17 | #include "ompt-specific.h" | |||
| 18 | #endif | |||
| 19 | ||||
| 20 | enum { | |||
| 21 | KMP_GOMP_TASK_UNTIED_FLAG = 1, | |||
| 22 | KMP_GOMP_TASK_FINAL_FLAG = 2, | |||
| 23 | KMP_GOMP_TASK_DEPENDS_FLAG = 8 | |||
| 24 | }; | |||
| 25 | ||||
| 26 | enum { | |||
| 27 | KMP_GOMP_DEPOBJ_IN = 1, | |||
| 28 | KMP_GOMP_DEPOBJ_OUT = 2, | |||
| 29 | KMP_GOMP_DEPOBJ_INOUT = 3, | |||
| 30 | KMP_GOMP_DEPOBJ_MTXINOUTSET = 4 | |||
| 31 | }; | |||
| 32 | ||||
| 33 | // This class helps convert gomp dependency info into | |||
| 34 | // kmp_depend_info_t structures | |||
| 35 | class kmp_gomp_depends_info_t { | |||
| 36 | void **depend; | |||
| 37 | kmp_int32 num_deps; | |||
| 38 | size_t num_out, num_mutexinout, num_in, num_depobj; | |||
| 39 | size_t offset; | |||
| 40 | ||||
| 41 | public: | |||
| 42 | kmp_gomp_depends_info_t(void **depend) : depend(depend) { | |||
| 43 | size_t ndeps = (kmp_intptr_t)depend[0]; | |||
| 44 | // GOMP taskdep structure: | |||
| 45 | // if depend[0] != 0: | |||
| 46 | // depend = [ ndeps | nout | &out | ... | &out | &in | ... | &in ] | |||
| 47 | // | |||
| 48 | // if depend[0] == 0: | |||
| 49 | // depend = [ 0 | ndeps | nout | nmtx | nin | &out | ... | &out | &mtx | | |||
| 50 | // ... | &mtx | &in | ... | &in | &depobj | ... | &depobj ] | |||
| 51 | if (ndeps) { | |||
| 52 | num_out = (kmp_intptr_t)depend[1]; | |||
| 53 | num_in = ndeps - num_out; | |||
| 54 | num_mutexinout = num_depobj = 0; | |||
| 55 | offset = 2; | |||
| 56 | } else { | |||
| 57 | ndeps = (kmp_intptr_t)depend[1]; | |||
| 58 | num_out = (kmp_intptr_t)depend[2]; | |||
| 59 | num_mutexinout = (kmp_intptr_t)depend[3]; | |||
| 60 | num_in = (kmp_intptr_t)depend[4]; | |||
| 61 | num_depobj = ndeps - num_out - num_mutexinout - num_in; | |||
| 62 | KMP_ASSERT(num_depobj <= ndeps)if (!(num_depobj <= ndeps)) { __kmp_debug_assert("num_depobj <= ndeps" , "openmp/runtime/src/kmp_gsupport.cpp", 62); }; | |||
| 63 | offset = 5; | |||
| 64 | } | |||
| 65 | num_deps = static_cast<kmp_int32>(ndeps); | |||
| 66 | } | |||
| 67 | kmp_int32 get_num_deps() const { return num_deps; } | |||
| 68 | kmp_depend_info_t get_kmp_depend(size_t index) const { | |||
| 69 | kmp_depend_info_t retval; | |||
| 70 | memset(&retval, '\0', sizeof(retval)); | |||
| 71 | KMP_ASSERT(index < (size_t)num_deps)if (!(index < (size_t)num_deps)) { __kmp_debug_assert("index < (size_t)num_deps" , "openmp/runtime/src/kmp_gsupport.cpp", 71); }; | |||
| 72 | retval.len = 0; | |||
| 73 | // Because inout and out are logically equivalent, | |||
| 74 | // use inout and in dependency flags. GOMP does not provide a | |||
| 75 | // way to distinguish if user specified out vs. inout. | |||
| 76 | if (index < num_out) { | |||
| 77 | retval.flags.in = 1; | |||
| 78 | retval.flags.out = 1; | |||
| 79 | retval.base_addr = (kmp_intptr_t)depend[offset + index]; | |||
| 80 | } else if (index >= num_out && index < (num_out + num_mutexinout)) { | |||
| 81 | retval.flags.mtx = 1; | |||
| 82 | retval.base_addr = (kmp_intptr_t)depend[offset + index]; | |||
| 83 | } else if (index >= (num_out + num_mutexinout) && | |||
| 84 | index < (num_out + num_mutexinout + num_in)) { | |||
| 85 | retval.flags.in = 1; | |||
| 86 | retval.base_addr = (kmp_intptr_t)depend[offset + index]; | |||
| 87 | } else { | |||
| 88 | // depobj is a two element array (size of elements are size of pointer) | |||
| 89 | // depobj[0] = base_addr | |||
| 90 | // depobj[1] = type (in, out, inout, mutexinoutset, etc.) | |||
| 91 | kmp_intptr_t *depobj = (kmp_intptr_t *)depend[offset + index]; | |||
| 92 | retval.base_addr = depobj[0]; | |||
| 93 | switch (depobj[1]) { | |||
| 94 | case KMP_GOMP_DEPOBJ_IN: | |||
| 95 | retval.flags.in = 1; | |||
| 96 | break; | |||
| 97 | case KMP_GOMP_DEPOBJ_OUT: | |||
| 98 | retval.flags.out = 1; | |||
| 99 | break; | |||
| 100 | case KMP_GOMP_DEPOBJ_INOUT: | |||
| 101 | retval.flags.in = 1; | |||
| 102 | retval.flags.out = 1; | |||
| 103 | break; | |||
| 104 | case KMP_GOMP_DEPOBJ_MTXINOUTSET: | |||
| 105 | retval.flags.mtx = 1; | |||
| 106 | break; | |||
| 107 | default: | |||
| 108 | KMP_FATAL(GompFeatureNotSupported, "Unknown depobj type")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "Unknown depobj type"), __kmp_msg_null); | |||
| 109 | } | |||
| 110 | } | |||
| 111 | return retval; | |||
| 112 | } | |||
| 113 | }; | |||
| 114 | ||||
| 115 | #ifdef __cplusplus201703L | |||
| 116 | extern "C" { | |||
| 117 | #endif // __cplusplus | |||
| 118 | ||||
| 119 | #define MKLOC(loc, routine)static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" }; \ | |||
| 120 | static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"}; | |||
| 121 | ||||
| 122 | #include "kmp_ftn_os.h" | |||
| 123 | ||||
| 124 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_BARRIER)__kmp_api_GOMP_barrier(void) { | |||
| 125 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 126 | MKLOC(loc, "GOMP_barrier")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 127 | KA_TRACE(20, ("GOMP_barrier: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_barrier: T#%d\n" , gtid); }; | |||
| 128 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 129 | ompt_frame_t *ompt_frame; | |||
| 130 | if (ompt_enabled.enabled) { | |||
| 131 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 132 | ompt_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 133 | } | |||
| 134 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 135 | #endif | |||
| 136 | __kmpc_barrier(&loc, gtid); | |||
| 137 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 138 | if (ompt_enabled.enabled) { | |||
| 139 | ompt_frame->enter_frame = ompt_data_none{0}; | |||
| 140 | } | |||
| 141 | #endif | |||
| 142 | } | |||
| 143 | ||||
| 144 | // Mutual exclusion | |||
| 145 | ||||
| 146 | // The symbol that icc/ifort generates for unnamed for unnamed critical sections | |||
| 147 | // - .gomp_critical_user_ - is defined using .comm in any objects reference it. | |||
| 148 | // We can't reference it directly here in C code, as the symbol contains a ".". | |||
| 149 | // | |||
| 150 | // The RTL contains an assembly language definition of .gomp_critical_user_ | |||
| 151 | // with another symbol __kmp_unnamed_critical_addr initialized with it's | |||
| 152 | // address. | |||
| 153 | extern kmp_critical_name *__kmp_unnamed_critical_addr; | |||
| 154 | ||||
| 155 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_CRITICAL_START)__kmp_api_GOMP_critical_start(void) { | |||
| 156 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 157 | MKLOC(loc, "GOMP_critical_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 158 | KA_TRACE(20, ("GOMP_critical_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_critical_start: T#%d\n" , gtid); }; | |||
| 159 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 160 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 161 | #endif | |||
| 162 | __kmpc_critical(&loc, gtid, __kmp_unnamed_critical_addr); | |||
| 163 | } | |||
| 164 | ||||
| 165 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_CRITICAL_END)__kmp_api_GOMP_critical_end(void) { | |||
| 166 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 167 | MKLOC(loc, "GOMP_critical_end")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 168 | KA_TRACE(20, ("GOMP_critical_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_critical_end: T#%d\n" , gtid); }; | |||
| 169 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 170 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 171 | #endif | |||
| 172 | __kmpc_end_critical(&loc, gtid, __kmp_unnamed_critical_addr); | |||
| 173 | } | |||
| 174 | ||||
| 175 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_CRITICAL_NAME_START)__kmp_api_GOMP_critical_name_start(void **pptr) { | |||
| 176 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 177 | MKLOC(loc, "GOMP_critical_name_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 178 | KA_TRACE(20, ("GOMP_critical_name_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_critical_name_start: T#%d\n" , gtid); }; | |||
| 179 | __kmpc_critical(&loc, gtid, (kmp_critical_name *)pptr); | |||
| 180 | } | |||
| 181 | ||||
| 182 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_CRITICAL_NAME_END)__kmp_api_GOMP_critical_name_end(void **pptr) { | |||
| 183 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 184 | MKLOC(loc, "GOMP_critical_name_end")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 185 | KA_TRACE(20, ("GOMP_critical_name_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_critical_name_end: T#%d\n" , gtid); }; | |||
| 186 | __kmpc_end_critical(&loc, gtid, (kmp_critical_name *)pptr); | |||
| 187 | } | |||
| 188 | ||||
| 189 | // The Gnu codegen tries to use locked operations to perform atomic updates | |||
| 190 | // inline. If it can't, then it calls GOMP_atomic_start() before performing | |||
| 191 | // the update and GOMP_atomic_end() afterward, regardless of the data type. | |||
| 192 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_ATOMIC_START)__kmp_api_GOMP_atomic_start(void) { | |||
| 193 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 194 | KA_TRACE(20, ("GOMP_atomic_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_atomic_start: T#%d\n" , gtid); }; | |||
| 195 | ||||
| 196 | #if OMPT_SUPPORT1 | |||
| 197 | __ompt_thread_assign_wait_id(0); | |||
| 198 | #endif | |||
| 199 | ||||
| 200 | __kmp_acquire_atomic_lock(&__kmp_atomic_lock, gtid); | |||
| 201 | } | |||
| 202 | ||||
| 203 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_ATOMIC_END)__kmp_api_GOMP_atomic_end(void) { | |||
| 204 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 205 | KA_TRACE(20, ("GOMP_atomic_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_atomic_end: T#%d\n" , gtid); }; | |||
| 206 | __kmp_release_atomic_lock(&__kmp_atomic_lock, gtid); | |||
| 207 | } | |||
| 208 | ||||
| 209 | int KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SINGLE_START)__kmp_api_GOMP_single_start(void) { | |||
| 210 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 211 | MKLOC(loc, "GOMP_single_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 212 | KA_TRACE(20, ("GOMP_single_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_single_start: T#%d\n" , gtid); }; | |||
| 213 | ||||
| 214 | if (!TCR_4(__kmp_init_parallel)(__kmp_init_parallel)) | |||
| 215 | __kmp_parallel_initialize(); | |||
| 216 | __kmp_resume_if_soft_paused(); | |||
| 217 | ||||
| 218 | // 3rd parameter == FALSE prevents kmp_enter_single from pushing a | |||
| 219 | // workshare when USE_CHECKS is defined. We need to avoid the push, | |||
| 220 | // as there is no corresponding GOMP_single_end() call. | |||
| 221 | kmp_int32 rc = __kmp_enter_single(gtid, &loc, FALSE0); | |||
| 222 | ||||
| 223 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 224 | kmp_info_t *this_thr = __kmp_threads[gtid]; | |||
| 225 | kmp_team_t *team = this_thr->th.th_team; | |||
| 226 | int tid = __kmp_tid_from_gtid(gtid); | |||
| 227 | ||||
| 228 | if (ompt_enabled.enabled) { | |||
| 229 | if (rc) { | |||
| 230 | if (ompt_enabled.ompt_callback_work) { | |||
| 231 | ompt_callbacks.ompt_callback(ompt_callback_work)ompt_callback_work_callback( | |||
| 232 | ompt_work_single_executor, ompt_scope_begin, | |||
| 233 | &(team->t.ompt_team_info.parallel_data), | |||
| 234 | &(team->t.t_implicit_task_taskdata[tid].ompt_task_info.task_data), | |||
| 235 | 1, OMPT_GET_RETURN_ADDRESS(0)__builtin_return_address(0)); | |||
| 236 | } | |||
| 237 | } else { | |||
| 238 | if (ompt_enabled.ompt_callback_work) { | |||
| 239 | ompt_callbacks.ompt_callback(ompt_callback_work)ompt_callback_work_callback( | |||
| 240 | ompt_work_single_other, ompt_scope_begin, | |||
| 241 | &(team->t.ompt_team_info.parallel_data), | |||
| 242 | &(team->t.t_implicit_task_taskdata[tid].ompt_task_info.task_data), | |||
| 243 | 1, OMPT_GET_RETURN_ADDRESS(0)__builtin_return_address(0)); | |||
| 244 | ompt_callbacks.ompt_callback(ompt_callback_work)ompt_callback_work_callback( | |||
| 245 | ompt_work_single_other, ompt_scope_end, | |||
| 246 | &(team->t.ompt_team_info.parallel_data), | |||
| 247 | &(team->t.t_implicit_task_taskdata[tid].ompt_task_info.task_data), | |||
| 248 | 1, OMPT_GET_RETURN_ADDRESS(0)__builtin_return_address(0)); | |||
| 249 | } | |||
| 250 | } | |||
| 251 | } | |||
| 252 | #endif | |||
| 253 | ||||
| 254 | return rc; | |||
| 255 | } | |||
| 256 | ||||
| 257 | void *KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SINGLE_COPY_START)__kmp_api_GOMP_single_copy_start(void) { | |||
| 258 | void *retval; | |||
| 259 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 260 | MKLOC(loc, "GOMP_single_copy_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 261 | KA_TRACE(20, ("GOMP_single_copy_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_single_copy_start: T#%d\n" , gtid); }; | |||
| 262 | ||||
| 263 | if (!TCR_4(__kmp_init_parallel)(__kmp_init_parallel)) | |||
| 264 | __kmp_parallel_initialize(); | |||
| 265 | __kmp_resume_if_soft_paused(); | |||
| 266 | ||||
| 267 | // If this is the first thread to enter, return NULL. The generated code will | |||
| 268 | // then call GOMP_single_copy_end() for this thread only, with the | |||
| 269 | // copyprivate data pointer as an argument. | |||
| 270 | if (__kmp_enter_single(gtid, &loc, FALSE0)) | |||
| 271 | return NULL__null; | |||
| 272 | ||||
| 273 | // Wait for the first thread to set the copyprivate data pointer, | |||
| 274 | // and for all other threads to reach this point. | |||
| 275 | ||||
| 276 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 277 | ompt_frame_t *ompt_frame; | |||
| 278 | if (ompt_enabled.enabled) { | |||
| 279 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 280 | ompt_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 281 | } | |||
| 282 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 283 | #endif | |||
| 284 | __kmp_barrier(bs_plain_barrier, gtid, FALSE0, 0, NULL__null, NULL__null); | |||
| 285 | ||||
| 286 | // Retrieve the value of the copyprivate data point, and wait for all | |||
| 287 | // threads to do likewise, then return. | |||
| 288 | retval = __kmp_team_from_gtid(gtid)->t.t_copypriv_data; | |||
| 289 | { | |||
| 290 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 291 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 292 | #endif | |||
| 293 | __kmp_barrier(bs_plain_barrier, gtid, FALSE0, 0, NULL__null, NULL__null); | |||
| 294 | } | |||
| 295 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 296 | if (ompt_enabled.enabled) { | |||
| 297 | ompt_frame->enter_frame = ompt_data_none{0}; | |||
| 298 | } | |||
| 299 | #endif | |||
| 300 | return retval; | |||
| 301 | } | |||
| 302 | ||||
| 303 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SINGLE_COPY_END)__kmp_api_GOMP_single_copy_end(void *data) { | |||
| 304 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 305 | KA_TRACE(20, ("GOMP_single_copy_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_single_copy_end: T#%d\n" , gtid); }; | |||
| 306 | ||||
| 307 | // Set the copyprivate data pointer fo the team, then hit the barrier so that | |||
| 308 | // the other threads will continue on and read it. Hit another barrier before | |||
| 309 | // continuing, so that the know that the copyprivate data pointer has been | |||
| 310 | // propagated to all threads before trying to reuse the t_copypriv_data field. | |||
| 311 | __kmp_team_from_gtid(gtid)->t.t_copypriv_data = data; | |||
| 312 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 313 | ompt_frame_t *ompt_frame; | |||
| 314 | if (ompt_enabled.enabled) { | |||
| 315 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 316 | ompt_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 317 | } | |||
| 318 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 319 | #endif | |||
| 320 | __kmp_barrier(bs_plain_barrier, gtid, FALSE0, 0, NULL__null, NULL__null); | |||
| 321 | { | |||
| 322 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 323 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 324 | #endif | |||
| 325 | __kmp_barrier(bs_plain_barrier, gtid, FALSE0, 0, NULL__null, NULL__null); | |||
| 326 | } | |||
| 327 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 328 | if (ompt_enabled.enabled) { | |||
| 329 | ompt_frame->enter_frame = ompt_data_none{0}; | |||
| 330 | } | |||
| 331 | #endif | |||
| 332 | } | |||
| 333 | ||||
| 334 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_ORDERED_START)__kmp_api_GOMP_ordered_start(void) { | |||
| 335 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 336 | MKLOC(loc, "GOMP_ordered_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 337 | KA_TRACE(20, ("GOMP_ordered_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_ordered_start: T#%d\n" , gtid); }; | |||
| 338 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 339 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 340 | #endif | |||
| 341 | __kmpc_ordered(&loc, gtid); | |||
| 342 | } | |||
| 343 | ||||
| 344 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_ORDERED_END)__kmp_api_GOMP_ordered_end(void) { | |||
| 345 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 346 | MKLOC(loc, "GOMP_ordered_end")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 347 | KA_TRACE(20, ("GOMP_ordered_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_ordered_start: T#%d\n" , gtid); }; | |||
| 348 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 349 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 350 | #endif | |||
| 351 | __kmpc_end_ordered(&loc, gtid); | |||
| 352 | } | |||
| 353 | ||||
| 354 | // Dispatch macro defs | |||
| 355 | // | |||
| 356 | // They come in two flavors: 64-bit unsigned, and either 32-bit signed | |||
| 357 | // (IA-32 architecture) or 64-bit signed (Intel(R) 64). | |||
| 358 | ||||
| 359 | #if KMP_ARCH_X860 || KMP_ARCH_ARM || KMP_ARCH_MIPS0 | |||
| 360 | #define KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8 __kmp_aux_dispatch_init_4 | |||
| 361 | #define KMP_DISPATCH_FINI_CHUNK__kmp_aux_dispatch_fini_chunk_8 __kmp_aux_dispatch_fini_chunk_4 | |||
| 362 | #define KMP_DISPATCH_NEXT__kmpc_dispatch_next_8 __kmpc_dispatch_next_4 | |||
| 363 | #else | |||
| 364 | #define KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8 __kmp_aux_dispatch_init_8 | |||
| 365 | #define KMP_DISPATCH_FINI_CHUNK__kmp_aux_dispatch_fini_chunk_8 __kmp_aux_dispatch_fini_chunk_8 | |||
| 366 | #define KMP_DISPATCH_NEXT__kmpc_dispatch_next_8 __kmpc_dispatch_next_8 | |||
| 367 | #endif /* KMP_ARCH_X86 */ | |||
| 368 | ||||
| 369 | #define KMP_DISPATCH_INIT_ULL__kmp_aux_dispatch_init_8u __kmp_aux_dispatch_init_8u | |||
| 370 | #define KMP_DISPATCH_FINI_CHUNK_ULL__kmp_aux_dispatch_fini_chunk_8u __kmp_aux_dispatch_fini_chunk_8u | |||
| 371 | #define KMP_DISPATCH_NEXT_ULL__kmpc_dispatch_next_8u __kmpc_dispatch_next_8u | |||
| 372 | ||||
| 373 | // The parallel construct | |||
| 374 | ||||
| 375 | #ifndef KMP_DEBUG1 | |||
| 376 | static | |||
| 377 | #endif /* KMP_DEBUG */ | |||
| 378 | void | |||
| 379 | __kmp_GOMP_microtask_wrapper(int *gtid, int *npr, void (*task)(void *), | |||
| 380 | void *data) { | |||
| 381 | #if OMPT_SUPPORT1 | |||
| 382 | kmp_info_t *thr; | |||
| 383 | ompt_frame_t *ompt_frame; | |||
| 384 | ompt_state_t enclosing_state; | |||
| 385 | ||||
| 386 | if (ompt_enabled.enabled) { | |||
| 387 | // get pointer to thread data structure | |||
| 388 | thr = __kmp_threads[*gtid]; | |||
| 389 | ||||
| 390 | // save enclosing task state; set current state for task | |||
| 391 | enclosing_state = thr->th.ompt_thread_info.state; | |||
| 392 | thr->th.ompt_thread_info.state = ompt_state_work_parallel; | |||
| 393 | ||||
| 394 | // set task frame | |||
| 395 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 396 | ompt_frame->exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 397 | } | |||
| 398 | #endif | |||
| 399 | ||||
| 400 | task(data); | |||
| 401 | ||||
| 402 | #if OMPT_SUPPORT1 | |||
| 403 | if (ompt_enabled.enabled) { | |||
| 404 | // clear task frame | |||
| 405 | ompt_frame->exit_frame = ompt_data_none{0}; | |||
| 406 | ||||
| 407 | // restore enclosing state | |||
| 408 | thr->th.ompt_thread_info.state = enclosing_state; | |||
| 409 | } | |||
| 410 | #endif | |||
| 411 | } | |||
| 412 | ||||
| 413 | #ifndef KMP_DEBUG1 | |||
| 414 | static | |||
| 415 | #endif /* KMP_DEBUG */ | |||
| 416 | void | |||
| 417 | __kmp_GOMP_parallel_microtask_wrapper(int *gtid, int *npr, | |||
| 418 | void (*task)(void *), void *data, | |||
| 419 | unsigned num_threads, ident_t *loc, | |||
| 420 | enum sched_type schedule, long start, | |||
| 421 | long end, long incr, | |||
| 422 | long chunk_size) { | |||
| 423 | // Initialize the loop worksharing construct. | |||
| 424 | ||||
| 425 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(loc, *gtid, schedule, start, end, incr, chunk_size, | |||
| 426 | schedule != kmp_sch_static); | |||
| 427 | ||||
| 428 | #if OMPT_SUPPORT1 | |||
| 429 | kmp_info_t *thr; | |||
| 430 | ompt_frame_t *ompt_frame; | |||
| 431 | ompt_state_t enclosing_state; | |||
| 432 | ||||
| 433 | if (ompt_enabled.enabled) { | |||
| 434 | thr = __kmp_threads[*gtid]; | |||
| 435 | // save enclosing task state; set current state for task | |||
| 436 | enclosing_state = thr->th.ompt_thread_info.state; | |||
| 437 | thr->th.ompt_thread_info.state = ompt_state_work_parallel; | |||
| 438 | ||||
| 439 | // set task frame | |||
| 440 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 441 | ompt_frame->exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 442 | } | |||
| 443 | #endif | |||
| 444 | ||||
| 445 | // Now invoke the microtask. | |||
| 446 | task(data); | |||
| 447 | ||||
| 448 | #if OMPT_SUPPORT1 | |||
| 449 | if (ompt_enabled.enabled) { | |||
| 450 | // clear task frame | |||
| 451 | ompt_frame->exit_frame = ompt_data_none{0}; | |||
| 452 | ||||
| 453 | // reset enclosing state | |||
| 454 | thr->th.ompt_thread_info.state = enclosing_state; | |||
| 455 | } | |||
| 456 | #endif | |||
| 457 | } | |||
| 458 | ||||
| 459 | static void __kmp_GOMP_fork_call(ident_t *loc, int gtid, unsigned num_threads, | |||
| 460 | unsigned flags, void (*unwrapped_task)(void *), | |||
| 461 | microtask_t wrapper, int argc, ...) { | |||
| 462 | int rc; | |||
| 463 | kmp_info_t *thr = __kmp_threads[gtid]; | |||
| 464 | kmp_team_t *team = thr->th.th_team; | |||
| 465 | int tid = __kmp_tid_from_gtid(gtid); | |||
| 466 | ||||
| 467 | va_list ap; | |||
| 468 | va_start(ap, argc)__builtin_va_start(ap, argc); | |||
| 469 | ||||
| 470 | if (num_threads != 0) | |||
| 471 | __kmp_push_num_threads(loc, gtid, num_threads); | |||
| 472 | if (flags != 0) | |||
| 473 | __kmp_push_proc_bind(loc, gtid, (kmp_proc_bind_t)flags); | |||
| 474 | rc = __kmp_fork_call(loc, gtid, fork_context_gnu, argc, wrapper, | |||
| 475 | __kmp_invoke_task_func, kmp_va_addr_of(ap)(&(ap))); | |||
| 476 | ||||
| 477 | va_end(ap)__builtin_va_end(ap); | |||
| 478 | ||||
| 479 | if (rc) { | |||
| 480 | __kmp_run_before_invoked_task(gtid, tid, thr, team); | |||
| 481 | } | |||
| 482 | ||||
| 483 | #if OMPT_SUPPORT1 | |||
| 484 | int ompt_team_size; | |||
| 485 | if (ompt_enabled.enabled) { | |||
| 486 | ompt_team_info_t *team_info = __ompt_get_teaminfo(0, NULL__null); | |||
| 487 | ompt_task_info_t *task_info = __ompt_get_task_info_object(0); | |||
| 488 | ||||
| 489 | // implicit task callback | |||
| 490 | if (ompt_enabled.ompt_callback_implicit_task) { | |||
| 491 | ompt_team_size = __kmp_team_from_gtid(gtid)->t.t_nproc; | |||
| 492 | ompt_callbacks.ompt_callback(ompt_callback_implicit_task)ompt_callback_implicit_task_callback( | |||
| 493 | ompt_scope_begin, &(team_info->parallel_data), | |||
| 494 | &(task_info->task_data), ompt_team_size, __kmp_tid_from_gtid(gtid), | |||
| 495 | ompt_task_implicit); // TODO: Can this be ompt_task_initial? | |||
| 496 | task_info->thread_num = __kmp_tid_from_gtid(gtid); | |||
| 497 | } | |||
| 498 | thr->th.ompt_thread_info.state = ompt_state_work_parallel; | |||
| 499 | } | |||
| 500 | #endif | |||
| 501 | } | |||
| 502 | ||||
| 503 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_START)__kmp_api_GOMP_parallel_start(void (*task)(void *), | |||
| 504 | void *data, | |||
| 505 | unsigned num_threads) { | |||
| 506 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 507 | ||||
| 508 | #if OMPT_SUPPORT1 | |||
| 509 | ompt_frame_t *parent_frame, *frame; | |||
| 510 | ||||
| 511 | if (ompt_enabled.enabled) { | |||
| 512 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &parent_frame, NULL__null, NULL__null); | |||
| 513 | parent_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 514 | } | |||
| 515 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 516 | #endif | |||
| 517 | ||||
| 518 | MKLOC(loc, "GOMP_parallel_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 519 | KA_TRACE(20, ("GOMP_parallel_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_start: T#%d\n" , gtid); }; | |||
| 520 | __kmp_GOMP_fork_call(&loc, gtid, num_threads, 0u, task, | |||
| 521 | (microtask_t)__kmp_GOMP_microtask_wrapper, 2, task, | |||
| 522 | data); | |||
| 523 | #if OMPT_SUPPORT1 | |||
| 524 | if (ompt_enabled.enabled) { | |||
| 525 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &frame, NULL__null, NULL__null); | |||
| 526 | frame->exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 527 | } | |||
| 528 | #endif | |||
| 529 | #if OMPD_SUPPORT1 | |||
| 530 | if (ompd_state & OMPD_ENABLE_BP0x1) | |||
| 531 | ompd_bp_parallel_begin(); | |||
| 532 | #endif | |||
| 533 | } | |||
| 534 | ||||
| 535 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_END)__kmp_api_GOMP_parallel_end(void) { | |||
| 536 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 537 | kmp_info_t *thr; | |||
| 538 | ||||
| 539 | thr = __kmp_threads[gtid]; | |||
| 540 | ||||
| 541 | MKLOC(loc, "GOMP_parallel_end")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 542 | KA_TRACE(20, ("GOMP_parallel_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_end: T#%d\n" , gtid); }; | |||
| 543 | ||||
| 544 | if (!thr->th.th_team->t.t_serialized) { | |||
| 545 | __kmp_run_after_invoked_task(gtid, __kmp_tid_from_gtid(gtid), thr, | |||
| 546 | thr->th.th_team); | |||
| 547 | } | |||
| 548 | #if OMPT_SUPPORT1 | |||
| 549 | if (ompt_enabled.enabled) { | |||
| 550 | // Implicit task is finished here, in the barrier we might schedule | |||
| 551 | // deferred tasks, | |||
| 552 | // these don't see the implicit task on the stack | |||
| 553 | OMPT_CUR_TASK_INFO(thr)(&(thr->th.th_current_task->ompt_task_info))->frame.exit_frame = ompt_data_none{0}; | |||
| 554 | } | |||
| 555 | #endif | |||
| 556 | ||||
| 557 | __kmp_join_call(&loc, gtid | |||
| 558 | #if OMPT_SUPPORT1 | |||
| 559 | , | |||
| 560 | fork_context_gnu | |||
| 561 | #endif | |||
| 562 | ); | |||
| 563 | #if OMPD_SUPPORT1 | |||
| 564 | if (ompd_state & OMPD_ENABLE_BP0x1) | |||
| 565 | ompd_bp_parallel_end(); | |||
| 566 | #endif | |||
| 567 | } | |||
| 568 | ||||
| 569 | // Loop worksharing constructs | |||
| 570 | ||||
| 571 | // The Gnu codegen passes in an exclusive upper bound for the overall range, | |||
| 572 | // but the libguide dispatch code expects an inclusive upper bound, hence the | |||
| 573 | // "end - incr" 5th argument to KMP_DISPATCH_INIT (and the " ub - str" 11th | |||
| 574 | // argument to __kmp_GOMP_fork_call). | |||
| 575 | // | |||
| 576 | // Conversely, KMP_DISPATCH_NEXT returns and inclusive upper bound in *p_ub, | |||
| 577 | // but the Gnu codegen expects an exclusive upper bound, so the adjustment | |||
| 578 | // "*p_ub += stride" compensates for the discrepancy. | |||
| 579 | // | |||
| 580 | // Correction: the gnu codegen always adjusts the upper bound by +-1, not the | |||
| 581 | // stride value. We adjust the dispatch parameters accordingly (by +-1), but | |||
| 582 | // we still adjust p_ub by the actual stride value. | |||
| 583 | // | |||
| 584 | // The "runtime" versions do not take a chunk_sz parameter. | |||
| 585 | // | |||
| 586 | // The profile lib cannot support construct checking of unordered loops that | |||
| 587 | // are predetermined by the compiler to be statically scheduled, as the gcc | |||
| 588 | // codegen will not always emit calls to GOMP_loop_static_next() to get the | |||
| 589 | // next iteration. Instead, it emits inline code to call omp_get_thread_num() | |||
| 590 | // num and calculate the iteration space using the result. It doesn't do this | |||
| 591 | // with ordered static loop, so they can be checked. | |||
| 592 | ||||
| 593 | #if OMPT_SUPPORT1 | |||
| 594 | #define IF_OMPT_SUPPORT(code)code code | |||
| 595 | #else | |||
| 596 | #define IF_OMPT_SUPPORT(code)code | |||
| 597 | #endif | |||
| 598 | ||||
| 599 | #define LOOP_START(func, schedule)int func(long lb, long ub, long str, long chunk_sz, long *p_lb , long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (schedule) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 599); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; return status; } \ | |||
| 600 | int func(long lb, long ub, long str, long chunk_sz, long *p_lb, \ | |||
| 601 | long *p_ub) { \ | |||
| 602 | int status; \ | |||
| 603 | long stride; \ | |||
| 604 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 605 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 606 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 607 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 608 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 609 | func) ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 610 | gtid, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); }; \ | |||
| 611 | \ | |||
| 612 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 613 | { \ | |||
| 614 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid);)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 615 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, (schedule), lb, \ | |||
| 616 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, \ | |||
| 617 | (schedule) != kmp_sch_static); \ | |||
| 618 | } \ | |||
| 619 | { \ | |||
| 620 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid);)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 621 | status = KMP_DISPATCH_NEXT__kmpc_dispatch_next_8(&loc, gtid, NULL__null, (kmp_int *)p_lb, \ | |||
| 622 | (kmp_int *)p_ub, (kmp_int *)&stride); \ | |||
| 623 | } \ | |||
| 624 | if (status) { \ | |||
| 625 | KMP_DEBUG_ASSERT(stride == str)if (!(stride == str)) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 625); }; \ | |||
| 626 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 627 | } \ | |||
| 628 | } else { \ | |||
| 629 | status = 0; \ | |||
| 630 | } \ | |||
| 631 | \ | |||
| 632 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 633 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 634 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 635 | func) " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 636 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 637 | return status; \ | |||
| 638 | } | |||
| 639 | ||||
| 640 | #define LOOP_RUNTIME_START(func, schedule)int func(long lb, long ub, long str, long *p_lb, long *p_ub) { int status; long stride; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 640) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; return status; } \ | |||
| 641 | int func(long lb, long ub, long str, long *p_lb, long *p_ub) { \ | |||
| 642 | int status; \ | |||
| 643 | long stride; \ | |||
| 644 | long chunk_sz = 0; \ | |||
| 645 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 646 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 647 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 648 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 649 | (KMP_STR(func) ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 650 | gtid, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); }; \ | |||
| 651 | \ | |||
| 652 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 653 | { \ | |||
| 654 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid);)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 655 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, (schedule), lb, \ | |||
| 656 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, \ | |||
| 657 | TRUE(!0)); \ | |||
| 658 | } \ | |||
| 659 | { \ | |||
| 660 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid);)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 661 | status = KMP_DISPATCH_NEXT__kmpc_dispatch_next_8(&loc, gtid, NULL__null, (kmp_int *)p_lb, \ | |||
| 662 | (kmp_int *)p_ub, (kmp_int *)&stride); \ | |||
| 663 | } \ | |||
| 664 | if (status) { \ | |||
| 665 | KMP_DEBUG_ASSERT(stride == str)if (!(stride == str)) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 665); }; \ | |||
| 666 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 667 | } \ | |||
| 668 | } else { \ | |||
| 669 | status = 0; \ | |||
| 670 | } \ | |||
| 671 | \ | |||
| 672 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 673 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 674 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 675 | func) " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 676 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 677 | return status; \ | |||
| 678 | } | |||
| 679 | ||||
| 680 | #define KMP_DOACROSS_FINI(status, gtid)if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } \ | |||
| 681 | if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags) { \ | |||
| 682 | __kmpc_doacross_fini(NULL__null, gtid); \ | |||
| 683 | } | |||
| 684 | ||||
| 685 | #define LOOP_NEXT(func, fini_code)int func(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0 , KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; fini_code status = __kmpc_dispatch_next_8(&loc, gtid , __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride ); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); }; return status; } \ | |||
| 686 | int func(long *p_lb, long *p_ub) { \ | |||
| 687 | int status; \ | |||
| 688 | long stride; \ | |||
| 689 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); \ | |||
| 690 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 691 | KA_TRACE(20, (KMP_STR(func) ": T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d\n" , gtid); }; \ | |||
| 692 | \ | |||
| 693 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid);)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 694 | fini_code status = KMP_DISPATCH_NEXT__kmpc_dispatch_next_8(&loc, gtid, NULL__null, (kmp_int *)p_lb, \ | |||
| 695 | (kmp_int *)p_ub, (kmp_int *)&stride); \ | |||
| 696 | if (status) { \ | |||
| 697 | *p_ub += (stride > 0) ? 1 : -1; \ | |||
| 698 | } \ | |||
| 699 | KMP_DOACROSS_FINI(status, gtid)if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } \ | |||
| 700 | \ | |||
| 701 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 702 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 703 | (KMP_STR(func) " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 704 | "returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 705 | gtid, *p_lb, *p_ub, stride, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); }; \ | |||
| 706 | return status; \ | |||
| 707 | } | |||
| 708 | ||||
| 709 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_STATIC_START), kmp_sch_static)int __kmp_api_GOMP_loop_static_start(long lb, long ub, long str , long chunk_sz, long *p_lb, long *p_ub) { int status; long stride ; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_static_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null , (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 709); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_static_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 710 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_STATIC_NEXT), {})int __kmp_api_GOMP_loop_static_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_static_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_static_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 711 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DYNAMIC_START),int __kmp_api_GOMP_loop_dynamic_start(long lb, long ub, long str , long chunk_sz, long *p_lb, long *p_ub) { int status; long stride ; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 712) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 712 | kmp_sch_dynamic_chunked)int __kmp_api_GOMP_loop_dynamic_start(long lb, long ub, long str , long chunk_sz, long *p_lb, long *p_ub) { int status; long stride ; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 712) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 713 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_DYNAMIC_START),int __kmp_api_GOMP_loop_nonmonotonic_dynamic_start(long lb, long ub, long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 714) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 714 | kmp_sch_dynamic_chunked)int __kmp_api_GOMP_loop_nonmonotonic_dynamic_start(long lb, long ub, long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 714) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 715 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DYNAMIC_NEXT), {})int __kmp_api_GOMP_loop_dynamic_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_dynamic_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_dynamic_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 716 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_DYNAMIC_NEXT), {})int __kmp_api_GOMP_loop_nonmonotonic_dynamic_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_dynamic_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_dynamic_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 717 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_GUIDED_START),int __kmp_api_GOMP_loop_guided_start(long lb, long ub, long str , long chunk_sz, long *p_lb, long *p_ub) { int status; long stride ; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 718) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 718 | kmp_sch_guided_chunked)int __kmp_api_GOMP_loop_guided_start(long lb, long ub, long str , long chunk_sz, long *p_lb, long *p_ub) { int status; long stride ; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 718) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 719 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_GUIDED_START),int __kmp_api_GOMP_loop_nonmonotonic_guided_start(long lb, long ub, long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 720) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 720 | kmp_sch_guided_chunked)int __kmp_api_GOMP_loop_nonmonotonic_guided_start(long lb, long ub, long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 720) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 721 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_GUIDED_NEXT), {})int __kmp_api_GOMP_loop_guided_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_guided_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_guided_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 722 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_GUIDED_NEXT), {})int __kmp_api_GOMP_loop_nonmonotonic_guided_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_guided_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_guided_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 723 | LOOP_RUNTIME_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_RUNTIME_START),int __kmp_api_GOMP_loop_runtime_start(long lb, long ub, long str , long *p_lb, long *p_ub) { int status; long stride; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 724); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 724 | kmp_sch_runtime)int __kmp_api_GOMP_loop_runtime_start(long lb, long ub, long str , long *p_lb, long *p_ub) { int status; long stride; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 724); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 725 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_RUNTIME_NEXT), {})int __kmp_api_GOMP_loop_runtime_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_runtime_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_runtime_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 726 | LOOP_RUNTIME_START(int __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start(long lb, long ub, long str, long *p_lb, long *p_ub) { int status; long stride; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 728); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 727 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_MAYBE_NONMONOTONIC_RUNTIME_START),int __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start(long lb, long ub, long str, long *p_lb, long *p_ub) { int status; long stride; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 728); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 728 | kmp_sch_runtime)int __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start(long lb, long ub, long str, long *p_lb, long *p_ub) { int status; long stride; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 728); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 729 | LOOP_RUNTIME_START(int __kmp_api_GOMP_loop_nonmonotonic_runtime_start(long lb, long ub, long str, long *p_lb, long *p_ub) { int status; long stride ; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 731); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 730 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_RUNTIME_START),int __kmp_api_GOMP_loop_nonmonotonic_runtime_start(long lb, long ub, long str, long *p_lb, long *p_ub) { int status; long stride ; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 731); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 731 | kmp_sch_runtime)int __kmp_api_GOMP_loop_nonmonotonic_runtime_start(long lb, long ub, long str, long *p_lb, long *p_ub) { int status; long stride ; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 731); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 732 | LOOP_NEXT(int __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next(long * p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 733 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_MAYBE_NONMONOTONIC_RUNTIME_NEXT), {})int __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next(long * p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 734 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_RUNTIME_NEXT), {})int __kmp_api_GOMP_loop_nonmonotonic_runtime_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; {} status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 735 | ||||
| 736 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_STATIC_START),int __kmp_api_GOMP_loop_ordered_static_start(long lb, long ub , long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_ord_static) != kmp_sch_static ); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null , (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 737); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 737 | kmp_ord_static)int __kmp_api_GOMP_loop_ordered_static_start(long lb, long ub , long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_ord_static) != kmp_sch_static ); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null , (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 737); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 738 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_STATIC_NEXT),int __kmp_api_GOMP_loop_ordered_static_next(long *p_lb, long * p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 739 | { KMP_DISPATCH_FINI_CHUNK(&loc, gtid); })int __kmp_api_GOMP_loop_ordered_static_next(long *p_lb, long * p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_static_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 740 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_DYNAMIC_START),int __kmp_api_GOMP_loop_ordered_dynamic_start(long lb, long ub , long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_ord_dynamic_chunked ) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 741) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 741 | kmp_ord_dynamic_chunked)int __kmp_api_GOMP_loop_ordered_dynamic_start(long lb, long ub , long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_ord_dynamic_chunked ) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 741) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 742 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_DYNAMIC_NEXT),int __kmp_api_GOMP_loop_ordered_dynamic_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 743 | { KMP_DISPATCH_FINI_CHUNK(&loc, gtid); })int __kmp_api_GOMP_loop_ordered_dynamic_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_dynamic_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 744 | LOOP_START(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_GUIDED_START),int __kmp_api_GOMP_loop_ordered_guided_start(long lb, long ub , long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_ord_guided_chunked) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 745) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 745 | kmp_ord_guided_chunked)int __kmp_api_GOMP_loop_ordered_guided_start(long lb, long ub , long str, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_ord_guided_chunked) != kmp_sch_static); } { OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8 (&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 745) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 746 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_GUIDED_NEXT),int __kmp_api_GOMP_loop_ordered_guided_next(long *p_lb, long * p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 747 | { KMP_DISPATCH_FINI_CHUNK(&loc, gtid); })int __kmp_api_GOMP_loop_ordered_guided_next(long *p_lb, long * p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_guided_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 748 | LOOP_RUNTIME_START(int __kmp_api_GOMP_loop_ordered_runtime_start(long lb, long ub , long str, long *p_lb, long *p_ub) { int status; long stride ; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 750); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 749 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_START),int __kmp_api_GOMP_loop_ordered_runtime_start(long lb, long ub , long str, long *p_lb, long *p_ub) { int status; long stride ; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 750); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 750 | kmp_ord_runtime)int __kmp_api_GOMP_loop_ordered_runtime_start(long lb, long ub , long str, long *p_lb, long *p_ub) { int status; long stride ; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { { OmptReturnAddressGuard ReturnAddressGuard{ gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_ord_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (!0)); } { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *) p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); } if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 750); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 751 | LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_NEXT),int __kmp_api_GOMP_loop_ordered_runtime_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 752 | { KMP_DISPATCH_FINI_CHUNK(&loc, gtid); })int __kmp_api_GOMP_loop_ordered_runtime_next(long *p_lb, long *p_ub) { int status; long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_next" ": T#%d\n", gtid); }; OmptReturnAddressGuard ReturnAddressGuard {gtid, __builtin_return_address(0)};; { __kmp_aux_dispatch_fini_chunk_8 (&loc, gtid); } status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)& stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (!status && __kmp_threads[gtid]->th.th_dispatch-> th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ordered_runtime_next" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, stride 0x%lx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 753 | ||||
| 754 | #define LOOP_DOACROSS_START(func, schedule)bool func(unsigned ncounts, long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg(); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate((sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp", 754); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (schedule) != kmp_sch_static); status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb , (kmp_int *)p_ub, (kmp_int *)&stride); if (status) { if ( !(stride == str)) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 754); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 754); return status; } \ | |||
| 755 | bool func(unsigned ncounts, long *counts, long chunk_sz, long *p_lb, \ | |||
| 756 | long *p_ub) { \ | |||
| 757 | int status; \ | |||
| 758 | long stride, lb, ub, str; \ | |||
| 759 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 760 | struct kmp_dim *dims = \ | |||
| 761 | (struct kmp_dim *)__kmp_allocate(sizeof(struct kmp_dim) * ncounts)___kmp_allocate((sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 761); \ | |||
| 762 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 763 | for (unsigned i = 0; i < ncounts; ++i) { \ | |||
| 764 | dims[i].lo = 0; \ | |||
| 765 | dims[i].up = counts[i] - 1; \ | |||
| 766 | dims[i].st = 1; \ | |||
| 767 | } \ | |||
| 768 | __kmpc_doacross_init(&loc, gtid, (int)ncounts, dims); \ | |||
| 769 | lb = 0; \ | |||
| 770 | ub = counts[0]; \ | |||
| 771 | str = 1; \ | |||
| 772 | KA_TRACE(20, (KMP_STR(func) ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz ); } | |||
| 773 | "0x%lx, chunk_sz " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz ); } | |||
| 774 | "0x%lx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz ); } | |||
| 775 | gtid, ncounts, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz ); }; \ | |||
| 776 | \ | |||
| 777 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 778 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, (schedule), lb, \ | |||
| 779 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, \ | |||
| 780 | (schedule) != kmp_sch_static); \ | |||
| 781 | status = KMP_DISPATCH_NEXT__kmpc_dispatch_next_8(&loc, gtid, NULL__null, (kmp_int *)p_lb, \ | |||
| 782 | (kmp_int *)p_ub, (kmp_int *)&stride); \ | |||
| 783 | if (status) { \ | |||
| 784 | KMP_DEBUG_ASSERT(stride == str)if (!(stride == str)) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 784); }; \ | |||
| 785 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 786 | } \ | |||
| 787 | } else { \ | |||
| 788 | status = 0; \ | |||
| 789 | } \ | |||
| 790 | KMP_DOACROSS_FINI(status, gtid)if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; \ | |||
| 791 | \ | |||
| 792 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 793 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 794 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 795 | func) " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 796 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 797 | __kmp_free(dims)___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp", 797 ); \ | |||
| 798 | return status; \ | |||
| 799 | } | |||
| 800 | ||||
| 801 | #define LOOP_DOACROSS_RUNTIME_START(func, schedule)int func(unsigned ncounts, long *counts, long *p_lb, long *p_ub ) { int status; long stride, lb, ub, str; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate((sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp", 801); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8(&loc, gtid, (schedule ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (!0 )); status = __kmpc_dispatch_next_8(&loc, gtid, __null, ( kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if ( status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 801); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 801); return status; } \ | |||
| 802 | int func(unsigned ncounts, long *counts, long *p_lb, long *p_ub) { \ | |||
| 803 | int status; \ | |||
| 804 | long stride, lb, ub, str; \ | |||
| 805 | long chunk_sz = 0; \ | |||
| 806 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 807 | struct kmp_dim *dims = \ | |||
| 808 | (struct kmp_dim *)__kmp_allocate(sizeof(struct kmp_dim) * ncounts)___kmp_allocate((sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 808); \ | |||
| 809 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 810 | for (unsigned i = 0; i < ncounts; ++i) { \ | |||
| 811 | dims[i].lo = 0; \ | |||
| 812 | dims[i].up = counts[i] - 1; \ | |||
| 813 | dims[i].st = 1; \ | |||
| 814 | } \ | |||
| 815 | __kmpc_doacross_init(&loc, gtid, (int)ncounts, dims); \ | |||
| 816 | lb = 0; \ | |||
| 817 | ub = counts[0]; \ | |||
| 818 | str = 1; \ | |||
| 819 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 820 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 821 | (KMP_STR(func) ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 822 | gtid, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n" , gtid, lb, ub, str, chunk_sz); }; \ | |||
| 823 | \ | |||
| 824 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 825 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, (schedule), lb, \ | |||
| 826 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, TRUE(!0)); \ | |||
| 827 | status = KMP_DISPATCH_NEXT__kmpc_dispatch_next_8(&loc, gtid, NULL__null, (kmp_int *)p_lb, \ | |||
| 828 | (kmp_int *)p_ub, (kmp_int *)&stride); \ | |||
| 829 | if (status) { \ | |||
| 830 | KMP_DEBUG_ASSERT(stride == str)if (!(stride == str)) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 830); }; \ | |||
| 831 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 832 | } \ | |||
| 833 | } else { \ | |||
| 834 | status = 0; \ | |||
| 835 | } \ | |||
| 836 | KMP_DOACROSS_FINI(status, gtid)if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; \ | |||
| 837 | \ | |||
| 838 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 839 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 840 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 841 | func) " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 842 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 843 | __kmp_free(dims)___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp", 843 ); \ | |||
| 844 | return status; \ | |||
| 845 | } | |||
| 846 | ||||
| 847 | LOOP_DOACROSS_START(bool __kmp_api_GOMP_loop_doacross_static_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 849); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_static_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status ) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 849); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_static_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 849); return status; } | |||
| 848 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_STATIC_START),bool __kmp_api_GOMP_loop_doacross_static_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 849); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_static_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status ) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 849); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_static_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 849); return status; } | |||
| 849 | kmp_sch_static)bool __kmp_api_GOMP_loop_doacross_static_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 849); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_static_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); status = __kmpc_dispatch_next_8(&loc, gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if (status ) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 849); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_static_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 849); return status; } | |||
| 850 | LOOP_DOACROSS_START(bool __kmp_api_GOMP_loop_doacross_dynamic_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 852); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_dynamic_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); status = __kmpc_dispatch_next_8(&loc , gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *) &stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 852) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 852); return status; } | |||
| 851 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_DYNAMIC_START),bool __kmp_api_GOMP_loop_doacross_dynamic_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 852); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_dynamic_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); status = __kmpc_dispatch_next_8(&loc , gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *) &stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 852) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 852); return status; } | |||
| 852 | kmp_sch_dynamic_chunked)bool __kmp_api_GOMP_loop_doacross_dynamic_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 852); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_dynamic_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); status = __kmpc_dispatch_next_8(&loc , gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *) &stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 852) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_dynamic_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 852); return status; } | |||
| 853 | LOOP_DOACROSS_START(bool __kmp_api_GOMP_loop_doacross_guided_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 855); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_guided_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); status = __kmpc_dispatch_next_8(&loc , gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *) &stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 855) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 855); return status; } | |||
| 854 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_GUIDED_START),bool __kmp_api_GOMP_loop_doacross_guided_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 855); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_guided_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); status = __kmpc_dispatch_next_8(&loc , gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *) &stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 855) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 855); return status; } | |||
| 855 | kmp_sch_guided_chunked)bool __kmp_api_GOMP_loop_doacross_guided_start(unsigned ncounts , long *counts, long chunk_sz, long *p_lb, long *p_ub) { int status ; long stride, lb, ub, str; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 855); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_guided_start" ": T#%d, ncounts %u, lb 0x%lx, ub 0x%lx, str " "0x%lx, chunk_sz " "0x%lx\n", gtid, ncounts, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); status = __kmpc_dispatch_next_8(&loc , gtid, __null, (kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *) &stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 855) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_guided_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 855); return status; } | |||
| 856 | LOOP_DOACROSS_RUNTIME_START(int __kmp_api_GOMP_loop_doacross_runtime_start(unsigned ncounts , long *counts, long *p_lb, long *p_ub) { int status; long stride , lb, ub, str; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 858); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8(&loc, gtid, (kmp_sch_runtime ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (!0 )); status = __kmpc_dispatch_next_8(&loc, gtid, __null, ( kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if ( status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 858); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 858); return status; } | |||
| 857 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_RUNTIME_START),int __kmp_api_GOMP_loop_doacross_runtime_start(unsigned ncounts , long *counts, long *p_lb, long *p_ub) { int status; long stride , lb, ub, str; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 858); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8(&loc, gtid, (kmp_sch_runtime ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (!0 )); status = __kmpc_dispatch_next_8(&loc, gtid, __null, ( kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if ( status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 858); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 858); return status; } | |||
| 858 | kmp_sch_runtime)int __kmp_api_GOMP_loop_doacross_runtime_start(unsigned ncounts , long *counts, long *p_lb, long *p_ub) { int status; long stride , lb, ub, str; long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 858); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz %d\n", gtid , lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8(&loc, gtid, (kmp_sch_runtime ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (!0 )); status = __kmpc_dispatch_next_8(&loc, gtid, __null, ( kmp_int *)p_lb, (kmp_int *)p_ub, (kmp_int *)&stride); if ( status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 858); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_doacross_runtime_start" " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 858); return status; } | |||
| 859 | ||||
| 860 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_END)__kmp_api_GOMP_loop_end(void) { | |||
| 861 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 862 | KA_TRACE(20, ("GOMP_loop_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_end: T#%d\n" , gtid); } | |||
| 863 | ||||
| 864 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 865 | ompt_frame_t *ompt_frame; | |||
| 866 | if (ompt_enabled.enabled) { | |||
| 867 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 868 | ompt_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 869 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 870 | } | |||
| 871 | #endif | |||
| 872 | __kmp_barrier(bs_plain_barrier, gtid, FALSE0, 0, NULL__null, NULL__null); | |||
| 873 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 874 | if (ompt_enabled.enabled) { | |||
| 875 | ompt_frame->enter_frame = ompt_data_none{0}; | |||
| 876 | } | |||
| 877 | #endif | |||
| 878 | ||||
| 879 | KA_TRACE(20, ("GOMP_loop_end exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_end exit: T#%d\n" , gtid); } | |||
| 880 | } | |||
| 881 | ||||
| 882 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_END_NOWAIT)__kmp_api_GOMP_loop_end_nowait(void) { | |||
| 883 | KA_TRACE(20, ("GOMP_loop_end_nowait: T#%d\n", __kmp_get_gtid()))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_end_nowait: T#%d\n" , __kmp_get_global_thread_id()); } | |||
| 884 | } | |||
| 885 | ||||
| 886 | // Unsigned long long loop worksharing constructs | |||
| 887 | // | |||
| 888 | // These are new with gcc 4.4 | |||
| 889 | ||||
| 890 | #define LOOP_START_ULL(func, schedule)int func(int up, unsigned long long lb, unsigned long long ub , unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u (&loc, gtid, (schedule), lb, (str2 > 0) ? (ub - 1) : ( ub + 1), str2, chunk_sz, (schedule) != kmp_sch_static); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status ) { if (!(stride == str2)) { __kmp_debug_assert("stride == str2" , "openmp/runtime/src/kmp_gsupport.cpp", 890); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; return status; } \ | |||
| 891 | int func(int up, unsigned long long lb, unsigned long long ub, \ | |||
| 892 | unsigned long long str, unsigned long long chunk_sz, \ | |||
| 893 | unsigned long long *p_lb, unsigned long long *p_ub) { \ | |||
| 894 | int status; \ | |||
| 895 | long long str2 = up ? ((long long)str) : -((long long)str); \ | |||
| 896 | long long stride; \ | |||
| 897 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 898 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 899 | \ | |||
| 900 | KA_TRACE(20, (KMP_STR(func) ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); } | |||
| 901 | "0x%llx, chunk_sz 0x%llx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); } | |||
| 902 | gtid, up, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); }; \ | |||
| 903 | \ | |||
| 904 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 905 | KMP_DISPATCH_INIT_ULL__kmp_aux_dispatch_init_8u(&loc, gtid, (schedule), lb, \ | |||
| 906 | (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, \ | |||
| 907 | (schedule) != kmp_sch_static); \ | |||
| 908 | status = \ | |||
| 909 | KMP_DISPATCH_NEXT_ULL__kmpc_dispatch_next_8u(&loc, gtid, NULL__null, (kmp_uint64 *)p_lb, \ | |||
| 910 | (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); \ | |||
| 911 | if (status) { \ | |||
| 912 | KMP_DEBUG_ASSERT(stride == str2)if (!(stride == str2)) { __kmp_debug_assert("stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 912); }; \ | |||
| 913 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 914 | } \ | |||
| 915 | } else { \ | |||
| 916 | status = 0; \ | |||
| 917 | } \ | |||
| 918 | \ | |||
| 919 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 920 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 921 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 922 | func) " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 923 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 924 | return status; \ | |||
| 925 | } | |||
| 926 | ||||
| 927 | #define LOOP_RUNTIME_START_ULL(func, schedule)int func(int up, unsigned long long lb, unsigned long long ub , unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long) str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u (&loc, gtid, (schedule), lb, (str2 > 0) ? (ub - 1) : ( ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 927); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; return status; } \ | |||
| 928 | int func(int up, unsigned long long lb, unsigned long long ub, \ | |||
| 929 | unsigned long long str, unsigned long long *p_lb, \ | |||
| 930 | unsigned long long *p_ub) { \ | |||
| 931 | int status; \ | |||
| 932 | long long str2 = up ? ((long long)str) : -((long long)str); \ | |||
| 933 | unsigned long long stride; \ | |||
| 934 | unsigned long long chunk_sz = 0; \ | |||
| 935 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 936 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 937 | \ | |||
| 938 | KA_TRACE(20, (KMP_STR(func) ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); } | |||
| 939 | "0x%llx, chunk_sz 0x%llx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); } | |||
| 940 | gtid, up, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, up, lb, ub, str, chunk_sz ); }; \ | |||
| 941 | \ | |||
| 942 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 943 | KMP_DISPATCH_INIT_ULL__kmp_aux_dispatch_init_8u(&loc, gtid, (schedule), lb, \ | |||
| 944 | (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, \ | |||
| 945 | TRUE(!0)); \ | |||
| 946 | status = \ | |||
| 947 | KMP_DISPATCH_NEXT_ULL__kmpc_dispatch_next_8u(&loc, gtid, NULL__null, (kmp_uint64 *)p_lb, \ | |||
| 948 | (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); \ | |||
| 949 | if (status) { \ | |||
| 950 | KMP_DEBUG_ASSERT((long long)stride == str2)if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2" , "openmp/runtime/src/kmp_gsupport.cpp", 950); }; \ | |||
| 951 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 952 | } \ | |||
| 953 | } else { \ | |||
| 954 | status = 0; \ | |||
| 955 | } \ | |||
| 956 | \ | |||
| 957 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 958 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 959 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 960 | func) " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 961 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 962 | return status; \ | |||
| 963 | } | |||
| 964 | ||||
| 965 | #define LOOP_NEXT_ULL(func, fini_code)int func(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d\n" , gtid); }; fini_code status = __kmpc_dispatch_next_8u(&loc , gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } \ | |||
| 966 | int func(unsigned long long *p_lb, unsigned long long *p_ub) { \ | |||
| 967 | int status; \ | |||
| 968 | long long stride; \ | |||
| 969 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); \ | |||
| 970 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 971 | KA_TRACE(20, (KMP_STR(func) ": T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d\n" , gtid); }; \ | |||
| 972 | \ | |||
| 973 | fini_code status = \ | |||
| 974 | KMP_DISPATCH_NEXT_ULL__kmpc_dispatch_next_8u(&loc, gtid, NULL__null, (kmp_uint64 *)p_lb, \ | |||
| 975 | (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); \ | |||
| 976 | if (status) { \ | |||
| 977 | *p_ub += (stride > 0) ? 1 : -1; \ | |||
| 978 | } \ | |||
| 979 | \ | |||
| 980 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 981 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 982 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 983 | func) " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 984 | "returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); } | |||
| 985 | gtid, *p_lb, *p_ub, stride, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n", gtid, *p_lb, *p_ub, stride, status); }; \ | |||
| 986 | return status; \ | |||
| 987 | } | |||
| 988 | ||||
| 989 | LOOP_START_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_START),int __kmp_api_GOMP_loop_ull_static_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_static_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_static), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (kmp_sch_static) != kmp_sch_static); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status ) { if (!(stride == str2)) { __kmp_debug_assert("stride == str2" , "openmp/runtime/src/kmp_gsupport.cpp", 990); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_static_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 990 | kmp_sch_static)int __kmp_api_GOMP_loop_ull_static_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_static_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_static), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (kmp_sch_static) != kmp_sch_static); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status ) { if (!(stride == str2)) { __kmp_debug_assert("stride == str2" , "openmp/runtime/src/kmp_gsupport.cpp", 990); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_static_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 991 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_NEXT), {})int __kmp_api_GOMP_loop_ull_static_next(unsigned long long *p_lb , unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0 , KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_static_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_static_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 992 | LOOP_START_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DYNAMIC_START),int __kmp_api_GOMP_loop_ull_dynamic_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 993) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 993 | kmp_sch_dynamic_chunked)int __kmp_api_GOMP_loop_ull_dynamic_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 993) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 994 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DYNAMIC_NEXT), {})int __kmp_api_GOMP_loop_ull_dynamic_next(unsigned long long * p_lb, unsigned long long *p_ub) { int status; long long stride ; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if ( kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_dynamic_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_dynamic_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 995 | LOOP_START_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_GUIDED_START),int __kmp_api_GOMP_loop_ull_guided_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_guided_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_guided_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 996) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 996 | kmp_sch_guided_chunked)int __kmp_api_GOMP_loop_ull_guided_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_guided_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_guided_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 996) ; }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 997 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_GUIDED_NEXT), {})int __kmp_api_GOMP_loop_ull_guided_next(unsigned long long *p_lb , unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0 , KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_guided_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_guided_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 998 | LOOP_START_ULL(int __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start(int up , unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb , unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1000 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 999 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_DYNAMIC_START),int __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start(int up , unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb , unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1000 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1000 | kmp_sch_dynamic_chunked)int __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start(int up , unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb , unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1000 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1001 | LOOP_NEXT_ULL(int __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1002 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_DYNAMIC_NEXT), {})int __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1003 | LOOP_START_ULL(int __kmp_api_GOMP_loop_ull_nonmonotonic_guided_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_guided_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1005 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1004 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_GUIDED_START),int __kmp_api_GOMP_loop_ull_nonmonotonic_guided_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_guided_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1005 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1005 | kmp_sch_guided_chunked)int __kmp_api_GOMP_loop_ull_nonmonotonic_guided_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_guided_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1005 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1006 | LOOP_NEXT_ULL(int __kmp_api_GOMP_loop_ull_nonmonotonic_guided_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1007 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_GUIDED_NEXT), {})int __kmp_api_GOMP_loop_ull_nonmonotonic_guided_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1008 | LOOP_RUNTIME_START_ULL(int __kmp_api_GOMP_loop_ull_runtime_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC , 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1009); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1009 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_RUNTIME_START), kmp_sch_runtime)int __kmp_api_GOMP_loop_ull_runtime_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC , 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1009); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1010 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_RUNTIME_NEXT), {})int __kmp_api_GOMP_loop_ull_runtime_next(unsigned long long * p_lb, unsigned long long *p_ub) { int status; long long stride ; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if ( kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_runtime_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1011 | LOOP_RUNTIME_START_ULL(int __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start( int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long * p_ub) { int status; long long str2 = up ? ((long long)str) : - ((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1014); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1012 | KMP_EXPAND_NAME(int __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start( int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long * p_ub) { int status; long long str2 = up ? ((long long)str) : - ((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1014); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1013 | KMP_API_NAME_GOMP_LOOP_ULL_MAYBE_NONMONOTONIC_RUNTIME_START),int __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start( int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long * p_ub) { int status; long long str2 = up ? ((long long)str) : - ((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1014); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1014 | kmp_sch_runtime)int __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start( int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long * p_ub) { int status; long long str2 = up ? ((long long)str) : - ((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1014); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1015 | LOOP_RUNTIME_START_ULL(int __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start(int up , unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub ) { int status; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1017); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1016 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_RUNTIME_START),int __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start(int up , unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub ) { int status; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1017); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1017 | kmp_sch_runtime)int __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start(int up , unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub ) { int status; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_sch_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1017); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1018 | LOOP_NEXT_ULL(int __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1019 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_MAYBE_NONMONOTONIC_RUNTIME_NEXT),int __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1020 | {})int __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1021 | LOOP_NEXT_ULL(int __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1022 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_RUNTIME_NEXT), {})int __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next" ": T#%d\n", gtid); }; {} status = __kmpc_dispatch_next_8u(& loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { *p_ub += (stride > 0) ? 1 : -1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1023 | ||||
| 1024 | LOOP_START_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_STATIC_START),int __kmp_api_GOMP_loop_ull_ordered_static_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_static), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (kmp_ord_static) != kmp_sch_static); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status ) { if (!(stride == str2)) { __kmp_debug_assert("stride == str2" , "openmp/runtime/src/kmp_gsupport.cpp", 1025); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1025 | kmp_ord_static)int __kmp_api_GOMP_loop_ull_ordered_static_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_static), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (kmp_ord_static) != kmp_sch_static); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status ) { if (!(stride == str2)) { __kmp_debug_assert("stride == str2" , "openmp/runtime/src/kmp_gsupport.cpp", 1025); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1026 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_STATIC_NEXT),int __kmp_api_GOMP_loop_ull_ordered_static_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1027 | { KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); })int __kmp_api_GOMP_loop_ull_ordered_static_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_static_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1028 | LOOP_START_ULL(int __kmp_api_GOMP_loop_ull_ordered_dynamic_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_ord_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1030 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1029 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_DYNAMIC_START),int __kmp_api_GOMP_loop_ull_ordered_dynamic_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_ord_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1030 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1030 | kmp_ord_dynamic_chunked)int __kmp_api_GOMP_loop_ull_ordered_dynamic_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_dynamic_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_ord_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1030 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1031 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_DYNAMIC_NEXT),int __kmp_api_GOMP_loop_ull_ordered_dynamic_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1032 | { KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); })int __kmp_api_GOMP_loop_ull_ordered_dynamic_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_dynamic_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1033 | LOOP_START_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_GUIDED_START),int __kmp_api_GOMP_loop_ull_ordered_guided_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_guided_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_ord_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1034 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1034 | kmp_ord_guided_chunked)int __kmp_api_GOMP_loop_ull_ordered_guided_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long str2 = up ? ((long long )str) : -((long long)str); long long stride; int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_guided_chunked), lb, (str2 > 0) ? (ub - 1 ) : (ub + 1), str2, chunk_sz, (kmp_ord_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str2)) { __kmp_debug_assert( "stride == str2", "openmp/runtime/src/kmp_gsupport.cpp", 1034 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1035 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_GUIDED_NEXT),int __kmp_api_GOMP_loop_ull_ordered_guided_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1036 | { KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); })int __kmp_api_GOMP_loop_ull_ordered_guided_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_guided_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1037 | LOOP_RUNTIME_START_ULL(int __kmp_api_GOMP_loop_ull_ordered_runtime_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub) { int status ; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1039); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1038 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_START),int __kmp_api_GOMP_loop_ull_ordered_runtime_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub) { int status ; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1039); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1039 | kmp_ord_runtime)int __kmp_api_GOMP_loop_ull_ordered_runtime_start(int up, unsigned long long lb, unsigned long long ub, unsigned long long str, unsigned long long *p_lb, unsigned long long *p_ub) { int status ; long long str2 = up ? ((long long)str) : -((long long)str); unsigned long long stride; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_start" ": T#%d, up %d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, up, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc , gtid, (kmp_ord_runtime), lb, (str2 > 0) ? (ub - 1) : (ub + 1), str2, chunk_sz, (!0)); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!((long long)stride == str2)) { __kmp_debug_assert("(long long)stride == str2", "openmp/runtime/src/kmp_gsupport.cpp" , 1039); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; return status; } | |||
| 1040 | LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_NEXT),int __kmp_api_GOMP_loop_ull_ordered_runtime_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1041 | { KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); })int __kmp_api_GOMP_loop_ull_ordered_runtime_next(unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride; int gtid = __kmp_get_global_thread_id(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_next" ": T#%d\n", gtid); }; { __kmp_aux_dispatch_fini_chunk_8u(& loc, gtid); } status = __kmpc_dispatch_next_8u(&loc, gtid , __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 * )&stride); if (status) { *p_ub += (stride > 0) ? 1 : - 1; } if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_ordered_runtime_next" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, stride 0x%llx, " "returning %d\n" , gtid, *p_lb, *p_ub, stride, status); }; return status; } | |||
| 1042 | ||||
| 1043 | #define LOOP_DOACROSS_START_ULL(func, schedule)int func(unsigned ncounts, unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg(); struct kmp_dim *dims = ( struct kmp_dim *)___kmp_allocate((sizeof(struct kmp_dim) * ncounts ), "openmp/runtime/src/kmp_gsupport.cpp", 1043); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0; dims [i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz , (schedule) != kmp_sch_static); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!(stride == str )) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 1043); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1043); return status; } \ | |||
| 1044 | int func(unsigned ncounts, unsigned long long *counts, \ | |||
| 1045 | unsigned long long chunk_sz, unsigned long long *p_lb, \ | |||
| 1046 | unsigned long long *p_ub) { \ | |||
| 1047 | int status; \ | |||
| 1048 | long long stride, str, lb, ub; \ | |||
| 1049 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 1050 | struct kmp_dim *dims = \ | |||
| 1051 | (struct kmp_dim *)__kmp_allocate(sizeof(struct kmp_dim) * ncounts)___kmp_allocate((sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1051); \ | |||
| 1052 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 1053 | for (unsigned i = 0; i < ncounts; ++i) { \ | |||
| 1054 | dims[i].lo = 0; \ | |||
| 1055 | dims[i].up = counts[i] - 1; \ | |||
| 1056 | dims[i].st = 1; \ | |||
| 1057 | } \ | |||
| 1058 | __kmpc_doacross_init(&loc, gtid, (int)ncounts, dims); \ | |||
| 1059 | lb = 0; \ | |||
| 1060 | ub = counts[0]; \ | |||
| 1061 | str = 1; \ | |||
| 1062 | \ | |||
| 1063 | KA_TRACE(20, (KMP_STR(func) ": T#%d, lb 0x%llx, ub 0x%llx, str " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, lb, ub, str, chunk_sz); } | |||
| 1064 | "0x%llx, chunk_sz 0x%llx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, lb, ub, str, chunk_sz); } | |||
| 1065 | gtid, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, lb, ub, str, chunk_sz); }; \ | |||
| 1066 | \ | |||
| 1067 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 1068 | KMP_DISPATCH_INIT_ULL__kmp_aux_dispatch_init_8u(&loc, gtid, (schedule), lb, \ | |||
| 1069 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, \ | |||
| 1070 | (schedule) != kmp_sch_static); \ | |||
| 1071 | status = \ | |||
| 1072 | KMP_DISPATCH_NEXT_ULL__kmpc_dispatch_next_8u(&loc, gtid, NULL__null, (kmp_uint64 *)p_lb, \ | |||
| 1073 | (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); \ | |||
| 1074 | if (status) { \ | |||
| 1075 | KMP_DEBUG_ASSERT(stride == str)if (!(stride == str)) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 1075); }; \ | |||
| 1076 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 1077 | } \ | |||
| 1078 | } else { \ | |||
| 1079 | status = 0; \ | |||
| 1080 | } \ | |||
| 1081 | KMP_DOACROSS_FINI(status, gtid)if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; \ | |||
| 1082 | \ | |||
| 1083 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1084 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1085 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1086 | func) " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1087 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 1088 | __kmp_free(dims)___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp", 1088 ); \ | |||
| 1089 | return status; \ | |||
| 1090 | } | |||
| 1091 | ||||
| 1092 | #define LOOP_DOACROSS_RUNTIME_START_ULL(func, schedule)int func(unsigned ncounts, unsigned long long *counts, unsigned long long *p_lb, unsigned long long *p_ub) { int status; unsigned long long stride, str, lb, ub; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg(); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate((sizeof(struct kmp_dim ) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp", 1092); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz , (!0)); status = __kmpc_dispatch_next_8u(&loc, gtid, __null , (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 1092); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1092); return status; } \ | |||
| 1093 | int func(unsigned ncounts, unsigned long long *counts, \ | |||
| 1094 | unsigned long long *p_lb, unsigned long long *p_ub) { \ | |||
| 1095 | int status; \ | |||
| 1096 | unsigned long long stride, str, lb, ub; \ | |||
| 1097 | unsigned long long chunk_sz = 0; \ | |||
| 1098 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 1099 | struct kmp_dim *dims = \ | |||
| 1100 | (struct kmp_dim *)__kmp_allocate(sizeof(struct kmp_dim) * ncounts)___kmp_allocate((sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1100); \ | |||
| 1101 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 1102 | for (unsigned i = 0; i < ncounts; ++i) { \ | |||
| 1103 | dims[i].lo = 0; \ | |||
| 1104 | dims[i].up = counts[i] - 1; \ | |||
| 1105 | dims[i].st = 1; \ | |||
| 1106 | } \ | |||
| 1107 | __kmpc_doacross_init(&loc, gtid, (int)ncounts, dims); \ | |||
| 1108 | lb = 0; \ | |||
| 1109 | ub = counts[0]; \ | |||
| 1110 | str = 1; \ | |||
| 1111 | KA_TRACE(20, (KMP_STR(func) ": T#%d, lb 0x%llx, ub 0x%llx, str " \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, lb, ub, str, chunk_sz); } | |||
| 1112 | "0x%llx, chunk_sz 0x%llx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, lb, ub, str, chunk_sz); } | |||
| 1113 | gtid, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n", gtid, lb, ub, str, chunk_sz); }; \ | |||
| 1114 | \ | |||
| 1115 | if ((str > 0) ? (lb < ub) : (lb > ub)) { \ | |||
| 1116 | KMP_DISPATCH_INIT_ULL__kmp_aux_dispatch_init_8u(&loc, gtid, (schedule), lb, \ | |||
| 1117 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, \ | |||
| 1118 | TRUE(!0)); \ | |||
| 1119 | status = \ | |||
| 1120 | KMP_DISPATCH_NEXT_ULL__kmpc_dispatch_next_8u(&loc, gtid, NULL__null, (kmp_uint64 *)p_lb, \ | |||
| 1121 | (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); \ | |||
| 1122 | if (status) { \ | |||
| 1123 | KMP_DEBUG_ASSERT(stride == str)if (!(stride == str)) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 1123); }; \ | |||
| 1124 | *p_ub += (str > 0) ? 1 : -1; \ | |||
| 1125 | } \ | |||
| 1126 | } else { \ | |||
| 1127 | status = 0; \ | |||
| 1128 | } \ | |||
| 1129 | KMP_DOACROSS_FINI(status, gtid)if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; \ | |||
| 1130 | \ | |||
| 1131 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1132 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1133 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1134 | func) " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); } | |||
| 1135 | gtid, *p_lb, *p_ub, status))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n" , gtid, *p_lb, *p_ub, status); }; \ | |||
| 1136 | __kmp_free(dims)___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp", 1136 ); \ | |||
| 1137 | return status; \ | |||
| 1138 | } | |||
| 1139 | ||||
| 1140 | LOOP_DOACROSS_START_ULL(int __kmp_api_GOMP_loop_ull_doacross_static_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1142); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_static_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str , chunk_sz, (kmp_sch_static) != kmp_sch_static); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!(stride == str )) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 1142); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_static_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1142); return status; } | |||
| 1141 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_STATIC_START),int __kmp_api_GOMP_loop_ull_doacross_static_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1142); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_static_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str , chunk_sz, (kmp_sch_static) != kmp_sch_static); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!(stride == str )) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 1142); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_static_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1142); return status; } | |||
| 1142 | kmp_sch_static)int __kmp_api_GOMP_loop_ull_doacross_static_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1142); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_static_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str , chunk_sz, (kmp_sch_static) != kmp_sch_static); status = __kmpc_dispatch_next_8u (&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub , (kmp_int64 *)&stride); if (status) { if (!(stride == str )) { __kmp_debug_assert("stride == str", "openmp/runtime/src/kmp_gsupport.cpp" , 1142); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_static_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1142); return status; } | |||
| 1143 | LOOP_DOACROSS_START_ULL(int __kmp_api_GOMP_loop_ull_doacross_dynamic_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1145); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 1145); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1145); return status; } | |||
| 1144 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_DYNAMIC_START),int __kmp_api_GOMP_loop_ull_doacross_dynamic_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1145); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 1145); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1145); return status; } | |||
| 1145 | kmp_sch_dynamic_chunked)int __kmp_api_GOMP_loop_ull_doacross_dynamic_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1145); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 1145); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1145); return status; } | |||
| 1146 | LOOP_DOACROSS_START_ULL(int __kmp_api_GOMP_loop_ull_doacross_guided_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1148); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_guided_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 1148); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1148); return status; } | |||
| 1147 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_GUIDED_START),int __kmp_api_GOMP_loop_ull_doacross_guided_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1148); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_guided_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 1148); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1148); return status; } | |||
| 1148 | kmp_sch_guided_chunked)int __kmp_api_GOMP_loop_ull_doacross_guided_start(unsigned ncounts , unsigned long long *counts, unsigned long long chunk_sz, unsigned long long *p_lb, unsigned long long *p_ub) { int status; long long stride, str, lb, ub; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1148); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_guided_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static ); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, ( kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride ); if (status) { if (!(stride == str)) { __kmp_debug_assert("stride == str" , "openmp/runtime/src/kmp_gsupport.cpp", 1148); }; *p_ub += ( str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags ) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_guided_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1148); return status; } | |||
| 1149 | LOOP_DOACROSS_RUNTIME_START_ULL(int __kmp_api_GOMP_loop_ull_doacross_runtime_start(unsigned ncounts , unsigned long long *counts, unsigned long long *p_lb, unsigned long long *p_ub) { int status; unsigned long long stride, str , lb, ub; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1151); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_runtime_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_runtime), lb, (str > 0) ? (ub - 1) : (ub + 1), str , chunk_sz, (!0)); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 1151 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1151); return status; } | |||
| 1150 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_RUNTIME_START),int __kmp_api_GOMP_loop_ull_doacross_runtime_start(unsigned ncounts , unsigned long long *counts, unsigned long long *p_lb, unsigned long long *p_ub) { int status; unsigned long long stride, str , lb, ub; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1151); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_runtime_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_runtime), lb, (str > 0) ? (ub - 1) : (ub + 1), str , chunk_sz, (!0)); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 1151 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1151); return status; } | |||
| 1151 | kmp_sch_runtime)int __kmp_api_GOMP_loop_ull_doacross_runtime_start(unsigned ncounts , unsigned long long *counts, unsigned long long *p_lb, unsigned long long *p_ub) { int status; unsigned long long stride, str , lb, ub; unsigned long long chunk_sz = 0; int gtid = __kmp_get_global_thread_id_reg (); struct kmp_dim *dims = (struct kmp_dim *)___kmp_allocate( (sizeof(struct kmp_dim) * ncounts), "openmp/runtime/src/kmp_gsupport.cpp" , 1151); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; for (unsigned i = 0; i < ncounts; ++i) { dims[i].lo = 0 ; dims[i].up = counts[i] - 1; dims[i].st = 1; } __kmpc_doacross_init (&loc, gtid, (int)ncounts, dims); lb = 0; ub = counts[0]; str = 1; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_runtime_start" ": T#%d, lb 0x%llx, ub 0x%llx, str " "0x%llx, chunk_sz 0x%llx\n" , gtid, lb, ub, str, chunk_sz); }; if ((str > 0) ? (lb < ub) : (lb > ub)) { __kmp_aux_dispatch_init_8u(&loc, gtid , (kmp_sch_runtime), lb, (str > 0) ? (ub - 1) : (ub + 1), str , chunk_sz, (!0)); status = __kmpc_dispatch_next_8u(&loc, gtid, __null, (kmp_uint64 *)p_lb, (kmp_uint64 *)p_ub, (kmp_int64 *)&stride); if (status) { if (!(stride == str)) { __kmp_debug_assert ("stride == str", "openmp/runtime/src/kmp_gsupport.cpp", 1151 ); }; *p_ub += (str > 0) ? 1 : -1; } } else { status = 0; } if (!status && __kmp_threads[gtid]->th.th_dispatch ->th_doacross_flags) { __kmpc_doacross_fini(__null, gtid); }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_loop_ull_doacross_runtime_start" " exit: T#%d, *p_lb 0x%llx, *p_ub 0x%llx, returning %d\n", gtid , *p_lb, *p_ub, status); }; ___kmp_free((dims), "openmp/runtime/src/kmp_gsupport.cpp" , 1151); return status; } | |||
| 1152 | ||||
| 1153 | // Combined parallel / loop worksharing constructs | |||
| 1154 | // | |||
| 1155 | // There are no ull versions (yet). | |||
| 1156 | ||||
| 1157 | #define PARALLEL_LOOP_START(func, schedule, ompt_pre, ompt_post)void func(void (*task)(void *), void *data, unsigned num_threads , long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); }; ompt_pre(); __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (schedule) != kmp_sch_static); ompt_post (); if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d\n" , gtid); }; } \ | |||
| 1158 | void func(void (*task)(void *), void *data, unsigned num_threads, long lb, \ | |||
| 1159 | long ub, long str, long chunk_sz) { \ | |||
| 1160 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 1161 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 1162 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1163 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1164 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1165 | func) ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1166 | gtid, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); }; \ | |||
| 1167 | \ | |||
| 1168 | ompt_pre(); \ | |||
| 1169 | \ | |||
| 1170 | __kmp_GOMP_fork_call(&loc, gtid, num_threads, 0u, task, \ | |||
| 1171 | (microtask_t)__kmp_GOMP_parallel_microtask_wrapper, \ | |||
| 1172 | 9, task, data, num_threads, &loc, (schedule), lb, \ | |||
| 1173 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); \ | |||
| 1174 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid))OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 1175 | \ | |||
| 1176 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, (schedule), lb, \ | |||
| 1177 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, \ | |||
| 1178 | (schedule) != kmp_sch_static); \ | |||
| 1179 | \ | |||
| 1180 | ompt_post(); \ | |||
| 1181 | \ | |||
| 1182 | KA_TRACE(20, (KMP_STR(func) " exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d\n" , gtid); }; \ | |||
| 1183 | } | |||
| 1184 | ||||
| 1185 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 1186 | ||||
| 1187 | #define OMPT_LOOP_PRE()ompt_frame_t *parent_frame; if (ompt_enabled.enabled) { __ompt_get_task_info_internal (0, __null, __null, &parent_frame, __null, __null); parent_frame ->enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; } \ | |||
| 1188 | ompt_frame_t *parent_frame; \ | |||
| 1189 | if (ompt_enabled.enabled) { \ | |||
| 1190 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &parent_frame, NULL__null, NULL__null); \ | |||
| 1191 | parent_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); \ | |||
| 1192 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 1193 | } | |||
| 1194 | ||||
| 1195 | #define OMPT_LOOP_POST()if (ompt_enabled.enabled) { parent_frame->enter_frame = {0 }; } \ | |||
| 1196 | if (ompt_enabled.enabled) { \ | |||
| 1197 | parent_frame->enter_frame = ompt_data_none{0}; \ | |||
| 1198 | } | |||
| 1199 | ||||
| 1200 | #else | |||
| 1201 | ||||
| 1202 | #define OMPT_LOOP_PRE()ompt_frame_t *parent_frame; if (ompt_enabled.enabled) { __ompt_get_task_info_internal (0, __null, __null, &parent_frame, __null, __null); parent_frame ->enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; } | |||
| 1203 | ||||
| 1204 | #define OMPT_LOOP_POST()if (ompt_enabled.enabled) { parent_frame->enter_frame = {0 }; } | |||
| 1205 | ||||
| 1206 | #endif | |||
| 1207 | ||||
| 1208 | PARALLEL_LOOP_START(void __kmp_api_GOMP_parallel_loop_static_start(void (*task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static_start" " exit: T#%d\n", gtid); }; } | |||
| 1209 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_STATIC_START),void __kmp_api_GOMP_parallel_loop_static_start(void (*task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static_start" " exit: T#%d\n", gtid); }; } | |||
| 1210 | kmp_sch_static, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_static_start(void (*task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static_start" " exit: T#%d\n", gtid); }; } | |||
| 1211 | PARALLEL_LOOP_START(void __kmp_api_GOMP_parallel_loop_dynamic_start(void (*task)( void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); if (ompt_enabled.enabled) { parent_frame ->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic_start" " exit: T#%d\n" , gtid); }; } | |||
| 1212 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_DYNAMIC_START),void __kmp_api_GOMP_parallel_loop_dynamic_start(void (*task)( void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); if (ompt_enabled.enabled) { parent_frame ->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic_start" " exit: T#%d\n" , gtid); }; } | |||
| 1213 | kmp_sch_dynamic_chunked, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_dynamic_start(void (*task)( void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); if (ompt_enabled.enabled) { parent_frame ->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic_start" " exit: T#%d\n" , gtid); }; } | |||
| 1214 | PARALLEL_LOOP_START(void __kmp_api_GOMP_parallel_loop_guided_start(void (*task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); if (ompt_enabled.enabled) { parent_frame ->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided_start" " exit: T#%d\n" , gtid); }; } | |||
| 1215 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_GUIDED_START),void __kmp_api_GOMP_parallel_loop_guided_start(void (*task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); if (ompt_enabled.enabled) { parent_frame ->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided_start" " exit: T#%d\n" , gtid); }; } | |||
| 1216 | kmp_sch_guided_chunked, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_guided_start(void (*task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); if (ompt_enabled.enabled) { parent_frame ->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided_start" " exit: T#%d\n" , gtid); }; } | |||
| 1217 | PARALLEL_LOOP_START(void __kmp_api_GOMP_parallel_loop_runtime_start(void (*task)( void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime_start" " exit: T#%d\n", gtid); }; } | |||
| 1218 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME_START),void __kmp_api_GOMP_parallel_loop_runtime_start(void (*task)( void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime_start" " exit: T#%d\n", gtid); }; } | |||
| 1219 | kmp_sch_runtime, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_runtime_start(void (*task)( void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime_start" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; __kmp_GOMP_fork_call (&loc, gtid, num_threads, 0u, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime_start" " exit: T#%d\n", gtid); }; } | |||
| 1220 | ||||
| 1221 | // Tasking constructs | |||
| 1222 | ||||
| 1223 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASK)__kmp_api_GOMP_task(void (*func)(void *), void *data, | |||
| 1224 | void (*copy_func)(void *, void *), | |||
| 1225 | long arg_size, long arg_align, | |||
| 1226 | bool if_cond, unsigned gomp_flags, | |||
| 1227 | void **depend) { | |||
| 1228 | MKLOC(loc, "GOMP_task")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1229 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1230 | kmp_int32 flags = 0; | |||
| 1231 | kmp_tasking_flags_t *input_flags = (kmp_tasking_flags_t *)&flags; | |||
| 1232 | ||||
| 1233 | KA_TRACE(20, ("GOMP_task: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_task: T#%d\n" , gtid); }; | |||
| 1234 | ||||
| 1235 | // The low-order bit is the "untied" flag | |||
| 1236 | if (!(gomp_flags & KMP_GOMP_TASK_UNTIED_FLAG)) { | |||
| 1237 | input_flags->tiedness = TASK_TIED1; | |||
| 1238 | } | |||
| 1239 | // The second low-order bit is the "final" flag | |||
| 1240 | if (gomp_flags & KMP_GOMP_TASK_FINAL_FLAG) { | |||
| 1241 | input_flags->final = 1; | |||
| 1242 | } | |||
| 1243 | input_flags->native = 1; | |||
| 1244 | // __kmp_task_alloc() sets up all other flags | |||
| 1245 | ||||
| 1246 | if (!if_cond) { | |||
| 1247 | arg_size = 0; | |||
| 1248 | } | |||
| 1249 | ||||
| 1250 | kmp_task_t *task = __kmp_task_alloc( | |||
| 1251 | &loc, gtid, input_flags, sizeof(kmp_task_t), | |||
| 1252 | arg_size ? arg_size + arg_align - 1 : 0, (kmp_routine_entry_t)func); | |||
| 1253 | ||||
| 1254 | if (arg_size > 0) { | |||
| 1255 | if (arg_align > 0) { | |||
| 1256 | task->shareds = (void *)((((size_t)task->shareds) + arg_align - 1) / | |||
| 1257 | arg_align * arg_align); | |||
| 1258 | } | |||
| 1259 | // else error?? | |||
| 1260 | ||||
| 1261 | if (copy_func) { | |||
| 1262 | (*copy_func)(task->shareds, data); | |||
| 1263 | } else { | |||
| 1264 | KMP_MEMCPYmemcpy(task->shareds, data, arg_size); | |||
| 1265 | } | |||
| 1266 | } | |||
| 1267 | ||||
| 1268 | #if OMPT_SUPPORT1 | |||
| 1269 | kmp_taskdata_t *current_task; | |||
| 1270 | if (ompt_enabled.enabled) { | |||
| 1271 | current_task = __kmp_threads[gtid]->th.th_current_task; | |||
| 1272 | current_task->ompt_task_info.frame.enter_frame.ptr = | |||
| 1273 | OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1274 | } | |||
| 1275 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1276 | #endif | |||
| 1277 | ||||
| 1278 | if (if_cond) { | |||
| 1279 | if (gomp_flags & KMP_GOMP_TASK_DEPENDS_FLAG) { | |||
| 1280 | KMP_ASSERT(depend)if (!(depend)) { __kmp_debug_assert("depend", "openmp/runtime/src/kmp_gsupport.cpp" , 1280); }; | |||
| 1281 | kmp_gomp_depends_info_t gomp_depends(depend); | |||
| 1282 | kmp_int32 ndeps = gomp_depends.get_num_deps(); | |||
| 1283 | kmp_depend_info_t dep_list[ndeps]; | |||
| 1284 | for (kmp_int32 i = 0; i < ndeps; i++) | |||
| 1285 | dep_list[i] = gomp_depends.get_kmp_depend(i); | |||
| 1286 | kmp_int32 ndeps_cnv; | |||
| 1287 | __kmp_type_convert(ndeps, &ndeps_cnv); | |||
| 1288 | __kmpc_omp_task_with_deps(&loc, gtid, task, ndeps_cnv, dep_list, 0, NULL__null); | |||
| 1289 | } else { | |||
| 1290 | __kmpc_omp_task(&loc, gtid, task); | |||
| 1291 | } | |||
| 1292 | } else { | |||
| 1293 | #if OMPT_SUPPORT1 | |||
| 1294 | ompt_thread_info_t oldInfo; | |||
| 1295 | kmp_info_t *thread; | |||
| 1296 | kmp_taskdata_t *taskdata; | |||
| 1297 | if (ompt_enabled.enabled) { | |||
| 1298 | // Store the threads states and restore them after the task | |||
| 1299 | thread = __kmp_threads[gtid]; | |||
| 1300 | taskdata = KMP_TASK_TO_TASKDATA(task)(((kmp_taskdata_t *)task) - 1); | |||
| 1301 | oldInfo = thread->th.ompt_thread_info; | |||
| 1302 | thread->th.ompt_thread_info.wait_id = 0; | |||
| 1303 | thread->th.ompt_thread_info.state = ompt_state_work_parallel; | |||
| 1304 | taskdata->ompt_task_info.frame.exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1305 | } | |||
| 1306 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1307 | #endif | |||
| 1308 | if (gomp_flags & KMP_GOMP_TASK_DEPENDS_FLAG) { | |||
| 1309 | KMP_ASSERT(depend)if (!(depend)) { __kmp_debug_assert("depend", "openmp/runtime/src/kmp_gsupport.cpp" , 1309); }; | |||
| 1310 | kmp_gomp_depends_info_t gomp_depends(depend); | |||
| 1311 | kmp_int32 ndeps = gomp_depends.get_num_deps(); | |||
| 1312 | kmp_depend_info_t dep_list[ndeps]; | |||
| 1313 | for (kmp_int32 i = 0; i < ndeps; i++) | |||
| 1314 | dep_list[i] = gomp_depends.get_kmp_depend(i); | |||
| 1315 | __kmpc_omp_wait_deps(&loc, gtid, ndeps, dep_list, 0, NULL__null); | |||
| 1316 | } | |||
| 1317 | ||||
| 1318 | __kmpc_omp_task_begin_if0(&loc, gtid, task); | |||
| 1319 | func(data); | |||
| 1320 | __kmpc_omp_task_complete_if0(&loc, gtid, task); | |||
| 1321 | ||||
| 1322 | #if OMPT_SUPPORT1 | |||
| 1323 | if (ompt_enabled.enabled) { | |||
| 1324 | thread->th.ompt_thread_info = oldInfo; | |||
| 1325 | taskdata->ompt_task_info.frame.exit_frame = ompt_data_none{0}; | |||
| 1326 | } | |||
| 1327 | #endif | |||
| 1328 | } | |||
| 1329 | #if OMPT_SUPPORT1 | |||
| 1330 | if (ompt_enabled.enabled) { | |||
| 1331 | current_task->ompt_task_info.frame.enter_frame = ompt_data_none{0}; | |||
| 1332 | } | |||
| 1333 | #endif | |||
| 1334 | ||||
| 1335 | KA_TRACE(20, ("GOMP_task exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_task exit: T#%d\n" , gtid); }; | |||
| 1336 | } | |||
| 1337 | ||||
| 1338 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKWAIT)__kmp_api_GOMP_taskwait(void) { | |||
| 1339 | MKLOC(loc, "GOMP_taskwait")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1340 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1341 | ||||
| 1342 | #if OMPT_SUPPORT1 | |||
| 1343 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1344 | #endif | |||
| 1345 | ||||
| 1346 | KA_TRACE(20, ("GOMP_taskwait: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskwait: T#%d\n" , gtid); }; | |||
| 1347 | ||||
| 1348 | __kmpc_omp_taskwait(&loc, gtid); | |||
| 1349 | ||||
| 1350 | KA_TRACE(20, ("GOMP_taskwait exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskwait exit: T#%d\n" , gtid); }; | |||
| 1351 | } | |||
| 1352 | ||||
| 1353 | // Sections worksharing constructs | |||
| 1354 | // | |||
| 1355 | // For the sections construct, we initialize a dynamically scheduled loop | |||
| 1356 | // worksharing construct with lb 1 and stride 1, and use the iteration #'s | |||
| 1357 | // that its returns as sections ids. | |||
| 1358 | // | |||
| 1359 | // There are no special entry points for ordered sections, so we always use | |||
| 1360 | // the dynamically scheduled workshare, even if the sections aren't ordered. | |||
| 1361 | ||||
| 1362 | unsigned KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SECTIONS_START)__kmp_api_GOMP_sections_start(unsigned count) { | |||
| 1363 | int status; | |||
| 1364 | kmp_int lb, ub, stride; | |||
| 1365 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1366 | MKLOC(loc, "GOMP_sections_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1367 | KA_TRACE(20, ("GOMP_sections_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_start: T#%d\n" , gtid); }; | |||
| 1368 | ||||
| 1369 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, kmp_nm_dynamic_chunked, 1, count, 1, 1, TRUE(!0)); | |||
| 1370 | ||||
| 1371 | status = KMP_DISPATCH_NEXT__kmpc_dispatch_next_8(&loc, gtid, NULL__null, &lb, &ub, &stride); | |||
| 1372 | if (status) { | |||
| 1373 | KMP_DEBUG_ASSERT(stride == 1)if (!(stride == 1)) { __kmp_debug_assert("stride == 1", "openmp/runtime/src/kmp_gsupport.cpp" , 1373); }; | |||
| 1374 | KMP_DEBUG_ASSERT(lb > 0)if (!(lb > 0)) { __kmp_debug_assert("lb > 0", "openmp/runtime/src/kmp_gsupport.cpp" , 1374); }; | |||
| 1375 | KMP_ASSERT(lb == ub)if (!(lb == ub)) { __kmp_debug_assert("lb == ub", "openmp/runtime/src/kmp_gsupport.cpp" , 1375); }; | |||
| 1376 | } else { | |||
| 1377 | lb = 0; | |||
| 1378 | } | |||
| 1379 | ||||
| 1380 | KA_TRACE(20, ("GOMP_sections_start exit: T#%d returning %u\n", gtid,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_start exit: T#%d returning %u\n" , gtid, (unsigned)lb); } | |||
| 1381 | (unsigned)lb))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_start exit: T#%d returning %u\n" , gtid, (unsigned)lb); }; | |||
| 1382 | return (unsigned)lb; | |||
| 1383 | } | |||
| 1384 | ||||
| 1385 | unsigned KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SECTIONS_NEXT)__kmp_api_GOMP_sections_next(void) { | |||
| 1386 | int status; | |||
| 1387 | kmp_int lb, ub, stride; | |||
| 1388 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1389 | MKLOC(loc, "GOMP_sections_next")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1390 | KA_TRACE(20, ("GOMP_sections_next: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_next: T#%d\n" , gtid); }; | |||
| 1391 | ||||
| 1392 | #if OMPT_SUPPORT1 | |||
| 1393 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1394 | #endif | |||
| 1395 | ||||
| 1396 | status = KMP_DISPATCH_NEXT__kmpc_dispatch_next_8(&loc, gtid, NULL__null, &lb, &ub, &stride); | |||
| 1397 | if (status) { | |||
| 1398 | KMP_DEBUG_ASSERT(stride == 1)if (!(stride == 1)) { __kmp_debug_assert("stride == 1", "openmp/runtime/src/kmp_gsupport.cpp" , 1398); }; | |||
| 1399 | KMP_DEBUG_ASSERT(lb > 0)if (!(lb > 0)) { __kmp_debug_assert("lb > 0", "openmp/runtime/src/kmp_gsupport.cpp" , 1399); }; | |||
| 1400 | KMP_ASSERT(lb == ub)if (!(lb == ub)) { __kmp_debug_assert("lb == ub", "openmp/runtime/src/kmp_gsupport.cpp" , 1400); }; | |||
| 1401 | } else { | |||
| 1402 | lb = 0; | |||
| 1403 | } | |||
| 1404 | ||||
| 1405 | KA_TRACE(if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_next exit: T#%d returning %u\n" , gtid, (unsigned)lb); } | |||
| 1406 | 20, ("GOMP_sections_next exit: T#%d returning %u\n", gtid, (unsigned)lb))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_next exit: T#%d returning %u\n" , gtid, (unsigned)lb); }; | |||
| 1407 | return (unsigned)lb; | |||
| 1408 | } | |||
| 1409 | ||||
| 1410 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_SECTIONS_START)__kmp_api_GOMP_parallel_sections_start( | |||
| 1411 | void (*task)(void *), void *data, unsigned num_threads, unsigned count) { | |||
| 1412 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1413 | ||||
| 1414 | #if OMPT_SUPPORT1 | |||
| 1415 | ompt_frame_t *parent_frame; | |||
| 1416 | ||||
| 1417 | if (ompt_enabled.enabled) { | |||
| 1418 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &parent_frame, NULL__null, NULL__null); | |||
| 1419 | parent_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1420 | } | |||
| 1421 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1422 | #endif | |||
| 1423 | ||||
| 1424 | MKLOC(loc, "GOMP_parallel_sections_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1425 | KA_TRACE(20, ("GOMP_parallel_sections_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_sections_start: T#%d\n" , gtid); }; | |||
| 1426 | ||||
| 1427 | __kmp_GOMP_fork_call(&loc, gtid, num_threads, 0u, task, | |||
| 1428 | (microtask_t)__kmp_GOMP_parallel_microtask_wrapper, 9, | |||
| 1429 | task, data, num_threads, &loc, kmp_nm_dynamic_chunked, | |||
| 1430 | (kmp_int)1, (kmp_int)count, (kmp_int)1, (kmp_int)1); | |||
| 1431 | ||||
| 1432 | #if OMPT_SUPPORT1 | |||
| 1433 | if (ompt_enabled.enabled) { | |||
| 1434 | parent_frame->enter_frame = ompt_data_none{0}; | |||
| 1435 | } | |||
| 1436 | #endif | |||
| 1437 | ||||
| 1438 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, kmp_nm_dynamic_chunked, 1, count, 1, 1, TRUE(!0)); | |||
| 1439 | ||||
| 1440 | KA_TRACE(20, ("GOMP_parallel_sections_start exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_sections_start exit: T#%d\n" , gtid); }; | |||
| 1441 | } | |||
| 1442 | ||||
| 1443 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SECTIONS_END)__kmp_api_GOMP_sections_end(void) { | |||
| 1444 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1445 | KA_TRACE(20, ("GOMP_sections_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_end: T#%d\n" , gtid); } | |||
| 1446 | ||||
| 1447 | #if OMPT_SUPPORT1 | |||
| 1448 | ompt_frame_t *ompt_frame; | |||
| 1449 | if (ompt_enabled.enabled) { | |||
| 1450 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 1451 | ompt_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1452 | } | |||
| 1453 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1454 | #endif | |||
| 1455 | __kmp_barrier(bs_plain_barrier, gtid, FALSE0, 0, NULL__null, NULL__null); | |||
| 1456 | #if OMPT_SUPPORT1 | |||
| 1457 | if (ompt_enabled.enabled) { | |||
| 1458 | ompt_frame->enter_frame = ompt_data_none{0}; | |||
| 1459 | } | |||
| 1460 | #endif | |||
| 1461 | ||||
| 1462 | KA_TRACE(20, ("GOMP_sections_end exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_end exit: T#%d\n" , gtid); } | |||
| 1463 | } | |||
| 1464 | ||||
| 1465 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SECTIONS_END_NOWAIT)__kmp_api_GOMP_sections_end_nowait(void) { | |||
| 1466 | KA_TRACE(20, ("GOMP_sections_end_nowait: T#%d\n", __kmp_get_gtid()))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_end_nowait: T#%d\n" , __kmp_get_global_thread_id()); } | |||
| 1467 | } | |||
| 1468 | ||||
| 1469 | // libgomp has an empty function for GOMP_taskyield as of 2013-10-10 | |||
| 1470 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKYIELD)__kmp_api_GOMP_taskyield(void) { | |||
| 1471 | KA_TRACE(20, ("GOMP_taskyield: T#%d\n", __kmp_get_gtid()))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskyield: T#%d\n" , __kmp_get_global_thread_id()); } | |||
| 1472 | return; | |||
| 1473 | } | |||
| 1474 | ||||
| 1475 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL)__kmp_api_GOMP_parallel(void (*task)(void *), | |||
| 1476 | void *data, | |||
| 1477 | unsigned num_threads, | |||
| 1478 | unsigned int flags) { | |||
| 1479 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1480 | MKLOC(loc, "GOMP_parallel")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1481 | KA_TRACE(20, ("GOMP_parallel: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel: T#%d\n" , gtid); }; | |||
| 1482 | ||||
| 1483 | #if OMPT_SUPPORT1 | |||
| 1484 | ompt_task_info_t *parent_task_info, *task_info; | |||
| 1485 | if (ompt_enabled.enabled) { | |||
| 1486 | parent_task_info = __ompt_get_task_info_object(0); | |||
| 1487 | parent_task_info->frame.enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1488 | } | |||
| 1489 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1490 | #endif | |||
| 1491 | __kmp_GOMP_fork_call(&loc, gtid, num_threads, flags, task, | |||
| 1492 | (microtask_t)__kmp_GOMP_microtask_wrapper, 2, task, | |||
| 1493 | data); | |||
| 1494 | #if OMPT_SUPPORT1 | |||
| 1495 | if (ompt_enabled.enabled) { | |||
| 1496 | task_info = __ompt_get_task_info_object(0); | |||
| 1497 | task_info->frame.exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1498 | } | |||
| 1499 | #endif | |||
| 1500 | task(data); | |||
| 1501 | { | |||
| 1502 | #if OMPT_SUPPORT1 | |||
| 1503 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1504 | #endif | |||
| 1505 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_END)__kmp_api_GOMP_parallel_end(); | |||
| 1506 | } | |||
| 1507 | #if OMPT_SUPPORT1 | |||
| 1508 | if (ompt_enabled.enabled) { | |||
| 1509 | task_info->frame.exit_frame = ompt_data_none{0}; | |||
| 1510 | parent_task_info->frame.enter_frame = ompt_data_none{0}; | |||
| 1511 | } | |||
| 1512 | #endif | |||
| 1513 | } | |||
| 1514 | ||||
| 1515 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_SECTIONS)__kmp_api_GOMP_parallel_sections(void (*task)(void *), | |||
| 1516 | void *data, | |||
| 1517 | unsigned num_threads, | |||
| 1518 | unsigned count, | |||
| 1519 | unsigned flags) { | |||
| 1520 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1521 | MKLOC(loc, "GOMP_parallel_sections")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1522 | KA_TRACE(20, ("GOMP_parallel_sections: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_sections: T#%d\n" , gtid); }; | |||
| ||||
| 1523 | ||||
| 1524 | #if OMPT_SUPPORT1 | |||
| 1525 | ompt_frame_t *task_frame; | |||
| 1526 | kmp_info_t *thr; | |||
| 1527 | if (ompt_enabled.enabled) { | |||
| 1528 | thr = __kmp_threads[gtid]; | |||
| 1529 | task_frame = &(thr->th.th_current_task->ompt_task_info.frame); | |||
| 1530 | task_frame->enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1531 | } | |||
| 1532 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1533 | #endif | |||
| 1534 | ||||
| 1535 | __kmp_GOMP_fork_call(&loc, gtid, num_threads, flags, task, | |||
| 1536 | (microtask_t)__kmp_GOMP_parallel_microtask_wrapper, 9, | |||
| 1537 | task, data, num_threads, &loc, kmp_nm_dynamic_chunked, | |||
| 1538 | (kmp_int)1, (kmp_int)count, (kmp_int)1, (kmp_int)1); | |||
| 1539 | ||||
| 1540 | { | |||
| 1541 | #if OMPT_SUPPORT1 | |||
| 1542 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1543 | #endif | |||
| 1544 | ||||
| 1545 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, kmp_nm_dynamic_chunked, 1, count, 1, 1, TRUE(!0)); | |||
| 1546 | } | |||
| 1547 | ||||
| 1548 | #if OMPT_SUPPORT1 | |||
| 1549 | ompt_frame_t *child_frame; | |||
| 1550 | if (ompt_enabled.enabled) { | |||
| 1551 | child_frame = &(thr->th.th_current_task->ompt_task_info.frame); | |||
| 1552 | child_frame->exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 1553 | } | |||
| 1554 | #endif | |||
| 1555 | ||||
| 1556 | task(data); | |||
| 1557 | ||||
| 1558 | #if OMPT_SUPPORT1 | |||
| 1559 | if (ompt_enabled.enabled) { | |||
| 1560 | child_frame->exit_frame = ompt_data_none{0}; | |||
| 1561 | } | |||
| 1562 | #endif | |||
| 1563 | ||||
| 1564 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_END)__kmp_api_GOMP_parallel_end(); | |||
| 1565 | KA_TRACE(20, ("GOMP_parallel_sections exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_sections exit: T#%d\n" , gtid); }; | |||
| 1566 | ||||
| 1567 | #if OMPT_SUPPORT1 | |||
| 1568 | if (ompt_enabled.enabled) { | |||
| 1569 | task_frame->enter_frame = ompt_data_none{0}; | |||
| ||||
| 1570 | } | |||
| 1571 | #endif | |||
| 1572 | } | |||
| 1573 | ||||
| 1574 | #define PARALLEL_LOOP(func, schedule, ompt_pre, ompt_post)void func(void (*task)(void *), void *data, unsigned num_threads , long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if ( kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); }; ompt_pre(); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (schedule), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (schedule) != kmp_sch_static); } task(data ); __kmp_api_GOMP_parallel_end(); ompt_post(); if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d\n", gtid ); }; } \ | |||
| 1575 | void func(void (*task)(void *), void *data, unsigned num_threads, long lb, \ | |||
| 1576 | long ub, long str, long chunk_sz, unsigned flags) { \ | |||
| 1577 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); \ | |||
| 1578 | MKLOC(loc, KMP_STR(func))static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; \ | |||
| 1579 | KA_TRACE( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1580 | 20, \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1581 | (KMP_STR( \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1582 | func) ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", \if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); } | |||
| 1583 | gtid, lb, ub, str, chunk_sz))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n" , gtid, lb, ub, str, chunk_sz); }; \ | |||
| 1584 | \ | |||
| 1585 | ompt_pre(); \ | |||
| 1586 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid);)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 1587 | __kmp_GOMP_fork_call(&loc, gtid, num_threads, flags, task, \ | |||
| 1588 | (microtask_t)__kmp_GOMP_parallel_microtask_wrapper, \ | |||
| 1589 | 9, task, data, num_threads, &loc, (schedule), lb, \ | |||
| 1590 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); \ | |||
| 1591 | \ | |||
| 1592 | { \ | |||
| 1593 | IF_OMPT_SUPPORT(OMPT_STORE_RETURN_ADDRESS(gtid);)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; \ | |||
| 1594 | KMP_DISPATCH_INIT__kmp_aux_dispatch_init_8(&loc, gtid, (schedule), lb, \ | |||
| 1595 | (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, \ | |||
| 1596 | (schedule) != kmp_sch_static); \ | |||
| 1597 | } \ | |||
| 1598 | task(data); \ | |||
| 1599 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_END)__kmp_api_GOMP_parallel_end(); \ | |||
| 1600 | ompt_post(); \ | |||
| 1601 | \ | |||
| 1602 | KA_TRACE(20, (KMP_STR(func) " exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("func" " exit: T#%d\n" , gtid); }; \ | |||
| 1603 | } | |||
| 1604 | ||||
| 1605 | PARALLEL_LOOP(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_STATIC),void __kmp_api_GOMP_parallel_loop_static(void (*task)(void *) , void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static" " exit: T#%d\n", gtid); }; } | |||
| 1606 | kmp_sch_static, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_static(void (*task)(void *) , void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_static), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_static), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_static) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_static" " exit: T#%d\n", gtid); }; } | |||
| 1607 | PARALLEL_LOOP(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_DYNAMIC),void __kmp_api_GOMP_parallel_loop_dynamic(void (*task)(void * ), void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic" " exit: T#%d\n", gtid); }; } | |||
| 1608 | kmp_sch_dynamic_chunked, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_dynamic(void (*task)(void * ), void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_dynamic" " exit: T#%d\n", gtid); }; } | |||
| 1609 | PARALLEL_LOOP(void __kmp_api_GOMP_parallel_loop_nonmonotonic_guided(void (* task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" " exit: T#%d\n", gtid); }; } | |||
| 1610 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_NONMONOTONIC_GUIDED),void __kmp_api_GOMP_parallel_loop_nonmonotonic_guided(void (* task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" " exit: T#%d\n", gtid); }; } | |||
| 1611 | kmp_sch_guided_chunked, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_nonmonotonic_guided(void (* task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" " exit: T#%d\n", gtid); }; } | |||
| 1612 | PARALLEL_LOOP(void __kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic(void ( *task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" " exit: T#%d\n", gtid); }; } | |||
| 1613 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_NONMONOTONIC_DYNAMIC),void __kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic(void ( *task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" " exit: T#%d\n", gtid); }; } | |||
| 1614 | kmp_sch_dynamic_chunked, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic(void ( *task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_dynamic_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_dynamic_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_dynamic_chunked ) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" " exit: T#%d\n", gtid); }; } | |||
| 1615 | PARALLEL_LOOP(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_GUIDED),void __kmp_api_GOMP_parallel_loop_guided(void (*task)(void *) , void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided" " exit: T#%d\n", gtid); }; } | |||
| 1616 | kmp_sch_guided_chunked, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_guided(void (*task)(void *) , void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_guided_chunked ), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_guided_chunked), lb, (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz, (kmp_sch_guided_chunked) != kmp_sch_static); } task(data); __kmp_api_GOMP_parallel_end (); if (ompt_enabled.enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_guided" " exit: T#%d\n", gtid); }; } | |||
| 1617 | PARALLEL_LOOP(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME),void __kmp_api_GOMP_parallel_loop_runtime(void (*task)(void * ), void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1618 | kmp_sch_runtime, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_runtime(void (*task)(void * ), void *data, unsigned num_threads, long lb, long ub, long str , long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1619 | PARALLEL_LOOP(void __kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime( void (*task)(void *), void *data, unsigned num_threads, long lb , long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1620 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_MAYBE_NONMONOTONIC_RUNTIME),void __kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime( void (*task)(void *), void *data, unsigned num_threads, long lb , long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1621 | kmp_sch_runtime, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime( void (*task)(void *), void *data, unsigned num_threads, long lb , long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg(); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;"};; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1622 | PARALLEL_LOOP(void __kmp_api_GOMP_parallel_loop_nonmonotonic_runtime(void ( *task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1623 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_NONMONOTONIC_RUNTIME),void __kmp_api_GOMP_parallel_loop_nonmonotonic_runtime(void ( *task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1624 | kmp_sch_runtime, OMPT_LOOP_PRE, OMPT_LOOP_POST)void __kmp_api_GOMP_parallel_loop_nonmonotonic_runtime(void ( *task)(void *), void *data, unsigned num_threads, long lb, long ub, long str, long chunk_sz, unsigned flags) { int gtid = __kmp_get_global_thread_id_reg (); static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" ": T#%d, lb 0x%lx, ub 0x%lx, str 0x%lx, chunk_sz 0x%lx\n", gtid , lb, ub, str, chunk_sz); }; ompt_frame_t *parent_frame; if ( ompt_enabled.enabled) { __ompt_get_task_info_internal(0, __null , __null, &parent_frame, __null, __null); parent_frame-> enter_frame.ptr = __builtin_frame_address(0); OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; }; OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_GOMP_fork_call (&loc, gtid, num_threads, flags, task, (microtask_t)__kmp_GOMP_parallel_microtask_wrapper , 9, task, data, num_threads, &loc, (kmp_sch_runtime), lb , (str > 0) ? (ub - 1) : (ub + 1), str, chunk_sz); { OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address(0)};; __kmp_aux_dispatch_init_8 (&loc, gtid, (kmp_sch_runtime), lb, (str > 0) ? (ub - 1 ) : (ub + 1), str, chunk_sz, (kmp_sch_runtime) != kmp_sch_static ); } task(data); __kmp_api_GOMP_parallel_end(); if (ompt_enabled .enabled) { parent_frame->enter_frame = {0}; }; if (kmp_a_debug >= 20) { __kmp_debug_printf ("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" " exit: T#%d\n", gtid); }; } | |||
| 1625 | ||||
| 1626 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKGROUP_START)__kmp_api_GOMP_taskgroup_start(void) { | |||
| 1627 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1628 | MKLOC(loc, "GOMP_taskgroup_start")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1629 | KA_TRACE(20, ("GOMP_taskgroup_start: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskgroup_start: T#%d\n" , gtid); }; | |||
| 1630 | ||||
| 1631 | #if OMPT_SUPPORT1 | |||
| 1632 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1633 | #endif | |||
| 1634 | ||||
| 1635 | __kmpc_taskgroup(&loc, gtid); | |||
| 1636 | ||||
| 1637 | return; | |||
| 1638 | } | |||
| 1639 | ||||
| 1640 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKGROUP_END)__kmp_api_GOMP_taskgroup_end(void) { | |||
| 1641 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1642 | MKLOC(loc, "GOMP_taskgroup_end")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1643 | KA_TRACE(20, ("GOMP_taskgroup_end: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskgroup_end: T#%d\n" , gtid); }; | |||
| 1644 | ||||
| 1645 | #if OMPT_SUPPORT1 | |||
| 1646 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1647 | #endif | |||
| 1648 | ||||
| 1649 | __kmpc_end_taskgroup(&loc, gtid); | |||
| 1650 | ||||
| 1651 | return; | |||
| 1652 | } | |||
| 1653 | ||||
| 1654 | static kmp_int32 __kmp_gomp_to_omp_cancellation_kind(int gomp_kind) { | |||
| 1655 | kmp_int32 cncl_kind = 0; | |||
| 1656 | switch (gomp_kind) { | |||
| 1657 | case 1: | |||
| 1658 | cncl_kind = cancel_parallel; | |||
| 1659 | break; | |||
| 1660 | case 2: | |||
| 1661 | cncl_kind = cancel_loop; | |||
| 1662 | break; | |||
| 1663 | case 4: | |||
| 1664 | cncl_kind = cancel_sections; | |||
| 1665 | break; | |||
| 1666 | case 8: | |||
| 1667 | cncl_kind = cancel_taskgroup; | |||
| 1668 | break; | |||
| 1669 | } | |||
| 1670 | return cncl_kind; | |||
| 1671 | } | |||
| 1672 | ||||
| 1673 | // Return true if cancellation should take place, false otherwise | |||
| 1674 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_CANCELLATION_POINT)__kmp_api_GOMP_cancellation_point(int which) { | |||
| 1675 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1676 | MKLOC(loc, "GOMP_cancellation_point")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1677 | KA_TRACE(20, ("GOMP_cancellation_point: T#%d which:%d\n", gtid, which))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_cancellation_point: T#%d which:%d\n" , gtid, which); }; | |||
| 1678 | kmp_int32 cncl_kind = __kmp_gomp_to_omp_cancellation_kind(which); | |||
| 1679 | return __kmpc_cancellationpoint(&loc, gtid, cncl_kind); | |||
| 1680 | } | |||
| 1681 | ||||
| 1682 | // Return true if cancellation should take place, false otherwise | |||
| 1683 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_CANCEL)__kmp_api_GOMP_cancel(int which, bool do_cancel) { | |||
| 1684 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1685 | MKLOC(loc, "GOMP_cancel")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1686 | KA_TRACE(20, ("GOMP_cancel: T#%d which:%d do_cancel:%d\n", gtid, which,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_cancel: T#%d which:%d do_cancel:%d\n" , gtid, which, (int)do_cancel); } | |||
| 1687 | (int)do_cancel))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_cancel: T#%d which:%d do_cancel:%d\n" , gtid, which, (int)do_cancel); }; | |||
| 1688 | kmp_int32 cncl_kind = __kmp_gomp_to_omp_cancellation_kind(which); | |||
| 1689 | ||||
| 1690 | if (do_cancel == FALSE0) { | |||
| 1691 | return __kmpc_cancellationpoint(&loc, gtid, cncl_kind); | |||
| 1692 | } else { | |||
| 1693 | return __kmpc_cancel(&loc, gtid, cncl_kind); | |||
| 1694 | } | |||
| 1695 | } | |||
| 1696 | ||||
| 1697 | // Return true if cancellation should take place, false otherwise | |||
| 1698 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_BARRIER_CANCEL)__kmp_api_GOMP_barrier_cancel(void) { | |||
| 1699 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1700 | KA_TRACE(20, ("GOMP_barrier_cancel: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_barrier_cancel: T#%d\n" , gtid); }; | |||
| 1701 | return __kmp_barrier_gomp_cancel(gtid); | |||
| 1702 | } | |||
| 1703 | ||||
| 1704 | // Return true if cancellation should take place, false otherwise | |||
| 1705 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SECTIONS_END_CANCEL)__kmp_api_GOMP_sections_end_cancel(void) { | |||
| 1706 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1707 | KA_TRACE(20, ("GOMP_sections_end_cancel: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections_end_cancel: T#%d\n" , gtid); }; | |||
| 1708 | return __kmp_barrier_gomp_cancel(gtid); | |||
| 1709 | } | |||
| 1710 | ||||
| 1711 | // Return true if cancellation should take place, false otherwise | |||
| 1712 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_END_CANCEL)__kmp_api_GOMP_loop_end_cancel(void) { | |||
| 1713 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 1714 | KA_TRACE(20, ("GOMP_loop_end_cancel: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_end_cancel: T#%d\n" , gtid); }; | |||
| 1715 | return __kmp_barrier_gomp_cancel(gtid); | |||
| 1716 | } | |||
| 1717 | ||||
| 1718 | // All target functions are empty as of 2014-05-29 | |||
| 1719 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TARGET)__kmp_api_GOMP_target(int device, void (*fn)(void *), | |||
| 1720 | const void *openmp_target, | |||
| 1721 | size_t mapnum, void **hostaddrs, | |||
| 1722 | size_t *sizes, | |||
| 1723 | unsigned char *kinds) { | |||
| 1724 | return; | |||
| 1725 | } | |||
| 1726 | ||||
| 1727 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TARGET_DATA)__kmp_api_GOMP_target_data( | |||
| 1728 | int device, const void *openmp_target, size_t mapnum, void **hostaddrs, | |||
| 1729 | size_t *sizes, unsigned char *kinds) { | |||
| 1730 | return; | |||
| 1731 | } | |||
| 1732 | ||||
| 1733 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TARGET_END_DATA)__kmp_api_GOMP_target_end_data(void) { return; } | |||
| 1734 | ||||
| 1735 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TARGET_UPDATE)__kmp_api_GOMP_target_update( | |||
| 1736 | int device, const void *openmp_target, size_t mapnum, void **hostaddrs, | |||
| 1737 | size_t *sizes, unsigned char *kinds) { | |||
| 1738 | return; | |||
| 1739 | } | |||
| 1740 | ||||
| 1741 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TEAMS)__kmp_api_GOMP_teams(unsigned int num_teams, | |||
| 1742 | unsigned int thread_limit) { | |||
| 1743 | return; | |||
| 1744 | } | |||
| 1745 | ||||
| 1746 | // Task duplication function which copies src to dest (both are | |||
| 1747 | // preallocated task structures) | |||
| 1748 | static void __kmp_gomp_task_dup(kmp_task_t *dest, kmp_task_t *src, | |||
| 1749 | kmp_int32 last_private) { | |||
| 1750 | kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(src)(((kmp_taskdata_t *)src) - 1); | |||
| 1751 | if (taskdata->td_copy_func) { | |||
| 1752 | (taskdata->td_copy_func)(dest->shareds, src->shareds); | |||
| 1753 | } | |||
| 1754 | } | |||
| 1755 | ||||
| 1756 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKGROUP_REDUCTION_REGISTER)__kmp_api_GOMP_taskgroup_reduction_register( | |||
| 1757 | uintptr_t *); | |||
| 1758 | ||||
| 1759 | #ifdef __cplusplus201703L | |||
| 1760 | } // extern "C" | |||
| 1761 | #endif | |||
| 1762 | ||||
| 1763 | template <typename T> | |||
| 1764 | void __GOMP_taskloop(void (*func)(void *), void *data, | |||
| 1765 | void (*copy_func)(void *, void *), long arg_size, | |||
| 1766 | long arg_align, unsigned gomp_flags, | |||
| 1767 | unsigned long num_tasks, int priority, T start, T end, | |||
| 1768 | T step) { | |||
| 1769 | typedef void (*p_task_dup_t)(kmp_task_t *, kmp_task_t *, kmp_int32); | |||
| 1770 | MKLOC(loc, "GOMP_taskloop")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1771 | int sched; | |||
| 1772 | T *loop_bounds; | |||
| 1773 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1774 | kmp_int32 flags = 0; | |||
| 1775 | int if_val = gomp_flags & (1u << 10); | |||
| 1776 | int nogroup = gomp_flags & (1u << 11); | |||
| 1777 | int up = gomp_flags & (1u << 8); | |||
| 1778 | int reductions = gomp_flags & (1u << 12); | |||
| 1779 | p_task_dup_t task_dup = NULL__null; | |||
| 1780 | kmp_tasking_flags_t *input_flags = (kmp_tasking_flags_t *)&flags; | |||
| 1781 | #ifdef KMP_DEBUG1 | |||
| 1782 | { | |||
| 1783 | char *buff; | |||
| 1784 | buff = __kmp_str_format( | |||
| 1785 | "GOMP_taskloop: T#%%d: func:%%p data:%%p copy_func:%%p " | |||
| 1786 | "arg_size:%%ld arg_align:%%ld gomp_flags:0x%%x num_tasks:%%lu " | |||
| 1787 | "priority:%%d start:%%%s end:%%%s step:%%%s\n", | |||
| 1788 | traits_t<T>::spec, traits_t<T>::spec, traits_t<T>::spec); | |||
| 1789 | KA_TRACE(20, (buff, gtid, func, data, copy_func, arg_size, arg_align,if (kmp_a_debug >= 20) { __kmp_debug_printf (buff, gtid, func , data, copy_func, arg_size, arg_align, gomp_flags, num_tasks , priority, start, end, step); } | |||
| 1790 | gomp_flags, num_tasks, priority, start, end, step))if (kmp_a_debug >= 20) { __kmp_debug_printf (buff, gtid, func , data, copy_func, arg_size, arg_align, gomp_flags, num_tasks , priority, start, end, step); }; | |||
| 1791 | __kmp_str_free(&buff); | |||
| 1792 | } | |||
| 1793 | #endif | |||
| 1794 | KMP_ASSERT((size_t)arg_size >= 2 * sizeof(T))if (!((size_t)arg_size >= 2 * sizeof(T))) { __kmp_debug_assert ("(size_t)arg_size >= 2 * sizeof(T)", "openmp/runtime/src/kmp_gsupport.cpp" , 1794); }; | |||
| 1795 | KMP_ASSERT(arg_align > 0)if (!(arg_align > 0)) { __kmp_debug_assert("arg_align > 0" , "openmp/runtime/src/kmp_gsupport.cpp", 1795); }; | |||
| 1796 | // The low-order bit is the "untied" flag | |||
| 1797 | if (!(gomp_flags & 1)) { | |||
| 1798 | input_flags->tiedness = TASK_TIED1; | |||
| 1799 | } | |||
| 1800 | // The second low-order bit is the "final" flag | |||
| 1801 | if (gomp_flags & 2) { | |||
| 1802 | input_flags->final = 1; | |||
| 1803 | } | |||
| 1804 | // Negative step flag | |||
| 1805 | if (!up) { | |||
| 1806 | // If step is flagged as negative, but isn't properly sign extended | |||
| 1807 | // Then manually sign extend it. Could be a short, int, char embedded | |||
| 1808 | // in a long. So cannot assume any cast. | |||
| 1809 | if (step > 0) { | |||
| 1810 | for (int i = sizeof(T) * CHAR_BIT8 - 1; i >= 0L; --i) { | |||
| 1811 | // break at the first 1 bit | |||
| 1812 | if (step & ((T)1 << i)) | |||
| 1813 | break; | |||
| 1814 | step |= ((T)1 << i); | |||
| 1815 | } | |||
| 1816 | } | |||
| 1817 | } | |||
| 1818 | input_flags->native = 1; | |||
| 1819 | // Figure out if none/grainsize/num_tasks clause specified | |||
| 1820 | if (num_tasks > 0) { | |||
| 1821 | if (gomp_flags & (1u << 9)) | |||
| 1822 | sched = 1; // grainsize specified | |||
| 1823 | else | |||
| 1824 | sched = 2; // num_tasks specified | |||
| 1825 | // neither grainsize nor num_tasks specified | |||
| 1826 | } else { | |||
| 1827 | sched = 0; | |||
| 1828 | } | |||
| 1829 | ||||
| 1830 | // __kmp_task_alloc() sets up all other flags | |||
| 1831 | kmp_task_t *task = | |||
| 1832 | __kmp_task_alloc(&loc, gtid, input_flags, sizeof(kmp_task_t), | |||
| 1833 | arg_size + arg_align - 1, (kmp_routine_entry_t)func); | |||
| 1834 | kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task)(((kmp_taskdata_t *)task) - 1); | |||
| 1835 | taskdata->td_copy_func = copy_func; | |||
| 1836 | taskdata->td_size_loop_bounds = sizeof(T); | |||
| 1837 | ||||
| 1838 | // re-align shareds if needed and setup firstprivate copy constructors | |||
| 1839 | // through the task_dup mechanism | |||
| 1840 | task->shareds = (void *)((((size_t)task->shareds) + arg_align - 1) / | |||
| 1841 | arg_align * arg_align); | |||
| 1842 | if (copy_func) { | |||
| 1843 | task_dup = __kmp_gomp_task_dup; | |||
| 1844 | } | |||
| 1845 | KMP_MEMCPYmemcpy(task->shareds, data, arg_size); | |||
| 1846 | ||||
| 1847 | loop_bounds = (T *)task->shareds; | |||
| 1848 | loop_bounds[0] = start; | |||
| 1849 | loop_bounds[1] = end + (up ? -1 : 1); | |||
| 1850 | ||||
| 1851 | if (!nogroup) { | |||
| 1852 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 1853 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1854 | #endif | |||
| 1855 | __kmpc_taskgroup(&loc, gtid); | |||
| 1856 | if (reductions) { | |||
| 1857 | // The data pointer points to lb, ub, then reduction data | |||
| 1858 | struct data_t { | |||
| 1859 | T a, b; | |||
| 1860 | uintptr_t *d; | |||
| 1861 | }; | |||
| 1862 | uintptr_t *d = ((data_t *)data)->d; | |||
| 1863 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKGROUP_REDUCTION_REGISTER)__kmp_api_GOMP_taskgroup_reduction_register(d); | |||
| 1864 | } | |||
| 1865 | } | |||
| 1866 | __kmpc_taskloop(&loc, gtid, task, if_val, (kmp_uint64 *)&(loop_bounds[0]), | |||
| 1867 | (kmp_uint64 *)&(loop_bounds[1]), (kmp_int64)step, 1, sched, | |||
| 1868 | (kmp_uint64)num_tasks, (void *)task_dup); | |||
| 1869 | if (!nogroup) { | |||
| 1870 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 1871 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 1872 | #endif | |||
| 1873 | __kmpc_end_taskgroup(&loc, gtid); | |||
| 1874 | } | |||
| 1875 | } | |||
| 1876 | ||||
| 1877 | // 4 byte version of GOMP_doacross_post | |||
| 1878 | // This verison needs to create a temporary array which converts 4 byte | |||
| 1879 | // integers into 8 byte integers | |||
| 1880 | template <typename T, bool need_conversion = (sizeof(long) == 4)> | |||
| 1881 | void __kmp_GOMP_doacross_post(T *count); | |||
| 1882 | ||||
| 1883 | template <> void __kmp_GOMP_doacross_post<long, true>(long *count) { | |||
| 1884 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1885 | kmp_info_t *th = __kmp_threads[gtid]; | |||
| 1886 | MKLOC(loc, "GOMP_doacross_post")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1887 | kmp_int64 num_dims = th->th.th_dispatch->th_doacross_info[0]; | |||
| 1888 | kmp_int64 *vec = (kmp_int64 *)__kmp_thread_malloc(___kmp_thread_malloc((th), ((size_t)(sizeof(kmp_int64) * num_dims )), "openmp/runtime/src/kmp_gsupport.cpp", 1889) | |||
| 1889 | th, (size_t)(sizeof(kmp_int64) * num_dims))___kmp_thread_malloc((th), ((size_t)(sizeof(kmp_int64) * num_dims )), "openmp/runtime/src/kmp_gsupport.cpp", 1889); | |||
| 1890 | for (kmp_int64 i = 0; i < num_dims; ++i) { | |||
| 1891 | vec[i] = (kmp_int64)count[i]; | |||
| 1892 | } | |||
| 1893 | __kmpc_doacross_post(&loc, gtid, vec); | |||
| 1894 | __kmp_thread_free(th, vec)___kmp_thread_free((th), (vec), "openmp/runtime/src/kmp_gsupport.cpp" , 1894); | |||
| 1895 | } | |||
| 1896 | ||||
| 1897 | // 8 byte versions of GOMP_doacross_post | |||
| 1898 | // This version can just pass in the count array directly instead of creating | |||
| 1899 | // a temporary array | |||
| 1900 | template <> void __kmp_GOMP_doacross_post<long, false>(long *count) { | |||
| 1901 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1902 | MKLOC(loc, "GOMP_doacross_post")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1903 | __kmpc_doacross_post(&loc, gtid, RCAST(kmp_int64 *, count)reinterpret_cast<kmp_int64 *>(count)); | |||
| 1904 | } | |||
| 1905 | ||||
| 1906 | template <typename T> void __kmp_GOMP_doacross_wait(T first, va_list args) { | |||
| 1907 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1908 | kmp_info_t *th = __kmp_threads[gtid]; | |||
| 1909 | MKLOC(loc, "GOMP_doacross_wait")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1910 | kmp_int64 num_dims = th->th.th_dispatch->th_doacross_info[0]; | |||
| 1911 | kmp_int64 *vec = (kmp_int64 *)__kmp_thread_malloc(___kmp_thread_malloc((th), ((size_t)(sizeof(kmp_int64) * num_dims )), "openmp/runtime/src/kmp_gsupport.cpp", 1912) | |||
| 1912 | th, (size_t)(sizeof(kmp_int64) * num_dims))___kmp_thread_malloc((th), ((size_t)(sizeof(kmp_int64) * num_dims )), "openmp/runtime/src/kmp_gsupport.cpp", 1912); | |||
| 1913 | vec[0] = (kmp_int64)first; | |||
| 1914 | for (kmp_int64 i = 1; i < num_dims; ++i) { | |||
| 1915 | T item = va_arg(args, T)__builtin_va_arg(args, T); | |||
| 1916 | vec[i] = (kmp_int64)item; | |||
| 1917 | } | |||
| 1918 | __kmpc_doacross_wait(&loc, gtid, vec); | |||
| 1919 | __kmp_thread_free(th, vec)___kmp_thread_free((th), (vec), "openmp/runtime/src/kmp_gsupport.cpp" , 1919); | |||
| 1920 | return; | |||
| 1921 | } | |||
| 1922 | ||||
| 1923 | #ifdef __cplusplus201703L | |||
| 1924 | extern "C" { | |||
| 1925 | #endif // __cplusplus | |||
| 1926 | ||||
| 1927 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKLOOP)__kmp_api_GOMP_taskloop( | |||
| 1928 | void (*func)(void *), void *data, void (*copy_func)(void *, void *), | |||
| 1929 | long arg_size, long arg_align, unsigned gomp_flags, unsigned long num_tasks, | |||
| 1930 | int priority, long start, long end, long step) { | |||
| 1931 | __GOMP_taskloop<long>(func, data, copy_func, arg_size, arg_align, gomp_flags, | |||
| 1932 | num_tasks, priority, start, end, step); | |||
| 1933 | } | |||
| 1934 | ||||
| 1935 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKLOOP_ULL)__kmp_api_GOMP_taskloop_ull( | |||
| 1936 | void (*func)(void *), void *data, void (*copy_func)(void *, void *), | |||
| 1937 | long arg_size, long arg_align, unsigned gomp_flags, unsigned long num_tasks, | |||
| 1938 | int priority, unsigned long long start, unsigned long long end, | |||
| 1939 | unsigned long long step) { | |||
| 1940 | __GOMP_taskloop<unsigned long long>(func, data, copy_func, arg_size, | |||
| 1941 | arg_align, gomp_flags, num_tasks, | |||
| 1942 | priority, start, end, step); | |||
| 1943 | } | |||
| 1944 | ||||
| 1945 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_DOACROSS_POST)__kmp_api_GOMP_doacross_post(long *count) { | |||
| 1946 | __kmp_GOMP_doacross_post(count); | |||
| 1947 | } | |||
| 1948 | ||||
| 1949 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_DOACROSS_WAIT)__kmp_api_GOMP_doacross_wait(long first, ...) { | |||
| 1950 | va_list args; | |||
| 1951 | va_start(args, first)__builtin_va_start(args, first); | |||
| 1952 | __kmp_GOMP_doacross_wait<long>(first, args); | |||
| 1953 | va_end(args)__builtin_va_end(args); | |||
| 1954 | } | |||
| 1955 | ||||
| 1956 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_DOACROSS_ULL_POST)__kmp_api_GOMP_doacross_ull_post( | |||
| 1957 | unsigned long long *count) { | |||
| 1958 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1959 | MKLOC(loc, "GOMP_doacross_ull_post")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1960 | __kmpc_doacross_post(&loc, gtid, RCAST(kmp_int64 *, count)reinterpret_cast<kmp_int64 *>(count)); | |||
| 1961 | } | |||
| 1962 | ||||
| 1963 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_DOACROSS_ULL_WAIT)__kmp_api_GOMP_doacross_ull_wait( | |||
| 1964 | unsigned long long first, ...) { | |||
| 1965 | va_list args; | |||
| 1966 | va_start(args, first)__builtin_va_start(args, first); | |||
| 1967 | __kmp_GOMP_doacross_wait<unsigned long long>(first, args); | |||
| 1968 | va_end(args)__builtin_va_end(args); | |||
| 1969 | } | |||
| 1970 | ||||
| 1971 | // fn: the function each primary thread of new team will call | |||
| 1972 | // data: argument to fn | |||
| 1973 | // num_teams, thread_limit: max bounds on respective ICV | |||
| 1974 | // flags: unused | |||
| 1975 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TEAMS_REG)__kmp_api_GOMP_teams_reg(void (*fn)(void *), | |||
| 1976 | void *data, | |||
| 1977 | unsigned num_teams, | |||
| 1978 | unsigned thread_limit, | |||
| 1979 | unsigned flags) { | |||
| 1980 | MKLOC(loc, "GOMP_teams_reg")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1981 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1982 | KA_TRACE(20, ("GOMP_teams_reg: T#%d num_teams=%u thread_limit=%u flag=%u\n",if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_teams_reg: T#%d num_teams=%u thread_limit=%u flag=%u\n" , gtid, num_teams, thread_limit, flags); } | |||
| 1983 | gtid, num_teams, thread_limit, flags))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_teams_reg: T#%d num_teams=%u thread_limit=%u flag=%u\n" , gtid, num_teams, thread_limit, flags); }; | |||
| 1984 | __kmpc_push_num_teams(&loc, gtid, num_teams, thread_limit); | |||
| 1985 | __kmpc_fork_teams(&loc, 2, (microtask_t)__kmp_GOMP_microtask_wrapper, fn, | |||
| 1986 | data); | |||
| 1987 | KA_TRACE(20, ("GOMP_teams_reg exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_teams_reg exit: T#%d\n" , gtid); }; | |||
| 1988 | } | |||
| 1989 | ||||
| 1990 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKWAIT_DEPEND)__kmp_api_GOMP_taskwait_depend(void **depend) { | |||
| 1991 | MKLOC(loc, "GOMP_taskwait_depend")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 1992 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 1993 | KA_TRACE(20, ("GOMP_taskwait_depend: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskwait_depend: T#%d\n" , gtid); }; | |||
| 1994 | kmp_gomp_depends_info_t gomp_depends(depend); | |||
| 1995 | kmp_int32 ndeps = gomp_depends.get_num_deps(); | |||
| 1996 | kmp_depend_info_t dep_list[ndeps]; | |||
| 1997 | for (kmp_int32 i = 0; i < ndeps; i++) | |||
| 1998 | dep_list[i] = gomp_depends.get_kmp_depend(i); | |||
| 1999 | #if OMPT_SUPPORT1 | |||
| 2000 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 2001 | #endif | |||
| 2002 | __kmpc_omp_wait_deps(&loc, gtid, ndeps, dep_list, 0, NULL__null); | |||
| 2003 | KA_TRACE(20, ("GOMP_taskwait_depend exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskwait_depend exit: T#%d\n" , gtid); }; | |||
| 2004 | } | |||
| 2005 | ||||
| 2006 | static inline void | |||
| 2007 | __kmp_GOMP_taskgroup_reduction_register(uintptr_t *data, kmp_taskgroup_t *tg, | |||
| 2008 | int nthreads, | |||
| 2009 | uintptr_t *allocated = nullptr) { | |||
| 2010 | KMP_ASSERT(data)if (!(data)) { __kmp_debug_assert("data", "openmp/runtime/src/kmp_gsupport.cpp" , 2010); }; | |||
| 2011 | KMP_ASSERT(nthreads > 0)if (!(nthreads > 0)) { __kmp_debug_assert("nthreads > 0" , "openmp/runtime/src/kmp_gsupport.cpp", 2011); }; | |||
| 2012 | // Have private copy pointers point to previously allocated | |||
| 2013 | // reduction data or allocate new data here | |||
| 2014 | if (allocated) { | |||
| 2015 | data[2] = allocated[2]; | |||
| 2016 | data[6] = allocated[6]; | |||
| 2017 | } else { | |||
| 2018 | data[2] = (uintptr_t)__kmp_allocate(nthreads * data[1])___kmp_allocate((nthreads * data[1]), "openmp/runtime/src/kmp_gsupport.cpp" , 2018); | |||
| 2019 | data[6] = data[2] + (nthreads * data[1]); | |||
| 2020 | } | |||
| 2021 | if (tg) | |||
| 2022 | tg->gomp_data = data; | |||
| 2023 | } | |||
| 2024 | ||||
| 2025 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKGROUP_REDUCTION_REGISTER)__kmp_api_GOMP_taskgroup_reduction_register( | |||
| 2026 | uintptr_t *data) { | |||
| 2027 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2028 | KA_TRACE(20, ("GOMP_taskgroup_reduction_register: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskgroup_reduction_register: T#%d\n" , gtid); }; | |||
| 2029 | kmp_info_t *thread = __kmp_threads[gtid]; | |||
| 2030 | kmp_taskgroup_t *tg = thread->th.th_current_task->td_taskgroup; | |||
| 2031 | int nthreads = thread->th.th_team_nproc; | |||
| 2032 | __kmp_GOMP_taskgroup_reduction_register(data, tg, nthreads); | |||
| 2033 | } | |||
| 2034 | ||||
| 2035 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKGROUP_REDUCTION_UNREGISTER)__kmp_api_GOMP_taskgroup_reduction_unregister( | |||
| 2036 | uintptr_t *data) { | |||
| 2037 | KA_TRACE(20,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskgroup_reduction_unregister: T#%d\n" , __kmp_get_global_thread_id()); } | |||
| 2038 | ("GOMP_taskgroup_reduction_unregister: T#%d\n", __kmp_get_gtid()))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_taskgroup_reduction_unregister: T#%d\n" , __kmp_get_global_thread_id()); }; | |||
| 2039 | KMP_ASSERT(data && data[2])if (!(data && data[2])) { __kmp_debug_assert("data && data[2]" , "openmp/runtime/src/kmp_gsupport.cpp", 2039); }; | |||
| 2040 | __kmp_free((void *)data[2])___kmp_free(((void *)data[2]), "openmp/runtime/src/kmp_gsupport.cpp" , 2040); | |||
| 2041 | } | |||
| 2042 | ||||
| 2043 | // Search through reduction data and set ptrs[] elements | |||
| 2044 | // to proper privatized copy address | |||
| 2045 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASK_REDUCTION_REMAP)__kmp_api_GOMP_task_reduction_remap(size_t cnt, | |||
| 2046 | size_t cntorig, | |||
| 2047 | void **ptrs) { | |||
| 2048 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2049 | KA_TRACE(20, ("GOMP_task_reduction_remap: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_task_reduction_remap: T#%d\n" , gtid); }; | |||
| 2050 | kmp_info_t *thread = __kmp_threads[gtid]; | |||
| 2051 | kmp_int32 tid = __kmp_get_tid()(__kmp_tid_from_gtid(__kmp_get_global_thread_id())); | |||
| 2052 | for (size_t i = 0; i < cnt; ++i) { | |||
| 2053 | uintptr_t address = (uintptr_t)ptrs[i]; | |||
| 2054 | void *propagated_address = NULL__null; | |||
| 2055 | void *mapped_address = NULL__null; | |||
| 2056 | // Check taskgroups reduce data | |||
| 2057 | kmp_taskgroup_t *tg = thread->th.th_current_task->td_taskgroup; | |||
| 2058 | while (tg) { | |||
| 2059 | uintptr_t *gomp_data = tg->gomp_data; | |||
| 2060 | if (!gomp_data) { | |||
| 2061 | tg = tg->parent; | |||
| 2062 | continue; | |||
| 2063 | } | |||
| 2064 | // Check the shared addresses list | |||
| 2065 | size_t num_vars = (size_t)gomp_data[0]; | |||
| 2066 | uintptr_t per_thread_size = gomp_data[1]; | |||
| 2067 | uintptr_t reduce_data = gomp_data[2]; | |||
| 2068 | uintptr_t end_reduce_data = gomp_data[6]; | |||
| 2069 | for (size_t j = 0; j < num_vars; ++j) { | |||
| 2070 | uintptr_t *entry = gomp_data + 7 + 3 * j; | |||
| 2071 | if (entry[0] == address) { | |||
| 2072 | uintptr_t offset = entry[1]; | |||
| 2073 | mapped_address = | |||
| 2074 | (void *)(reduce_data + tid * per_thread_size + offset); | |||
| 2075 | if (i < cntorig) | |||
| 2076 | propagated_address = (void *)entry[0]; | |||
| 2077 | break; | |||
| 2078 | } | |||
| 2079 | } | |||
| 2080 | if (mapped_address) | |||
| 2081 | break; | |||
| 2082 | // Check if address is within privatized copies range | |||
| 2083 | if (!mapped_address && address >= reduce_data && | |||
| 2084 | address < end_reduce_data) { | |||
| 2085 | uintptr_t offset = (address - reduce_data) % per_thread_size; | |||
| 2086 | mapped_address = (void *)(reduce_data + tid * per_thread_size + offset); | |||
| 2087 | if (i < cntorig) { | |||
| 2088 | for (size_t j = 0; j < num_vars; ++j) { | |||
| 2089 | uintptr_t *entry = gomp_data + 7 + 3 * j; | |||
| 2090 | if (entry[1] == offset) { | |||
| 2091 | propagated_address = (void *)entry[0]; | |||
| 2092 | break; | |||
| 2093 | } | |||
| 2094 | } | |||
| 2095 | } | |||
| 2096 | } | |||
| 2097 | if (mapped_address) | |||
| 2098 | break; | |||
| 2099 | tg = tg->parent; | |||
| 2100 | } | |||
| 2101 | KMP_ASSERT(mapped_address)if (!(mapped_address)) { __kmp_debug_assert("mapped_address", "openmp/runtime/src/kmp_gsupport.cpp", 2101); }; | |||
| 2102 | ptrs[i] = mapped_address; | |||
| 2103 | if (i < cntorig) { | |||
| 2104 | KMP_ASSERT(propagated_address)if (!(propagated_address)) { __kmp_debug_assert("propagated_address" , "openmp/runtime/src/kmp_gsupport.cpp", 2104); }; | |||
| 2105 | ptrs[cnt + i] = propagated_address; | |||
| 2106 | } | |||
| 2107 | } | |||
| 2108 | } | |||
| 2109 | ||||
| 2110 | static void __kmp_GOMP_init_reductions(int gtid, uintptr_t *data, int is_ws) { | |||
| 2111 | kmp_info_t *thr = __kmp_threads[gtid]; | |||
| 2112 | kmp_team_t *team = thr->th.th_team; | |||
| 2113 | // First start a taskgroup | |||
| 2114 | __kmpc_taskgroup(NULL__null, gtid); | |||
| 2115 | // Then setup reduction data | |||
| 2116 | void *reduce_data = KMP_ATOMIC_LD_RLX(&team->t.t_tg_reduce_data[is_ws])(&team->t.t_tg_reduce_data[is_ws])->load(std::memory_order_relaxed ); | |||
| 2117 | if (reduce_data == NULL__null && | |||
| 2118 | __kmp_atomic_compare_store(&team->t.t_tg_reduce_data[is_ws], reduce_data, | |||
| 2119 | (void *)1)) { | |||
| 2120 | // Single thread enters this block to initialize common reduction data | |||
| 2121 | KMP_DEBUG_ASSERT(reduce_data == NULL)if (!(reduce_data == __null)) { __kmp_debug_assert("reduce_data == __null" , "openmp/runtime/src/kmp_gsupport.cpp", 2121); }; | |||
| 2122 | __kmp_GOMP_taskgroup_reduction_register(data, NULL__null, thr->th.th_team_nproc); | |||
| 2123 | KMP_ATOMIC_ST_REL(&team->t.t_tg_fini_counter[is_ws], 0)(&team->t.t_tg_fini_counter[is_ws])->store(0, std:: memory_order_release); | |||
| 2124 | KMP_ATOMIC_ST_REL(&team->t.t_tg_reduce_data[is_ws], (void *)data)(&team->t.t_tg_reduce_data[is_ws])->store((void *)data , std::memory_order_release); | |||
| 2125 | } else { | |||
| 2126 | // Wait for task reduction initialization | |||
| 2127 | while ((reduce_data = KMP_ATOMIC_LD_ACQ((&team->t.t_tg_reduce_data[is_ws])->load(std::memory_order_acquire ) | |||
| 2128 | &team->t.t_tg_reduce_data[is_ws])(&team->t.t_tg_reduce_data[is_ws])->load(std::memory_order_acquire )) == (void *)1) { | |||
| 2129 | KMP_CPU_PAUSE()__kmp_x86_pause(); | |||
| 2130 | } | |||
| 2131 | KMP_DEBUG_ASSERT(reduce_data > (void *)1)if (!(reduce_data > (void *)1)) { __kmp_debug_assert("reduce_data > (void *)1" , "openmp/runtime/src/kmp_gsupport.cpp", 2131); }; // should be valid pointer here | |||
| 2132 | } | |||
| 2133 | // For worksharing constructs, each thread has its own reduction structure. | |||
| 2134 | // Have each reduction structure point to same privatized copies of vars. | |||
| 2135 | // For parallel, each thread points to same reduction structure and privatized | |||
| 2136 | // copies of vars | |||
| 2137 | if (is_ws) { | |||
| 2138 | __kmp_GOMP_taskgroup_reduction_register( | |||
| 2139 | data, NULL__null, thr->th.th_team_nproc, | |||
| 2140 | (uintptr_t *)KMP_ATOMIC_LD_ACQ(&team->t.t_tg_reduce_data[is_ws])(&team->t.t_tg_reduce_data[is_ws])->load(std::memory_order_acquire )); | |||
| 2141 | } | |||
| 2142 | kmp_taskgroup_t *tg = thr->th.th_current_task->td_taskgroup; | |||
| 2143 | tg->gomp_data = data; | |||
| 2144 | } | |||
| 2145 | ||||
| 2146 | static unsigned | |||
| 2147 | __kmp_GOMP_par_reductions_microtask_wrapper(int *gtid, int *npr, | |||
| 2148 | void (*task)(void *), void *data) { | |||
| 2149 | kmp_info_t *thr = __kmp_threads[*gtid]; | |||
| 2150 | kmp_team_t *team = thr->th.th_team; | |||
| 2151 | uintptr_t *reduce_data = *(uintptr_t **)data; | |||
| 2152 | __kmp_GOMP_init_reductions(*gtid, reduce_data, 0); | |||
| 2153 | ||||
| 2154 | #if OMPT_SUPPORT1 | |||
| 2155 | ompt_frame_t *ompt_frame; | |||
| 2156 | ompt_state_t enclosing_state; | |||
| 2157 | ||||
| 2158 | if (ompt_enabled.enabled) { | |||
| 2159 | // save enclosing task state; set current state for task | |||
| 2160 | enclosing_state = thr->th.ompt_thread_info.state; | |||
| 2161 | thr->th.ompt_thread_info.state = ompt_state_work_parallel; | |||
| 2162 | ||||
| 2163 | // set task frame | |||
| 2164 | __ompt_get_task_info_internal(0, NULL__null, NULL__null, &ompt_frame, NULL__null, NULL__null); | |||
| 2165 | ompt_frame->exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0)__builtin_frame_address(0); | |||
| 2166 | } | |||
| 2167 | #endif | |||
| 2168 | ||||
| 2169 | task(data); | |||
| 2170 | ||||
| 2171 | #if OMPT_SUPPORT1 | |||
| 2172 | if (ompt_enabled.enabled) { | |||
| 2173 | // clear task frame | |||
| 2174 | ompt_frame->exit_frame = ompt_data_none{0}; | |||
| 2175 | ||||
| 2176 | // restore enclosing state | |||
| 2177 | thr->th.ompt_thread_info.state = enclosing_state; | |||
| 2178 | } | |||
| 2179 | #endif | |||
| 2180 | __kmpc_end_taskgroup(NULL__null, *gtid); | |||
| 2181 | // if last thread out, then reset the team's reduce data | |||
| 2182 | // the GOMP_taskgroup_reduction_unregister() function will deallocate | |||
| 2183 | // private copies after reduction calculations take place. | |||
| 2184 | int count = KMP_ATOMIC_INC(&team->t.t_tg_fini_counter[0])(&team->t.t_tg_fini_counter[0])->fetch_add(1, std:: memory_order_acq_rel); | |||
| 2185 | if (count == thr->th.th_team_nproc - 1) { | |||
| 2186 | KMP_ATOMIC_ST_REL(&team->t.t_tg_reduce_data[0], NULL)(&team->t.t_tg_reduce_data[0])->store(__null, std:: memory_order_release); | |||
| 2187 | KMP_ATOMIC_ST_REL(&team->t.t_tg_fini_counter[0], 0)(&team->t.t_tg_fini_counter[0])->store(0, std::memory_order_release ); | |||
| 2188 | } | |||
| 2189 | return (unsigned)thr->th.th_team_nproc; | |||
| 2190 | } | |||
| 2191 | ||||
| 2192 | unsigned KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_REDUCTIONS)__kmp_api_GOMP_parallel_reductions( | |||
| 2193 | void (*task)(void *), void *data, unsigned num_threads, | |||
| 2194 | unsigned int flags) { | |||
| 2195 | MKLOC(loc, "GOMP_parallel_reductions")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 2196 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2197 | KA_TRACE(20, ("GOMP_parallel_reductions: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_reductions: T#%d\n" , gtid); }; | |||
| 2198 | __kmp_GOMP_fork_call(&loc, gtid, num_threads, flags, task, | |||
| 2199 | (microtask_t)__kmp_GOMP_par_reductions_microtask_wrapper, | |||
| 2200 | 2, task, data); | |||
| 2201 | unsigned retval = | |||
| 2202 | __kmp_GOMP_par_reductions_microtask_wrapper(>id, NULL__null, task, data); | |||
| 2203 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_END)__kmp_api_GOMP_parallel_end(); | |||
| 2204 | KA_TRACE(20, ("GOMP_parallel_reductions exit: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_parallel_reductions exit: T#%d\n" , gtid); }; | |||
| 2205 | return retval; | |||
| 2206 | } | |||
| 2207 | ||||
| 2208 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_START)__kmp_api_GOMP_loop_start( | |||
| 2209 | long start, long end, long incr, long sched, long chunk_size, long *istart, | |||
| 2210 | long *iend, uintptr_t *reductions, void **mem) { | |||
| 2211 | int status = 0; | |||
| 2212 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2213 | KA_TRACE(20, ("GOMP_loop_start: T#%d, reductions: %p\n", gtid, reductions))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_start: T#%d, reductions: %p\n" , gtid, reductions); }; | |||
| 2214 | if (reductions) | |||
| 2215 | __kmp_GOMP_init_reductions(gtid, reductions, 1); | |||
| 2216 | if (mem) | |||
| 2217 | KMP_FATAL(GompFeatureNotSupported, "scan")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "scan"), __kmp_msg_null); | |||
| 2218 | if (istart == NULL__null) | |||
| 2219 | return true; | |||
| 2220 | const long MONOTONIC_FLAG = (long)(kmp_sched_monotonic); | |||
| 2221 | long monotonic = sched & MONOTONIC_FLAG; | |||
| 2222 | sched &= ~MONOTONIC_FLAG; | |||
| 2223 | if (sched == 0) { | |||
| 2224 | if (monotonic) | |||
| 2225 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_RUNTIME_START)__kmp_api_GOMP_loop_runtime_start( | |||
| 2226 | start, end, incr, istart, iend); | |||
| 2227 | else | |||
| 2228 | status = KMP_EXPAND_NAME(__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start | |||
| 2229 | KMP_API_NAME_GOMP_LOOP_MAYBE_NONMONOTONIC_RUNTIME_START)__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start( | |||
| 2230 | start, end, incr, istart, iend); | |||
| 2231 | } else if (sched == 1) { | |||
| 2232 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_STATIC_START)__kmp_api_GOMP_loop_static_start( | |||
| 2233 | start, end, incr, chunk_size, istart, iend); | |||
| 2234 | } else if (sched == 2) { | |||
| 2235 | if (monotonic) | |||
| 2236 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DYNAMIC_START)__kmp_api_GOMP_loop_dynamic_start( | |||
| 2237 | start, end, incr, chunk_size, istart, iend); | |||
| 2238 | else | |||
| 2239 | status = | |||
| 2240 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_DYNAMIC_START)__kmp_api_GOMP_loop_nonmonotonic_dynamic_start( | |||
| 2241 | start, end, incr, chunk_size, istart, iend); | |||
| 2242 | } else if (sched == 3) { | |||
| 2243 | if (monotonic) | |||
| 2244 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_GUIDED_START)__kmp_api_GOMP_loop_guided_start( | |||
| 2245 | start, end, incr, chunk_size, istart, iend); | |||
| 2246 | else | |||
| 2247 | status = | |||
| 2248 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_GUIDED_START)__kmp_api_GOMP_loop_nonmonotonic_guided_start( | |||
| 2249 | start, end, incr, chunk_size, istart, iend); | |||
| 2250 | } else if (sched == 4) { | |||
| 2251 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_RUNTIME_START)__kmp_api_GOMP_loop_nonmonotonic_runtime_start( | |||
| 2252 | start, end, incr, istart, iend); | |||
| 2253 | } else { | |||
| 2254 | KMP_ASSERT(0)if (!(0)) { __kmp_debug_assert("0", "openmp/runtime/src/kmp_gsupport.cpp" , 2254); }; | |||
| 2255 | } | |||
| 2256 | return status; | |||
| 2257 | } | |||
| 2258 | ||||
| 2259 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_START)__kmp_api_GOMP_loop_ull_start( | |||
| 2260 | bool up, unsigned long long start, unsigned long long end, | |||
| 2261 | unsigned long long incr, long sched, unsigned long long chunk_size, | |||
| 2262 | unsigned long long *istart, unsigned long long *iend, uintptr_t *reductions, | |||
| 2263 | void **mem) { | |||
| 2264 | int status = 0; | |||
| 2265 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2266 | KA_TRACE(20,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ull_start: T#%d, reductions: %p\n" , gtid, reductions); } | |||
| 2267 | ("GOMP_loop_ull_start: T#%d, reductions: %p\n", gtid, reductions))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ull_start: T#%d, reductions: %p\n" , gtid, reductions); }; | |||
| 2268 | if (reductions) | |||
| 2269 | __kmp_GOMP_init_reductions(gtid, reductions, 1); | |||
| 2270 | if (mem) | |||
| 2271 | KMP_FATAL(GompFeatureNotSupported, "scan")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "scan"), __kmp_msg_null); | |||
| 2272 | if (istart == NULL__null) | |||
| 2273 | return true; | |||
| 2274 | const long MONOTONIC_FLAG = (long)(kmp_sched_monotonic); | |||
| 2275 | long monotonic = sched & MONOTONIC_FLAG; | |||
| 2276 | sched &= ~MONOTONIC_FLAG; | |||
| 2277 | if (sched == 0) { | |||
| 2278 | if (monotonic) | |||
| 2279 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_RUNTIME_START)__kmp_api_GOMP_loop_ull_runtime_start( | |||
| 2280 | up, start, end, incr, istart, iend); | |||
| 2281 | else | |||
| 2282 | status = KMP_EXPAND_NAME(__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start | |||
| 2283 | KMP_API_NAME_GOMP_LOOP_ULL_MAYBE_NONMONOTONIC_RUNTIME_START)__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start( | |||
| 2284 | up, start, end, incr, istart, iend); | |||
| 2285 | } else if (sched == 1) { | |||
| 2286 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_START)__kmp_api_GOMP_loop_ull_static_start( | |||
| 2287 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2288 | } else if (sched == 2) { | |||
| 2289 | if (monotonic) | |||
| 2290 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DYNAMIC_START)__kmp_api_GOMP_loop_ull_dynamic_start( | |||
| 2291 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2292 | else | |||
| 2293 | status = KMP_EXPAND_NAME(__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start | |||
| 2294 | KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_DYNAMIC_START)__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start( | |||
| 2295 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2296 | } else if (sched == 3) { | |||
| 2297 | if (monotonic) | |||
| 2298 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_GUIDED_START)__kmp_api_GOMP_loop_ull_guided_start( | |||
| 2299 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2300 | else | |||
| 2301 | status = | |||
| 2302 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_GUIDED_START)__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start( | |||
| 2303 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2304 | } else if (sched == 4) { | |||
| 2305 | status = | |||
| 2306 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_RUNTIME_START)__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start( | |||
| 2307 | up, start, end, incr, istart, iend); | |||
| 2308 | } else { | |||
| 2309 | KMP_ASSERT(0)if (!(0)) { __kmp_debug_assert("0", "openmp/runtime/src/kmp_gsupport.cpp" , 2309); }; | |||
| 2310 | } | |||
| 2311 | return status; | |||
| 2312 | } | |||
| 2313 | ||||
| 2314 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_START)__kmp_api_GOMP_loop_doacross_start( | |||
| 2315 | unsigned ncounts, long *counts, long sched, long chunk_size, long *istart, | |||
| 2316 | long *iend, uintptr_t *reductions, void **mem) { | |||
| 2317 | int status = 0; | |||
| 2318 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2319 | KA_TRACE(20, ("GOMP_loop_doacross_start: T#%d, reductions: %p\n", gtid,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_doacross_start: T#%d, reductions: %p\n" , gtid, reductions); } | |||
| 2320 | reductions))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_doacross_start: T#%d, reductions: %p\n" , gtid, reductions); }; | |||
| 2321 | if (reductions) | |||
| 2322 | __kmp_GOMP_init_reductions(gtid, reductions, 1); | |||
| 2323 | if (mem) | |||
| 2324 | KMP_FATAL(GompFeatureNotSupported, "scan")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "scan"), __kmp_msg_null); | |||
| 2325 | if (istart == NULL__null) | |||
| 2326 | return true; | |||
| 2327 | // Ignore any monotonic flag | |||
| 2328 | const long MONOTONIC_FLAG = (long)(kmp_sched_monotonic); | |||
| 2329 | sched &= ~MONOTONIC_FLAG; | |||
| 2330 | if (sched == 0) { | |||
| 2331 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_RUNTIME_START)__kmp_api_GOMP_loop_doacross_runtime_start( | |||
| 2332 | ncounts, counts, istart, iend); | |||
| 2333 | } else if (sched == 1) { | |||
| 2334 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_STATIC_START)__kmp_api_GOMP_loop_doacross_static_start( | |||
| 2335 | ncounts, counts, chunk_size, istart, iend); | |||
| 2336 | } else if (sched == 2) { | |||
| 2337 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_DYNAMIC_START)__kmp_api_GOMP_loop_doacross_dynamic_start( | |||
| 2338 | ncounts, counts, chunk_size, istart, iend); | |||
| 2339 | } else if (sched == 3) { | |||
| 2340 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_GUIDED_START)__kmp_api_GOMP_loop_doacross_guided_start( | |||
| 2341 | ncounts, counts, chunk_size, istart, iend); | |||
| 2342 | } else { | |||
| 2343 | KMP_ASSERT(0)if (!(0)) { __kmp_debug_assert("0", "openmp/runtime/src/kmp_gsupport.cpp" , 2343); }; | |||
| 2344 | } | |||
| 2345 | return status; | |||
| 2346 | } | |||
| 2347 | ||||
| 2348 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_START)__kmp_api_GOMP_loop_ull_doacross_start( | |||
| 2349 | unsigned ncounts, unsigned long long *counts, long sched, | |||
| 2350 | unsigned long long chunk_size, unsigned long long *istart, | |||
| 2351 | unsigned long long *iend, uintptr_t *reductions, void **mem) { | |||
| 2352 | int status = 0; | |||
| 2353 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2354 | KA_TRACE(20, ("GOMP_loop_ull_doacross_start: T#%d, reductions: %p\n", gtid,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ull_doacross_start: T#%d, reductions: %p\n" , gtid, reductions); } | |||
| 2355 | reductions))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ull_doacross_start: T#%d, reductions: %p\n" , gtid, reductions); }; | |||
| 2356 | if (reductions) | |||
| 2357 | __kmp_GOMP_init_reductions(gtid, reductions, 1); | |||
| 2358 | if (mem) | |||
| 2359 | KMP_FATAL(GompFeatureNotSupported, "scan")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "scan"), __kmp_msg_null); | |||
| 2360 | if (istart == NULL__null) | |||
| 2361 | return true; | |||
| 2362 | // Ignore any monotonic flag | |||
| 2363 | const long MONOTONIC_FLAG = (long)(kmp_sched_monotonic); | |||
| 2364 | sched &= ~MONOTONIC_FLAG; | |||
| 2365 | if (sched == 0) { | |||
| 2366 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_RUNTIME_START)__kmp_api_GOMP_loop_ull_doacross_runtime_start( | |||
| 2367 | ncounts, counts, istart, iend); | |||
| 2368 | } else if (sched == 1) { | |||
| 2369 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_STATIC_START)__kmp_api_GOMP_loop_ull_doacross_static_start( | |||
| 2370 | ncounts, counts, chunk_size, istart, iend); | |||
| 2371 | } else if (sched == 2) { | |||
| 2372 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_DYNAMIC_START)__kmp_api_GOMP_loop_ull_doacross_dynamic_start( | |||
| 2373 | ncounts, counts, chunk_size, istart, iend); | |||
| 2374 | } else if (sched == 3) { | |||
| 2375 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_GUIDED_START)__kmp_api_GOMP_loop_ull_doacross_guided_start( | |||
| 2376 | ncounts, counts, chunk_size, istart, iend); | |||
| 2377 | } else { | |||
| 2378 | KMP_ASSERT(0)if (!(0)) { __kmp_debug_assert("0", "openmp/runtime/src/kmp_gsupport.cpp" , 2378); }; | |||
| 2379 | } | |||
| 2380 | return status; | |||
| 2381 | } | |||
| 2382 | ||||
| 2383 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_START)__kmp_api_GOMP_loop_ordered_start( | |||
| 2384 | long start, long end, long incr, long sched, long chunk_size, long *istart, | |||
| 2385 | long *iend, uintptr_t *reductions, void **mem) { | |||
| 2386 | int status = 0; | |||
| 2387 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2388 | KA_TRACE(20, ("GOMP_loop_ordered_start: T#%d, reductions: %p\n", gtid,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ordered_start: T#%d, reductions: %p\n" , gtid, reductions); } | |||
| 2389 | reductions))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ordered_start: T#%d, reductions: %p\n" , gtid, reductions); }; | |||
| 2390 | if (reductions) | |||
| 2391 | __kmp_GOMP_init_reductions(gtid, reductions, 1); | |||
| 2392 | if (mem) | |||
| 2393 | KMP_FATAL(GompFeatureNotSupported, "scan")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "scan"), __kmp_msg_null); | |||
| 2394 | if (istart == NULL__null) | |||
| 2395 | return true; | |||
| 2396 | // Ignore any monotonic flag | |||
| 2397 | const long MONOTONIC_FLAG = (long)(kmp_sched_monotonic); | |||
| 2398 | sched &= ~MONOTONIC_FLAG; | |||
| 2399 | if (sched == 0) { | |||
| 2400 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_START)__kmp_api_GOMP_loop_ordered_runtime_start( | |||
| 2401 | start, end, incr, istart, iend); | |||
| 2402 | } else if (sched == 1) { | |||
| 2403 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_STATIC_START)__kmp_api_GOMP_loop_ordered_static_start( | |||
| 2404 | start, end, incr, chunk_size, istart, iend); | |||
| 2405 | } else if (sched == 2) { | |||
| 2406 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_DYNAMIC_START)__kmp_api_GOMP_loop_ordered_dynamic_start( | |||
| 2407 | start, end, incr, chunk_size, istart, iend); | |||
| 2408 | } else if (sched == 3) { | |||
| 2409 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_GUIDED_START)__kmp_api_GOMP_loop_ordered_guided_start( | |||
| 2410 | start, end, incr, chunk_size, istart, iend); | |||
| 2411 | } else { | |||
| 2412 | KMP_ASSERT(0)if (!(0)) { __kmp_debug_assert("0", "openmp/runtime/src/kmp_gsupport.cpp" , 2412); }; | |||
| 2413 | } | |||
| 2414 | return status; | |||
| 2415 | } | |||
| 2416 | ||||
| 2417 | bool KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_START)__kmp_api_GOMP_loop_ull_ordered_start( | |||
| 2418 | bool up, unsigned long long start, unsigned long long end, | |||
| 2419 | unsigned long long incr, long sched, unsigned long long chunk_size, | |||
| 2420 | unsigned long long *istart, unsigned long long *iend, uintptr_t *reductions, | |||
| 2421 | void **mem) { | |||
| 2422 | int status = 0; | |||
| 2423 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2424 | KA_TRACE(20, ("GOMP_loop_ull_ordered_start: T#%d, reductions: %p\n", gtid,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ull_ordered_start: T#%d, reductions: %p\n" , gtid, reductions); } | |||
| 2425 | reductions))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_loop_ull_ordered_start: T#%d, reductions: %p\n" , gtid, reductions); }; | |||
| 2426 | if (reductions) | |||
| 2427 | __kmp_GOMP_init_reductions(gtid, reductions, 1); | |||
| 2428 | if (mem) | |||
| 2429 | KMP_FATAL(GompFeatureNotSupported, "scan")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "scan"), __kmp_msg_null); | |||
| 2430 | if (istart == NULL__null) | |||
| 2431 | return true; | |||
| 2432 | // Ignore any monotonic flag | |||
| 2433 | const long MONOTONIC_FLAG = (long)(kmp_sched_monotonic); | |||
| 2434 | sched &= ~MONOTONIC_FLAG; | |||
| 2435 | if (sched == 0) { | |||
| 2436 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_START)__kmp_api_GOMP_loop_ull_ordered_runtime_start( | |||
| 2437 | up, start, end, incr, istart, iend); | |||
| 2438 | } else if (sched == 1) { | |||
| 2439 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_STATIC_START)__kmp_api_GOMP_loop_ull_ordered_static_start( | |||
| 2440 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2441 | } else if (sched == 2) { | |||
| 2442 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_DYNAMIC_START)__kmp_api_GOMP_loop_ull_ordered_dynamic_start( | |||
| 2443 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2444 | } else if (sched == 3) { | |||
| 2445 | status = KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_GUIDED_START)__kmp_api_GOMP_loop_ull_ordered_guided_start( | |||
| 2446 | up, start, end, incr, chunk_size, istart, iend); | |||
| 2447 | } else { | |||
| 2448 | KMP_ASSERT(0)if (!(0)) { __kmp_debug_assert("0", "openmp/runtime/src/kmp_gsupport.cpp" , 2448); }; | |||
| 2449 | } | |||
| 2450 | return status; | |||
| 2451 | } | |||
| 2452 | ||||
| 2453 | unsigned KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SECTIONS2_START)__kmp_api_GOMP_sections2_start( | |||
| 2454 | unsigned count, uintptr_t *reductions, void **mem) { | |||
| 2455 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2456 | KA_TRACE(20,if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections2_start: T#%d, reductions: %p\n" , gtid, reductions); } | |||
| 2457 | ("GOMP_sections2_start: T#%d, reductions: %p\n", gtid, reductions))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_sections2_start: T#%d, reductions: %p\n" , gtid, reductions); }; | |||
| 2458 | if (reductions) | |||
| 2459 | __kmp_GOMP_init_reductions(gtid, reductions, 1); | |||
| 2460 | if (mem) | |||
| 2461 | KMP_FATAL(GompFeatureNotSupported, "scan")__kmp_fatal(__kmp_msg_format(kmp_i18n_msg_GompFeatureNotSupported , "scan"), __kmp_msg_null); | |||
| 2462 | return KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SECTIONS_START)__kmp_api_GOMP_sections_start(count); | |||
| 2463 | } | |||
| 2464 | ||||
| 2465 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_WORKSHARE_TASK_REDUCTION_UNREGISTER)__kmp_api_GOMP_workshare_task_reduction_unregister( | |||
| 2466 | bool cancelled) { | |||
| 2467 | int gtid = __kmp_get_gtid()__kmp_get_global_thread_id(); | |||
| 2468 | MKLOC(loc, "GOMP_workshare_task_reduction_unregister")static ident_t loc = {0, KMP_IDENT_KMPC, 0, 0, ";unknown;unknown;0;0;;" };; | |||
| 2469 | KA_TRACE(20, ("GOMP_workshare_task_reduction_unregister: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_workshare_task_reduction_unregister: T#%d\n" , gtid); }; | |||
| 2470 | kmp_info_t *thr = __kmp_threads[gtid]; | |||
| 2471 | kmp_team_t *team = thr->th.th_team; | |||
| 2472 | __kmpc_end_taskgroup(NULL__null, gtid); | |||
| 2473 | // If last thread out of workshare, then reset the team's reduce data | |||
| 2474 | // the GOMP_taskgroup_reduction_unregister() function will deallocate | |||
| 2475 | // private copies after reduction calculations take place. | |||
| 2476 | int count = KMP_ATOMIC_INC(&team->t.t_tg_fini_counter[1])(&team->t.t_tg_fini_counter[1])->fetch_add(1, std:: memory_order_acq_rel); | |||
| 2477 | if (count == thr->th.th_team_nproc - 1) { | |||
| 2478 | KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKGROUP_REDUCTION_UNREGISTER)__kmp_api_GOMP_taskgroup_reduction_unregister | |||
| 2479 | ((uintptr_t *)KMP_ATOMIC_LD_RLX(&team->t.t_tg_reduce_data[1])(&team->t.t_tg_reduce_data[1])->load(std::memory_order_relaxed )); | |||
| 2480 | KMP_ATOMIC_ST_REL(&team->t.t_tg_reduce_data[1], NULL)(&team->t.t_tg_reduce_data[1])->store(__null, std:: memory_order_release); | |||
| 2481 | KMP_ATOMIC_ST_REL(&team->t.t_tg_fini_counter[1], 0)(&team->t.t_tg_fini_counter[1])->store(0, std::memory_order_release ); | |||
| 2482 | } | |||
| 2483 | if (!cancelled) { | |||
| 2484 | __kmpc_barrier(&loc, gtid); | |||
| 2485 | } | |||
| 2486 | } | |||
| 2487 | ||||
| 2488 | // allocator construct | |||
| 2489 | void *KMP_EXPAND_NAME(KMP_API_NAME_GOMP_ALLOC)__kmp_api_GOMP_alloc(size_t alignment, size_t size, | |||
| 2490 | uintptr_t allocator) { | |||
| 2491 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2492 | KA_TRACE(20, ("GOMP_alloc: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_alloc: T#%d\n" , gtid); }; | |||
| 2493 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 2494 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 2495 | #endif | |||
| 2496 | return __kmp_alloc(gtid, alignment, size, (omp_allocator_handle_t)allocator); | |||
| 2497 | } | |||
| 2498 | ||||
| 2499 | void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_FREE)__kmp_api_GOMP_free(void *ptr, uintptr_t allocator) { | |||
| 2500 | int gtid = __kmp_entry_gtid()__kmp_get_global_thread_id_reg(); | |||
| 2501 | KA_TRACE(20, ("GOMP_free: T#%d\n", gtid))if (kmp_a_debug >= 20) { __kmp_debug_printf ("GOMP_free: T#%d\n" , gtid); }; | |||
| 2502 | #if OMPT_SUPPORT1 && OMPT_OPTIONAL1 | |||
| 2503 | OMPT_STORE_RETURN_ADDRESS(gtid)OmptReturnAddressGuard ReturnAddressGuard{gtid, __builtin_return_address (0)};; | |||
| 2504 | #endif | |||
| 2505 | return ___kmpc_free(gtid, ptr, (omp_allocator_handle_t)allocator); | |||
| 2506 | } | |||
| 2507 | ||||
| 2508 | /* The following sections of code create aliases for the GOMP_* functions, then | |||
| 2509 | create versioned symbols using the assembler directive .symver. This is only | |||
| 2510 | pertinent for ELF .so library. The KMP_VERSION_SYMBOL macro is defined in | |||
| 2511 | kmp_os.h */ | |||
| 2512 | ||||
| 2513 | #ifdef KMP_USE_VERSION_SYMBOLS | |||
| 2514 | // GOMP_1.0 versioned symbols | |||
| 2515 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_ATOMIC_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_atomic_end) __kmp_api_GOMP_atomic_end_10_alias __attribute__((alias("__kmp_api_GOMP_atomic_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_atomic_end_10_alias" "," "GOMP_atomic_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_atomic_end" "," "GOMP_atomic_end" "@@" "VERSION" "\n\t"); | |||
| 2516 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_ATOMIC_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_atomic_start) __kmp_api_GOMP_atomic_start_10_alias __attribute__((alias("__kmp_api_GOMP_atomic_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_atomic_start_10_alias" "," "GOMP_atomic_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_atomic_start" "," "GOMP_atomic_start" "@@" "VERSION" "\n\t"); | |||
| 2517 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_BARRIER, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_barrier) __kmp_api_GOMP_barrier_10_alias __attribute__((alias("__kmp_api_GOMP_barrier"))); __asm__( ".symver " "__kmp_api_GOMP_barrier_10_alias" "," "GOMP_barrier" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_barrier" "," "GOMP_barrier" "@@" "VERSION" "\n\t"); | |||
| 2518 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CRITICAL_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_critical_end) __kmp_api_GOMP_critical_end_10_alias __attribute__((alias("__kmp_api_GOMP_critical_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_critical_end_10_alias" "," "GOMP_critical_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_critical_end" "," "GOMP_critical_end" "@@" "VERSION" "\n\t"); | |||
| 2519 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CRITICAL_NAME_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_critical_name_end) __kmp_api_GOMP_critical_name_end_10_alias __attribute__((alias("__kmp_api_GOMP_critical_name_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_critical_name_end_10_alias" "," "GOMP_critical_name_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_critical_name_end" "," "GOMP_critical_name_end" "@@" "VERSION" "\n\t"); | |||
| 2520 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CRITICAL_NAME_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_critical_name_start) __kmp_api_GOMP_critical_name_start_10_alias __attribute__((alias("__kmp_api_GOMP_critical_name_start"))) ; __asm__( ".symver " "__kmp_api_GOMP_critical_name_start_10_alias" "," "GOMP_critical_name_start" "@" "GOMP_1.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_critical_name_start" "," "GOMP_critical_name_start" "@@" "VERSION" "\n\t"); | |||
| 2521 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CRITICAL_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_critical_start) __kmp_api_GOMP_critical_start_10_alias __attribute__((alias("__kmp_api_GOMP_critical_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_critical_start_10_alias" "," "GOMP_critical_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_critical_start" "," "GOMP_critical_start" "@@" "VERSION" "\n\t"); | |||
| 2522 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DYNAMIC_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_dynamic_next) __kmp_api_GOMP_loop_dynamic_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_dynamic_next"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_dynamic_next_10_alias" "," "GOMP_loop_dynamic_next" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_dynamic_next" "," "GOMP_loop_dynamic_next" "@@" "VERSION" "\n\t"); | |||
| 2523 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DYNAMIC_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_dynamic_start) __kmp_api_GOMP_loop_dynamic_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_dynamic_start"))); __asm__( ".symver " "__kmp_api_GOMP_loop_dynamic_start_10_alias" "," "GOMP_loop_dynamic_start" "@" "GOMP_1.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_dynamic_start" "," "GOMP_loop_dynamic_start" "@@" "VERSION" "\n\t"); | |||
| 2524 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_end) __kmp_api_GOMP_loop_end_10_alias __attribute__((alias("__kmp_api_GOMP_loop_end"))); __asm__( ".symver " "__kmp_api_GOMP_loop_end_10_alias" "," "GOMP_loop_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_end" "," "GOMP_loop_end" "@@" "VERSION" "\n\t"); | |||
| 2525 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_END_NOWAIT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_end_nowait) __kmp_api_GOMP_loop_end_nowait_10_alias __attribute__((alias("__kmp_api_GOMP_loop_end_nowait"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_end_nowait_10_alias" "," "GOMP_loop_end_nowait" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_end_nowait" "," "GOMP_loop_end_nowait" "@@" "VERSION" "\n\t"); | |||
| 2526 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_GUIDED_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_guided_next) __kmp_api_GOMP_loop_guided_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_guided_next"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_guided_next_10_alias" "," "GOMP_loop_guided_next" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_guided_next" "," "GOMP_loop_guided_next" "@@" "VERSION" "\n\t"); | |||
| 2527 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_GUIDED_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_guided_start) __kmp_api_GOMP_loop_guided_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_guided_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_guided_start_10_alias" "," "GOMP_loop_guided_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_guided_start" "," "GOMP_loop_guided_start" "@@" "VERSION" "\n\t"); | |||
| 2528 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_DYNAMIC_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_dynamic_next) __kmp_api_GOMP_loop_ordered_dynamic_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_dynamic_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_dynamic_next_10_alias" "," "GOMP_loop_ordered_dynamic_next" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ordered_dynamic_next" "," "GOMP_loop_ordered_dynamic_next" "@@" "VERSION" "\n\t"); | |||
| 2529 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_DYNAMIC_START, 10,__typeof__(__kmp_api_GOMP_loop_ordered_dynamic_start) __kmp_api_GOMP_loop_ordered_dynamic_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_dynamic_start_10_alias" "," "GOMP_loop_ordered_dynamic_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_ordered_dynamic_start" "," "GOMP_loop_ordered_dynamic_start" "@@" "VERSION" "\n\t") | |||
| 2530 | "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_dynamic_start) __kmp_api_GOMP_loop_ordered_dynamic_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_dynamic_start_10_alias" "," "GOMP_loop_ordered_dynamic_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_ordered_dynamic_start" "," "GOMP_loop_ordered_dynamic_start" "@@" "VERSION" "\n\t"); | |||
| 2531 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_GUIDED_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_guided_next) __kmp_api_GOMP_loop_ordered_guided_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_guided_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_guided_next_10_alias" "," "GOMP_loop_ordered_guided_next" "@" "GOMP_1.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ordered_guided_next" "," "GOMP_loop_ordered_guided_next" "@@" "VERSION" "\n\t"); | |||
| 2532 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_GUIDED_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_guided_start) __kmp_api_GOMP_loop_ordered_guided_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_guided_start_10_alias" "," "GOMP_loop_ordered_guided_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ordered_guided_start" "," "GOMP_loop_ordered_guided_start" "@@" "VERSION" "\n\t"); | |||
| 2533 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_runtime_next) __kmp_api_GOMP_loop_ordered_runtime_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_runtime_next_10_alias" "," "GOMP_loop_ordered_runtime_next" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ordered_runtime_next" "," "GOMP_loop_ordered_runtime_next" "@@" "VERSION" "\n\t"); | |||
| 2534 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_START, 10,__typeof__(__kmp_api_GOMP_loop_ordered_runtime_start) __kmp_api_GOMP_loop_ordered_runtime_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_runtime_start_10_alias" "," "GOMP_loop_ordered_runtime_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_ordered_runtime_start" "," "GOMP_loop_ordered_runtime_start" "@@" "VERSION" "\n\t") | |||
| 2535 | "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_runtime_start) __kmp_api_GOMP_loop_ordered_runtime_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_runtime_start_10_alias" "," "GOMP_loop_ordered_runtime_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_ordered_runtime_start" "," "GOMP_loop_ordered_runtime_start" "@@" "VERSION" "\n\t"); | |||
| 2536 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_STATIC_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_static_next) __kmp_api_GOMP_loop_ordered_static_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_static_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_static_next_10_alias" "," "GOMP_loop_ordered_static_next" "@" "GOMP_1.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ordered_static_next" "," "GOMP_loop_ordered_static_next" "@@" "VERSION" "\n\t"); | |||
| 2537 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_STATIC_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_ordered_static_start) __kmp_api_GOMP_loop_ordered_static_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_static_start_10_alias" "," "GOMP_loop_ordered_static_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ordered_static_start" "," "GOMP_loop_ordered_static_start" "@@" "VERSION" "\n\t"); | |||
| 2538 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_RUNTIME_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_runtime_next) __kmp_api_GOMP_loop_runtime_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_runtime_next"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_runtime_next_10_alias" "," "GOMP_loop_runtime_next" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_runtime_next" "," "GOMP_loop_runtime_next" "@@" "VERSION" "\n\t"); | |||
| 2539 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_RUNTIME_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_runtime_start) __kmp_api_GOMP_loop_runtime_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_runtime_start"))); __asm__( ".symver " "__kmp_api_GOMP_loop_runtime_start_10_alias" "," "GOMP_loop_runtime_start" "@" "GOMP_1.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_runtime_start" "," "GOMP_loop_runtime_start" "@@" "VERSION" "\n\t"); | |||
| 2540 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_STATIC_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_static_next) __kmp_api_GOMP_loop_static_next_10_alias __attribute__((alias("__kmp_api_GOMP_loop_static_next"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_static_next_10_alias" "," "GOMP_loop_static_next" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_static_next" "," "GOMP_loop_static_next" "@@" "VERSION" "\n\t"); | |||
| 2541 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_STATIC_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_loop_static_start) __kmp_api_GOMP_loop_static_start_10_alias __attribute__((alias("__kmp_api_GOMP_loop_static_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_static_start_10_alias" "," "GOMP_loop_static_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_static_start" "," "GOMP_loop_static_start" "@@" "VERSION" "\n\t"); | |||
| 2542 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_ORDERED_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_ordered_end) __kmp_api_GOMP_ordered_end_10_alias __attribute__((alias("__kmp_api_GOMP_ordered_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_ordered_end_10_alias" "," "GOMP_ordered_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_ordered_end" "," "GOMP_ordered_end" "@@" "VERSION" "\n\t"); | |||
| 2543 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_ORDERED_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_ordered_start) __kmp_api_GOMP_ordered_start_10_alias __attribute__((alias("__kmp_api_GOMP_ordered_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_ordered_start_10_alias" "," "GOMP_ordered_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_ordered_start" "," "GOMP_ordered_start" "@@" "VERSION" "\n\t"); | |||
| 2544 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_parallel_end) __kmp_api_GOMP_parallel_end_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_parallel_end_10_alias" "," "GOMP_parallel_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_end" "," "GOMP_parallel_end" "@@" "VERSION" "\n\t"); | |||
| 2545 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_DYNAMIC_START, 10,__typeof__(__kmp_api_GOMP_parallel_loop_dynamic_start) __kmp_api_GOMP_parallel_loop_dynamic_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_dynamic_start_10_alias" "," "GOMP_parallel_loop_dynamic_start" "@" "GOMP_1.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_dynamic_start" "," "GOMP_parallel_loop_dynamic_start" "@@" "VERSION" "\n\t" ) | |||
| 2546 | "GOMP_1.0")__typeof__(__kmp_api_GOMP_parallel_loop_dynamic_start) __kmp_api_GOMP_parallel_loop_dynamic_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_dynamic_start_10_alias" "," "GOMP_parallel_loop_dynamic_start" "@" "GOMP_1.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_dynamic_start" "," "GOMP_parallel_loop_dynamic_start" "@@" "VERSION" "\n\t" ); | |||
| 2547 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_GUIDED_START, 10,__typeof__(__kmp_api_GOMP_parallel_loop_guided_start) __kmp_api_GOMP_parallel_loop_guided_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_guided_start_10_alias" "," "GOMP_parallel_loop_guided_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_parallel_loop_guided_start" "," "GOMP_parallel_loop_guided_start" "@@" "VERSION" "\n\t") | |||
| 2548 | "GOMP_1.0")__typeof__(__kmp_api_GOMP_parallel_loop_guided_start) __kmp_api_GOMP_parallel_loop_guided_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_guided_start_10_alias" "," "GOMP_parallel_loop_guided_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_parallel_loop_guided_start" "," "GOMP_parallel_loop_guided_start" "@@" "VERSION" "\n\t"); | |||
| 2549 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME_START, 10,__typeof__(__kmp_api_GOMP_parallel_loop_runtime_start) __kmp_api_GOMP_parallel_loop_runtime_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_runtime_start_10_alias" "," "GOMP_parallel_loop_runtime_start" "@" "GOMP_1.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_runtime_start" "," "GOMP_parallel_loop_runtime_start" "@@" "VERSION" "\n\t" ) | |||
| 2550 | "GOMP_1.0")__typeof__(__kmp_api_GOMP_parallel_loop_runtime_start) __kmp_api_GOMP_parallel_loop_runtime_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_runtime_start_10_alias" "," "GOMP_parallel_loop_runtime_start" "@" "GOMP_1.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_runtime_start" "," "GOMP_parallel_loop_runtime_start" "@@" "VERSION" "\n\t" ); | |||
| 2551 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_STATIC_START, 10,__typeof__(__kmp_api_GOMP_parallel_loop_static_start) __kmp_api_GOMP_parallel_loop_static_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_static_start_10_alias" "," "GOMP_parallel_loop_static_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_parallel_loop_static_start" "," "GOMP_parallel_loop_static_start" "@@" "VERSION" "\n\t") | |||
| 2552 | "GOMP_1.0")__typeof__(__kmp_api_GOMP_parallel_loop_static_start) __kmp_api_GOMP_parallel_loop_static_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_static_start_10_alias" "," "GOMP_parallel_loop_static_start" "@" "GOMP_1.0" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_parallel_loop_static_start" "," "GOMP_parallel_loop_static_start" "@@" "VERSION" "\n\t"); | |||
| 2553 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_SECTIONS_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_parallel_sections_start) __kmp_api_GOMP_parallel_sections_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_sections_start" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_sections_start_10_alias" "," "GOMP_parallel_sections_start" "@" "GOMP_1.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_parallel_sections_start" "," "GOMP_parallel_sections_start" "@@" "VERSION" "\n\t"); | |||
| 2554 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_parallel_start) __kmp_api_GOMP_parallel_start_10_alias __attribute__((alias("__kmp_api_GOMP_parallel_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_parallel_start_10_alias" "," "GOMP_parallel_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_start" "," "GOMP_parallel_start" "@@" "VERSION" "\n\t"); | |||
| 2555 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_sections_end) __kmp_api_GOMP_sections_end_10_alias __attribute__((alias("__kmp_api_GOMP_sections_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_sections_end_10_alias" "," "GOMP_sections_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_sections_end" "," "GOMP_sections_end" "@@" "VERSION" "\n\t"); | |||
| 2556 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS_END_NOWAIT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_sections_end_nowait) __kmp_api_GOMP_sections_end_nowait_10_alias __attribute__((alias("__kmp_api_GOMP_sections_end_nowait"))) ; __asm__( ".symver " "__kmp_api_GOMP_sections_end_nowait_10_alias" "," "GOMP_sections_end_nowait" "@" "GOMP_1.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_sections_end_nowait" "," "GOMP_sections_end_nowait" "@@" "VERSION" "\n\t"); | |||
| 2557 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS_NEXT, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_sections_next) __kmp_api_GOMP_sections_next_10_alias __attribute__((alias("__kmp_api_GOMP_sections_next"))); __asm__ ( ".symver " "__kmp_api_GOMP_sections_next_10_alias" "," "GOMP_sections_next" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_sections_next" "," "GOMP_sections_next" "@@" "VERSION" "\n\t"); | |||
| 2558 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_sections_start) __kmp_api_GOMP_sections_start_10_alias __attribute__((alias("__kmp_api_GOMP_sections_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_sections_start_10_alias" "," "GOMP_sections_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_sections_start" "," "GOMP_sections_start" "@@" "VERSION" "\n\t"); | |||
| 2559 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SINGLE_COPY_END, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_single_copy_end) __kmp_api_GOMP_single_copy_end_10_alias __attribute__((alias("__kmp_api_GOMP_single_copy_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_single_copy_end_10_alias" "," "GOMP_single_copy_end" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_single_copy_end" "," "GOMP_single_copy_end" "@@" "VERSION" "\n\t"); | |||
| 2560 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SINGLE_COPY_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_single_copy_start) __kmp_api_GOMP_single_copy_start_10_alias __attribute__((alias("__kmp_api_GOMP_single_copy_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_single_copy_start_10_alias" "," "GOMP_single_copy_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_single_copy_start" "," "GOMP_single_copy_start" "@@" "VERSION" "\n\t"); | |||
| 2561 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SINGLE_START, 10, "GOMP_1.0")__typeof__(__kmp_api_GOMP_single_start) __kmp_api_GOMP_single_start_10_alias __attribute__((alias("__kmp_api_GOMP_single_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_single_start_10_alias" "," "GOMP_single_start" "@" "GOMP_1.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_single_start" "," "GOMP_single_start" "@@" "VERSION" "\n\t"); | |||
| 2562 | ||||
| 2563 | // GOMP_2.0 versioned symbols | |||
| 2564 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASK, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_task) __kmp_api_GOMP_task_20_alias __attribute__ ((alias("__kmp_api_GOMP_task"))); __asm__( ".symver " "__kmp_api_GOMP_task_20_alias" "," "GOMP_task" "@" "GOMP_2.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_task" "," "GOMP_task" "@@" "VERSION" "\n\t"); | |||
| 2565 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKWAIT, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_taskwait) __kmp_api_GOMP_taskwait_20_alias __attribute__((alias("__kmp_api_GOMP_taskwait"))); __asm__( ".symver " "__kmp_api_GOMP_taskwait_20_alias" "," "GOMP_taskwait" "@" "GOMP_2.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_taskwait" "," "GOMP_taskwait" "@@" "VERSION" "\n\t"); | |||
| 2566 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DYNAMIC_NEXT, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_dynamic_next) __kmp_api_GOMP_loop_ull_dynamic_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_dynamic_next") )); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_dynamic_next_20_alias" "," "GOMP_loop_ull_dynamic_next" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_dynamic_next" "," "GOMP_loop_ull_dynamic_next" "@@" "VERSION" "\n\t"); | |||
| 2567 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DYNAMIC_START, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_dynamic_start) __kmp_api_GOMP_loop_ull_dynamic_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_dynamic_start_20_alias" "," "GOMP_loop_ull_dynamic_start" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_dynamic_start" "," "GOMP_loop_ull_dynamic_start" "@@" "VERSION" "\n\t"); | |||
| 2568 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_GUIDED_NEXT, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_guided_next) __kmp_api_GOMP_loop_ull_guided_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_guided_next")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_guided_next_20_alias" "," "GOMP_loop_ull_guided_next" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_guided_next" "," "GOMP_loop_ull_guided_next" "@@" "VERSION" "\n\t"); | |||
| 2569 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_GUIDED_START, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_guided_start) __kmp_api_GOMP_loop_ull_guided_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_guided_start") )); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_guided_start_20_alias" "," "GOMP_loop_ull_guided_start" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_guided_start" "," "GOMP_loop_ull_guided_start" "@@" "VERSION" "\n\t"); | |||
| 2570 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_DYNAMIC_NEXT, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_dynamic_next) __kmp_api_GOMP_loop_ull_ordered_dynamic_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_dynamic_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_next_20_alias" "," "GOMP_loop_ull_ordered_dynamic_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_next" "," "GOMP_loop_ull_ordered_dynamic_next" "@@" "VERSION" "\n\t" ) | |||
| 2571 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_dynamic_next) __kmp_api_GOMP_loop_ull_ordered_dynamic_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_dynamic_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_next_20_alias" "," "GOMP_loop_ull_ordered_dynamic_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_next" "," "GOMP_loop_ull_ordered_dynamic_next" "@@" "VERSION" "\n\t" ); | |||
| 2572 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_DYNAMIC_START, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_dynamic_start) __kmp_api_GOMP_loop_ull_ordered_dynamic_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_start_20_alias" "," "GOMP_loop_ull_ordered_dynamic_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_start" "," "GOMP_loop_ull_ordered_dynamic_start" "@@" "VERSION" "\n\t" ) | |||
| 2573 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_dynamic_start) __kmp_api_GOMP_loop_ull_ordered_dynamic_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_start_20_alias" "," "GOMP_loop_ull_ordered_dynamic_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_dynamic_start" "," "GOMP_loop_ull_ordered_dynamic_start" "@@" "VERSION" "\n\t" ); | |||
| 2574 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_GUIDED_NEXT, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_guided_next) __kmp_api_GOMP_loop_ull_ordered_guided_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_guided_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_next_20_alias" "," "GOMP_loop_ull_ordered_guided_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_next" "," "GOMP_loop_ull_ordered_guided_next" "@@" "VERSION" "\n\t" ) | |||
| 2575 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_guided_next) __kmp_api_GOMP_loop_ull_ordered_guided_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_guided_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_next_20_alias" "," "GOMP_loop_ull_ordered_guided_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_next" "," "GOMP_loop_ull_ordered_guided_next" "@@" "VERSION" "\n\t" ); | |||
| 2576 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_GUIDED_START, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_guided_start) __kmp_api_GOMP_loop_ull_ordered_guided_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_start_20_alias" "," "GOMP_loop_ull_ordered_guided_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_start" "," "GOMP_loop_ull_ordered_guided_start" "@@" "VERSION" "\n\t" ) | |||
| 2577 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_guided_start) __kmp_api_GOMP_loop_ull_ordered_guided_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_start_20_alias" "," "GOMP_loop_ull_ordered_guided_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_guided_start" "," "GOMP_loop_ull_ordered_guided_start" "@@" "VERSION" "\n\t" ); | |||
| 2578 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_NEXT, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_runtime_next) __kmp_api_GOMP_loop_ull_ordered_runtime_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_next_20_alias" "," "GOMP_loop_ull_ordered_runtime_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_next" "," "GOMP_loop_ull_ordered_runtime_next" "@@" "VERSION" "\n\t" ) | |||
| 2579 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_runtime_next) __kmp_api_GOMP_loop_ull_ordered_runtime_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_next_20_alias" "," "GOMP_loop_ull_ordered_runtime_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_next" "," "GOMP_loop_ull_ordered_runtime_next" "@@" "VERSION" "\n\t" ); | |||
| 2580 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_START, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_runtime_start) __kmp_api_GOMP_loop_ull_ordered_runtime_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_start_20_alias" "," "GOMP_loop_ull_ordered_runtime_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_start" "," "GOMP_loop_ull_ordered_runtime_start" "@@" "VERSION" "\n\t" ) | |||
| 2581 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_runtime_start) __kmp_api_GOMP_loop_ull_ordered_runtime_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_start_20_alias" "," "GOMP_loop_ull_ordered_runtime_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_runtime_start" "," "GOMP_loop_ull_ordered_runtime_start" "@@" "VERSION" "\n\t" ); | |||
| 2582 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_STATIC_NEXT, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_static_next) __kmp_api_GOMP_loop_ull_ordered_static_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_static_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_static_next_20_alias" "," "GOMP_loop_ull_ordered_static_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_static_next" "," "GOMP_loop_ull_ordered_static_next" "@@" "VERSION" "\n\t" ) | |||
| 2583 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_static_next) __kmp_api_GOMP_loop_ull_ordered_static_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_static_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_static_next_20_alias" "," "GOMP_loop_ull_ordered_static_next" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_static_next" "," "GOMP_loop_ull_ordered_static_next" "@@" "VERSION" "\n\t" ); | |||
| 2584 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_STATIC_START, 20,__typeof__(__kmp_api_GOMP_loop_ull_ordered_static_start) __kmp_api_GOMP_loop_ull_ordered_static_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_static_start_20_alias" "," "GOMP_loop_ull_ordered_static_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_static_start" "," "GOMP_loop_ull_ordered_static_start" "@@" "VERSION" "\n\t" ) | |||
| 2585 | "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_static_start) __kmp_api_GOMP_loop_ull_ordered_static_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_static_start_20_alias" "," "GOMP_loop_ull_ordered_static_start" "@" "GOMP_2.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_ordered_static_start" "," "GOMP_loop_ull_ordered_static_start" "@@" "VERSION" "\n\t" ); | |||
| 2586 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_RUNTIME_NEXT, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_runtime_next) __kmp_api_GOMP_loop_ull_runtime_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_runtime_next") )); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_runtime_next_20_alias" "," "GOMP_loop_ull_runtime_next" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_runtime_next" "," "GOMP_loop_ull_runtime_next" "@@" "VERSION" "\n\t"); | |||
| 2587 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_RUNTIME_START, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_runtime_start) __kmp_api_GOMP_loop_ull_runtime_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_runtime_start_20_alias" "," "GOMP_loop_ull_runtime_start" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_runtime_start" "," "GOMP_loop_ull_runtime_start" "@@" "VERSION" "\n\t"); | |||
| 2588 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_NEXT, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_static_next) __kmp_api_GOMP_loop_ull_static_next_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_static_next")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_static_next_20_alias" "," "GOMP_loop_ull_static_next" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_static_next" "," "GOMP_loop_ull_static_next" "@@" "VERSION" "\n\t"); | |||
| 2589 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_START, 20, "GOMP_2.0")__typeof__(__kmp_api_GOMP_loop_ull_static_start) __kmp_api_GOMP_loop_ull_static_start_20_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_static_start") )); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_static_start_20_alias" "," "GOMP_loop_ull_static_start" "@" "GOMP_2.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_static_start" "," "GOMP_loop_ull_static_start" "@@" "VERSION" "\n\t"); | |||
| 2590 | ||||
| 2591 | // GOMP_3.0 versioned symbols | |||
| 2592 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKYIELD, 30, "GOMP_3.0")__typeof__(__kmp_api_GOMP_taskyield) __kmp_api_GOMP_taskyield_30_alias __attribute__((alias("__kmp_api_GOMP_taskyield"))); __asm__( ".symver " "__kmp_api_GOMP_taskyield_30_alias" "," "GOMP_taskyield" "@" "GOMP_3.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_taskyield" "," "GOMP_taskyield" "@@" "VERSION" "\n\t"); | |||
| 2593 | ||||
| 2594 | // GOMP_4.0 versioned symbols | |||
| 2595 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_parallel) __kmp_api_GOMP_parallel_40_alias __attribute__((alias("__kmp_api_GOMP_parallel"))); __asm__( ".symver " "__kmp_api_GOMP_parallel_40_alias" "," "GOMP_parallel" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel" "," "GOMP_parallel" "@@" "VERSION" "\n\t"); | |||
| 2596 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_SECTIONS, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_parallel_sections) __kmp_api_GOMP_parallel_sections_40_alias __attribute__((alias("__kmp_api_GOMP_parallel_sections"))); __asm__ ( ".symver " "__kmp_api_GOMP_parallel_sections_40_alias" "," "GOMP_parallel_sections" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_sections" "," "GOMP_parallel_sections" "@@" "VERSION" "\n\t"); | |||
| 2597 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_DYNAMIC, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_parallel_loop_dynamic) __kmp_api_GOMP_parallel_loop_dynamic_40_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_dynamic") )); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_dynamic_40_alias" "," "GOMP_parallel_loop_dynamic" "@" "GOMP_4.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_parallel_loop_dynamic" "," "GOMP_parallel_loop_dynamic" "@@" "VERSION" "\n\t"); | |||
| 2598 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_GUIDED, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_parallel_loop_guided) __kmp_api_GOMP_parallel_loop_guided_40_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_guided")) ); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_guided_40_alias" "," "GOMP_parallel_loop_guided" "@" "GOMP_4.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_parallel_loop_guided" "," "GOMP_parallel_loop_guided" "@@" "VERSION" "\n\t"); | |||
| 2599 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_parallel_loop_runtime) __kmp_api_GOMP_parallel_loop_runtime_40_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_runtime") )); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_runtime_40_alias" "," "GOMP_parallel_loop_runtime" "@" "GOMP_4.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_parallel_loop_runtime" "," "GOMP_parallel_loop_runtime" "@@" "VERSION" "\n\t"); | |||
| 2600 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_STATIC, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_parallel_loop_static) __kmp_api_GOMP_parallel_loop_static_40_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_static")) ); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_static_40_alias" "," "GOMP_parallel_loop_static" "@" "GOMP_4.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_parallel_loop_static" "," "GOMP_parallel_loop_static" "@@" "VERSION" "\n\t"); | |||
| 2601 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_START, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_taskgroup_start) __kmp_api_GOMP_taskgroup_start_40_alias __attribute__((alias("__kmp_api_GOMP_taskgroup_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_taskgroup_start_40_alias" "," "GOMP_taskgroup_start" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_taskgroup_start" "," "GOMP_taskgroup_start" "@@" "VERSION" "\n\t"); | |||
| 2602 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_END, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_taskgroup_end) __kmp_api_GOMP_taskgroup_end_40_alias __attribute__((alias("__kmp_api_GOMP_taskgroup_end"))); __asm__ ( ".symver " "__kmp_api_GOMP_taskgroup_end_40_alias" "," "GOMP_taskgroup_end" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_taskgroup_end" "," "GOMP_taskgroup_end" "@@" "VERSION" "\n\t"); | |||
| 2603 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_BARRIER_CANCEL, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_barrier_cancel) __kmp_api_GOMP_barrier_cancel_40_alias __attribute__((alias("__kmp_api_GOMP_barrier_cancel"))); __asm__ ( ".symver " "__kmp_api_GOMP_barrier_cancel_40_alias" "," "GOMP_barrier_cancel" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_barrier_cancel" "," "GOMP_barrier_cancel" "@@" "VERSION" "\n\t"); | |||
| 2604 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CANCEL, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_cancel) __kmp_api_GOMP_cancel_40_alias __attribute__((alias("__kmp_api_GOMP_cancel"))); __asm__( ".symver " "__kmp_api_GOMP_cancel_40_alias" "," "GOMP_cancel" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_cancel" "," "GOMP_cancel" "@@" "VERSION" "\n\t"); | |||
| 2605 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CANCELLATION_POINT, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_cancellation_point) __kmp_api_GOMP_cancellation_point_40_alias __attribute__((alias("__kmp_api_GOMP_cancellation_point"))); __asm__( ".symver " "__kmp_api_GOMP_cancellation_point_40_alias" "," "GOMP_cancellation_point" "@" "GOMP_4.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_cancellation_point" "," "GOMP_cancellation_point" "@@" "VERSION" "\n\t"); | |||
| 2606 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_END_CANCEL, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_loop_end_cancel) __kmp_api_GOMP_loop_end_cancel_40_alias __attribute__((alias("__kmp_api_GOMP_loop_end_cancel"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_end_cancel_40_alias" "," "GOMP_loop_end_cancel" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_end_cancel" "," "GOMP_loop_end_cancel" "@@" "VERSION" "\n\t"); | |||
| 2607 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS_END_CANCEL, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_sections_end_cancel) __kmp_api_GOMP_sections_end_cancel_40_alias __attribute__((alias("__kmp_api_GOMP_sections_end_cancel"))) ; __asm__( ".symver " "__kmp_api_GOMP_sections_end_cancel_40_alias" "," "GOMP_sections_end_cancel" "@" "GOMP_4.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_sections_end_cancel" "," "GOMP_sections_end_cancel" "@@" "VERSION" "\n\t"); | |||
| 2608 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_target) __kmp_api_GOMP_target_40_alias __attribute__((alias("__kmp_api_GOMP_target"))); __asm__( ".symver " "__kmp_api_GOMP_target_40_alias" "," "GOMP_target" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_target" "," "GOMP_target" "@@" "VERSION" "\n\t"); | |||
| 2609 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_DATA, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_target_data) __kmp_api_GOMP_target_data_40_alias __attribute__((alias("__kmp_api_GOMP_target_data"))); __asm__ ( ".symver " "__kmp_api_GOMP_target_data_40_alias" "," "GOMP_target_data" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_target_data" "," "GOMP_target_data" "@@" "VERSION" "\n\t"); | |||
| 2610 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_END_DATA, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_target_end_data) __kmp_api_GOMP_target_end_data_40_alias __attribute__((alias("__kmp_api_GOMP_target_end_data"))); __asm__ ( ".symver " "__kmp_api_GOMP_target_end_data_40_alias" "," "GOMP_target_end_data" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_target_end_data" "," "GOMP_target_end_data" "@@" "VERSION" "\n\t"); | |||
| 2611 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_UPDATE, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_target_update) __kmp_api_GOMP_target_update_40_alias __attribute__((alias("__kmp_api_GOMP_target_update"))); __asm__ ( ".symver " "__kmp_api_GOMP_target_update_40_alias" "," "GOMP_target_update" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_target_update" "," "GOMP_target_update" "@@" "VERSION" "\n\t"); | |||
| 2612 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TEAMS, 40, "GOMP_4.0")__typeof__(__kmp_api_GOMP_teams) __kmp_api_GOMP_teams_40_alias __attribute__((alias("__kmp_api_GOMP_teams"))); __asm__( ".symver " "__kmp_api_GOMP_teams_40_alias" "," "GOMP_teams" "@" "GOMP_4.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_teams" "," "GOMP_teams" "@@" "VERSION" "\n\t"); | |||
| 2613 | ||||
| 2614 | // GOMP_4.5 versioned symbols | |||
| 2615 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKLOOP, 45, "GOMP_4.5")__typeof__(__kmp_api_GOMP_taskloop) __kmp_api_GOMP_taskloop_45_alias __attribute__((alias("__kmp_api_GOMP_taskloop"))); __asm__( ".symver " "__kmp_api_GOMP_taskloop_45_alias" "," "GOMP_taskloop" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_taskloop" "," "GOMP_taskloop" "@@" "VERSION" "\n\t"); | |||
| 2616 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKLOOP_ULL, 45, "GOMP_4.5")__typeof__(__kmp_api_GOMP_taskloop_ull) __kmp_api_GOMP_taskloop_ull_45_alias __attribute__((alias("__kmp_api_GOMP_taskloop_ull"))); __asm__ ( ".symver " "__kmp_api_GOMP_taskloop_ull_45_alias" "," "GOMP_taskloop_ull" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_taskloop_ull" "," "GOMP_taskloop_ull" "@@" "VERSION" "\n\t"); | |||
| 2617 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_POST, 45, "GOMP_4.5")__typeof__(__kmp_api_GOMP_doacross_post) __kmp_api_GOMP_doacross_post_45_alias __attribute__((alias("__kmp_api_GOMP_doacross_post"))); __asm__ ( ".symver " "__kmp_api_GOMP_doacross_post_45_alias" "," "GOMP_doacross_post" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_doacross_post" "," "GOMP_doacross_post" "@@" "VERSION" "\n\t"); | |||
| 2618 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_WAIT, 45, "GOMP_4.5")__typeof__(__kmp_api_GOMP_doacross_wait) __kmp_api_GOMP_doacross_wait_45_alias __attribute__((alias("__kmp_api_GOMP_doacross_wait"))); __asm__ ( ".symver " "__kmp_api_GOMP_doacross_wait_45_alias" "," "GOMP_doacross_wait" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_doacross_wait" "," "GOMP_doacross_wait" "@@" "VERSION" "\n\t"); | |||
| 2619 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_STATIC_START, 45,__typeof__(__kmp_api_GOMP_loop_doacross_static_start) __kmp_api_GOMP_loop_doacross_static_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_static_start_45_alias" "," "GOMP_loop_doacross_static_start" "@" "GOMP_4.5" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_doacross_static_start" "," "GOMP_loop_doacross_static_start" "@@" "VERSION" "\n\t") | |||
| 2620 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_doacross_static_start) __kmp_api_GOMP_loop_doacross_static_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_static_start_45_alias" "," "GOMP_loop_doacross_static_start" "@" "GOMP_4.5" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_doacross_static_start" "," "GOMP_loop_doacross_static_start" "@@" "VERSION" "\n\t"); | |||
| 2621 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_DYNAMIC_START, 45,__typeof__(__kmp_api_GOMP_loop_doacross_dynamic_start) __kmp_api_GOMP_loop_doacross_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_dynamic_start_45_alias" "," "GOMP_loop_doacross_dynamic_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_doacross_dynamic_start" "," "GOMP_loop_doacross_dynamic_start" "@@" "VERSION" "\n\t" ) | |||
| 2622 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_doacross_dynamic_start) __kmp_api_GOMP_loop_doacross_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_dynamic_start_45_alias" "," "GOMP_loop_doacross_dynamic_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_doacross_dynamic_start" "," "GOMP_loop_doacross_dynamic_start" "@@" "VERSION" "\n\t" ); | |||
| 2623 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_GUIDED_START, 45,__typeof__(__kmp_api_GOMP_loop_doacross_guided_start) __kmp_api_GOMP_loop_doacross_guided_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_guided_start_45_alias" "," "GOMP_loop_doacross_guided_start" "@" "GOMP_4.5" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_doacross_guided_start" "," "GOMP_loop_doacross_guided_start" "@@" "VERSION" "\n\t") | |||
| 2624 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_doacross_guided_start) __kmp_api_GOMP_loop_doacross_guided_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_guided_start_45_alias" "," "GOMP_loop_doacross_guided_start" "@" "GOMP_4.5" "\n\t") ; __asm__(".symver " "__kmp_api_GOMP_loop_doacross_guided_start" "," "GOMP_loop_doacross_guided_start" "@@" "VERSION" "\n\t"); | |||
| 2625 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_RUNTIME_START, 45,__typeof__(__kmp_api_GOMP_loop_doacross_runtime_start) __kmp_api_GOMP_loop_doacross_runtime_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_runtime_start_45_alias" "," "GOMP_loop_doacross_runtime_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_doacross_runtime_start" "," "GOMP_loop_doacross_runtime_start" "@@" "VERSION" "\n\t" ) | |||
| 2626 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_doacross_runtime_start) __kmp_api_GOMP_loop_doacross_runtime_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_runtime_start_45_alias" "," "GOMP_loop_doacross_runtime_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_doacross_runtime_start" "," "GOMP_loop_doacross_runtime_start" "@@" "VERSION" "\n\t" ); | |||
| 2627 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_ULL_POST, 45, "GOMP_4.5")__typeof__(__kmp_api_GOMP_doacross_ull_post) __kmp_api_GOMP_doacross_ull_post_45_alias __attribute__((alias("__kmp_api_GOMP_doacross_ull_post"))); __asm__ ( ".symver " "__kmp_api_GOMP_doacross_ull_post_45_alias" "," "GOMP_doacross_ull_post" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_doacross_ull_post" "," "GOMP_doacross_ull_post" "@@" "VERSION" "\n\t"); | |||
| 2628 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_ULL_WAIT, 45, "GOMP_4.5")__typeof__(__kmp_api_GOMP_doacross_ull_wait) __kmp_api_GOMP_doacross_ull_wait_45_alias __attribute__((alias("__kmp_api_GOMP_doacross_ull_wait"))); __asm__ ( ".symver " "__kmp_api_GOMP_doacross_ull_wait_45_alias" "," "GOMP_doacross_ull_wait" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_doacross_ull_wait" "," "GOMP_doacross_ull_wait" "@@" "VERSION" "\n\t"); | |||
| 2629 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_STATIC_START, 45,__typeof__(__kmp_api_GOMP_loop_ull_doacross_static_start) __kmp_api_GOMP_loop_ull_doacross_static_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_static_start_45_alias" "," "GOMP_loop_ull_doacross_static_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_static_start" "," "GOMP_loop_ull_doacross_static_start" "@@" "VERSION" "\n\t" ) | |||
| 2630 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_doacross_static_start) __kmp_api_GOMP_loop_ull_doacross_static_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_static_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_static_start_45_alias" "," "GOMP_loop_ull_doacross_static_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_static_start" "," "GOMP_loop_ull_doacross_static_start" "@@" "VERSION" "\n\t" ); | |||
| 2631 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_DYNAMIC_START, 45,__typeof__(__kmp_api_GOMP_loop_ull_doacross_dynamic_start) __kmp_api_GOMP_loop_ull_doacross_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_dynamic_start_45_alias" "," "GOMP_loop_ull_doacross_dynamic_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_dynamic_start" "," "GOMP_loop_ull_doacross_dynamic_start" "@@" "VERSION" "\n\t" ) | |||
| 2632 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_doacross_dynamic_start) __kmp_api_GOMP_loop_ull_doacross_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_dynamic_start_45_alias" "," "GOMP_loop_ull_doacross_dynamic_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_dynamic_start" "," "GOMP_loop_ull_doacross_dynamic_start" "@@" "VERSION" "\n\t" ); | |||
| 2633 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_GUIDED_START, 45,__typeof__(__kmp_api_GOMP_loop_ull_doacross_guided_start) __kmp_api_GOMP_loop_ull_doacross_guided_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_guided_start_45_alias" "," "GOMP_loop_ull_doacross_guided_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_guided_start" "," "GOMP_loop_ull_doacross_guided_start" "@@" "VERSION" "\n\t" ) | |||
| 2634 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_doacross_guided_start) __kmp_api_GOMP_loop_ull_doacross_guided_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_guided_start_45_alias" "," "GOMP_loop_ull_doacross_guided_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_guided_start" "," "GOMP_loop_ull_doacross_guided_start" "@@" "VERSION" "\n\t" ); | |||
| 2635 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_RUNTIME_START, 45,__typeof__(__kmp_api_GOMP_loop_ull_doacross_runtime_start) __kmp_api_GOMP_loop_ull_doacross_runtime_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_runtime_start_45_alias" "," "GOMP_loop_ull_doacross_runtime_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_runtime_start" "," "GOMP_loop_ull_doacross_runtime_start" "@@" "VERSION" "\n\t" ) | |||
| 2636 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_doacross_runtime_start) __kmp_api_GOMP_loop_ull_doacross_runtime_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_runtime_start_45_alias" "," "GOMP_loop_ull_doacross_runtime_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_doacross_runtime_start" "," "GOMP_loop_ull_doacross_runtime_start" "@@" "VERSION" "\n\t" ); | |||
| 2637 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_DYNAMIC_START, 45,__typeof__(__kmp_api_GOMP_loop_nonmonotonic_dynamic_start) __kmp_api_GOMP_loop_nonmonotonic_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_start_45_alias" "," "GOMP_loop_nonmonotonic_dynamic_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" "," "GOMP_loop_nonmonotonic_dynamic_start" "@@" "VERSION" "\n\t" ) | |||
| 2638 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_nonmonotonic_dynamic_start) __kmp_api_GOMP_loop_nonmonotonic_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_start_45_alias" "," "GOMP_loop_nonmonotonic_dynamic_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_start" "," "GOMP_loop_nonmonotonic_dynamic_start" "@@" "VERSION" "\n\t" ); | |||
| 2639 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_DYNAMIC_NEXT, 45,__typeof__(__kmp_api_GOMP_loop_nonmonotonic_dynamic_next) __kmp_api_GOMP_loop_nonmonotonic_dynamic_next_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_dynamic_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_next_45_alias" "," "GOMP_loop_nonmonotonic_dynamic_next" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_next" "," "GOMP_loop_nonmonotonic_dynamic_next" "@@" "VERSION" "\n\t" ) | |||
| 2640 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_nonmonotonic_dynamic_next) __kmp_api_GOMP_loop_nonmonotonic_dynamic_next_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_dynamic_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_next_45_alias" "," "GOMP_loop_nonmonotonic_dynamic_next" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_dynamic_next" "," "GOMP_loop_nonmonotonic_dynamic_next" "@@" "VERSION" "\n\t" ); | |||
| 2641 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_GUIDED_START, 45,__typeof__(__kmp_api_GOMP_loop_nonmonotonic_guided_start) __kmp_api_GOMP_loop_nonmonotonic_guided_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_start_45_alias" "," "GOMP_loop_nonmonotonic_guided_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_start" "," "GOMP_loop_nonmonotonic_guided_start" "@@" "VERSION" "\n\t" ) | |||
| 2642 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_nonmonotonic_guided_start) __kmp_api_GOMP_loop_nonmonotonic_guided_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_guided_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_start_45_alias" "," "GOMP_loop_nonmonotonic_guided_start" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_start" "," "GOMP_loop_nonmonotonic_guided_start" "@@" "VERSION" "\n\t" ); | |||
| 2643 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_GUIDED_NEXT, 45,__typeof__(__kmp_api_GOMP_loop_nonmonotonic_guided_next) __kmp_api_GOMP_loop_nonmonotonic_guided_next_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_guided_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_next_45_alias" "," "GOMP_loop_nonmonotonic_guided_next" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_next" "," "GOMP_loop_nonmonotonic_guided_next" "@@" "VERSION" "\n\t" ) | |||
| 2644 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_nonmonotonic_guided_next) __kmp_api_GOMP_loop_nonmonotonic_guided_next_45_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_guided_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_next_45_alias" "," "GOMP_loop_nonmonotonic_guided_next" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_guided_next" "," "GOMP_loop_nonmonotonic_guided_next" "@@" "VERSION" "\n\t" ); | |||
| 2645 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_DYNAMIC_START, 45,__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start ) __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start_45_alias" "," "GOMP_loop_ull_nonmonotonic_dynamic_start" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" "," "GOMP_loop_ull_nonmonotonic_dynamic_start" "@@" "VERSION" "\n\t") | |||
| 2646 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start ) __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start_45_alias" "," "GOMP_loop_ull_nonmonotonic_dynamic_start" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_start" "," "GOMP_loop_ull_nonmonotonic_dynamic_start" "@@" "VERSION" "\n\t"); | |||
| 2647 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_DYNAMIC_NEXT, 45,__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next) __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next_45_alias __attribute__ ((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next_45_alias" "," "GOMP_loop_ull_nonmonotonic_dynamic_next" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next" "," "GOMP_loop_ull_nonmonotonic_dynamic_next" "@@" "VERSION" "\n\t") | |||
| 2648 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next) __kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next_45_alias __attribute__ ((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next_45_alias" "," "GOMP_loop_ull_nonmonotonic_dynamic_next" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_dynamic_next" "," "GOMP_loop_ull_nonmonotonic_dynamic_next" "@@" "VERSION" "\n\t"); | |||
| 2649 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_GUIDED_START, 45,__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start) __kmp_api_GOMP_loop_ull_nonmonotonic_guided_start_45_alias __attribute__ ((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start_45_alias" "," "GOMP_loop_ull_nonmonotonic_guided_start" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" "," "GOMP_loop_ull_nonmonotonic_guided_start" "@@" "VERSION" "\n\t") | |||
| 2650 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start) __kmp_api_GOMP_loop_ull_nonmonotonic_guided_start_45_alias __attribute__ ((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start_45_alias" "," "GOMP_loop_ull_nonmonotonic_guided_start" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_start" "," "GOMP_loop_ull_nonmonotonic_guided_start" "@@" "VERSION" "\n\t"); | |||
| 2651 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_GUIDED_NEXT, 45,__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next) __kmp_api_GOMP_loop_ull_nonmonotonic_guided_next_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next_45_alias" "," "GOMP_loop_ull_nonmonotonic_guided_next" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" "," "GOMP_loop_ull_nonmonotonic_guided_next" "@@" "VERSION" "\n\t" ) | |||
| 2652 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next) __kmp_api_GOMP_loop_ull_nonmonotonic_guided_next_45_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next_45_alias" "," "GOMP_loop_ull_nonmonotonic_guided_next" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_guided_next" "," "GOMP_loop_ull_nonmonotonic_guided_next" "@@" "VERSION" "\n\t" ); | |||
| 2653 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_NONMONOTONIC_DYNAMIC, 45,__typeof__(__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic) __kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic_45_alias __attribute__ ((alias("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic")) ); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic_45_alias" "," "GOMP_parallel_loop_nonmonotonic_dynamic" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" "," "GOMP_parallel_loop_nonmonotonic_dynamic" "@@" "VERSION" "\n\t") | |||
| 2654 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic) __kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic_45_alias __attribute__ ((alias("__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic")) ); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic_45_alias" "," "GOMP_parallel_loop_nonmonotonic_dynamic" "@" "GOMP_4.5" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_dynamic" "," "GOMP_parallel_loop_nonmonotonic_dynamic" "@@" "VERSION" "\n\t"); | |||
| 2655 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_NONMONOTONIC_GUIDED, 45,__typeof__(__kmp_api_GOMP_parallel_loop_nonmonotonic_guided) __kmp_api_GOMP_parallel_loop_nonmonotonic_guided_45_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_guided_45_alias" "," "GOMP_parallel_loop_nonmonotonic_guided" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" "," "GOMP_parallel_loop_nonmonotonic_guided" "@@" "VERSION" "\n\t" ) | |||
| 2656 | "GOMP_4.5")__typeof__(__kmp_api_GOMP_parallel_loop_nonmonotonic_guided) __kmp_api_GOMP_parallel_loop_nonmonotonic_guided_45_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_guided_45_alias" "," "GOMP_parallel_loop_nonmonotonic_guided" "@" "GOMP_4.5" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_guided" "," "GOMP_parallel_loop_nonmonotonic_guided" "@@" "VERSION" "\n\t" ); | |||
| 2657 | ||||
| 2658 | // GOMP_5.0 versioned symbols | |||
| 2659 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_MAYBE_NONMONOTONIC_RUNTIME_NEXT, 50,__typeof__(__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next ) __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next_50_alias __attribute__((alias("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_maybe_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" "," "GOMP_loop_maybe_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t") | |||
| 2660 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next ) __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next_50_alias __attribute__((alias("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_maybe_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_next" "," "GOMP_loop_maybe_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t"); | |||
| 2661 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_MAYBE_NONMONOTONIC_RUNTIME_START, 50,__typeof__(__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start ) __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_maybe_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" "," "GOMP_loop_maybe_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t") | |||
| 2662 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start ) __kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_maybe_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_maybe_nonmonotonic_runtime_start" "," "GOMP_loop_maybe_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t"); | |||
| 2663 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_RUNTIME_NEXT, 50,__typeof__(__kmp_api_GOMP_loop_nonmonotonic_runtime_next) __kmp_api_GOMP_loop_nonmonotonic_runtime_next_50_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_next" "," "GOMP_loop_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t" ) | |||
| 2664 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_nonmonotonic_runtime_next) __kmp_api_GOMP_loop_nonmonotonic_runtime_next_50_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_next" "," "GOMP_loop_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t" ); | |||
| 2665 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_NONMONOTONIC_RUNTIME_START, 50,__typeof__(__kmp_api_GOMP_loop_nonmonotonic_runtime_start) __kmp_api_GOMP_loop_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_start" "," "GOMP_loop_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t" ) | |||
| 2666 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_nonmonotonic_runtime_start) __kmp_api_GOMP_loop_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_loop_nonmonotonic_runtime_start" "," "GOMP_loop_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t" ); | |||
| 2667 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_MAYBE_NONMONOTONIC_RUNTIME_NEXT,__typeof__(__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next ) __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t") | |||
| 2668 | 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next ) __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_next" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t"); | |||
| 2669 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_MAYBE_NONMONOTONIC_RUNTIME_START,__typeof__(__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start ) __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t") | |||
| 2670 | 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start ) __kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_maybe_nonmonotonic_runtime_start" "," "GOMP_loop_ull_maybe_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t"); | |||
| 2671 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_RUNTIME_NEXT, 50,__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next) __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next_50_alias __attribute__ ((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_ull_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next" "," "GOMP_loop_ull_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t") | |||
| 2672 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next) __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next_50_alias __attribute__ ((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next")) ); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next_50_alias" "," "GOMP_loop_ull_nonmonotonic_runtime_next" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_next" "," "GOMP_loop_ull_nonmonotonic_runtime_next" "@@" "VERSION" "\n\t"); | |||
| 2673 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_NONMONOTONIC_RUNTIME_START, 50,__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start ) __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_ull_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" "," "GOMP_loop_ull_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t") | |||
| 2674 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start ) __kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start_50_alias" "," "GOMP_loop_ull_nonmonotonic_runtime_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_nonmonotonic_runtime_start" "," "GOMP_loop_ull_nonmonotonic_runtime_start" "@@" "VERSION" "\n\t"); | |||
| 2675 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_NONMONOTONIC_RUNTIME, 50,__typeof__(__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime) __kmp_api_GOMP_parallel_loop_nonmonotonic_runtime_50_alias __attribute__ ((alias("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime")) ); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime_50_alias" "," "GOMP_parallel_loop_nonmonotonic_runtime" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" "," "GOMP_parallel_loop_nonmonotonic_runtime" "@@" "VERSION" "\n\t") | |||
| 2676 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime) __kmp_api_GOMP_parallel_loop_nonmonotonic_runtime_50_alias __attribute__ ((alias("__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime")) ); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime_50_alias" "," "GOMP_parallel_loop_nonmonotonic_runtime" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_nonmonotonic_runtime" "," "GOMP_parallel_loop_nonmonotonic_runtime" "@@" "VERSION" "\n\t"); | |||
| 2677 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_MAYBE_NONMONOTONIC_RUNTIME,__typeof__(__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime ) __kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime_50_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime_50_alias" "," "GOMP_parallel_loop_maybe_nonmonotonic_runtime" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" "," "GOMP_parallel_loop_maybe_nonmonotonic_runtime" "@@" "VERSION" "\n\t") | |||
| 2678 | 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime ) __kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime_50_alias __attribute__((alias("__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" ))); __asm__( ".symver " "__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime_50_alias" "," "GOMP_parallel_loop_maybe_nonmonotonic_runtime" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_parallel_loop_maybe_nonmonotonic_runtime" "," "GOMP_parallel_loop_maybe_nonmonotonic_runtime" "@@" "VERSION" "\n\t"); | |||
| 2679 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TEAMS_REG, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_teams_reg) __kmp_api_GOMP_teams_reg_50_alias __attribute__((alias("__kmp_api_GOMP_teams_reg"))); __asm__( ".symver " "__kmp_api_GOMP_teams_reg_50_alias" "," "GOMP_teams_reg" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_teams_reg" "," "GOMP_teams_reg" "@@" "VERSION" "\n\t"); | |||
| 2680 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKWAIT_DEPEND, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_taskwait_depend) __kmp_api_GOMP_taskwait_depend_50_alias __attribute__((alias("__kmp_api_GOMP_taskwait_depend"))); __asm__ ( ".symver " "__kmp_api_GOMP_taskwait_depend_50_alias" "," "GOMP_taskwait_depend" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_taskwait_depend" "," "GOMP_taskwait_depend" "@@" "VERSION" "\n\t"); | |||
| 2681 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_REDUCTION_REGISTER, 50,__typeof__(__kmp_api_GOMP_taskgroup_reduction_register) __kmp_api_GOMP_taskgroup_reduction_register_50_alias __attribute__((alias("__kmp_api_GOMP_taskgroup_reduction_register" ))); __asm__( ".symver " "__kmp_api_GOMP_taskgroup_reduction_register_50_alias" "," "GOMP_taskgroup_reduction_register" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_taskgroup_reduction_register" "," "GOMP_taskgroup_reduction_register" "@@" "VERSION" "\n\t" ) | |||
| 2682 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_taskgroup_reduction_register) __kmp_api_GOMP_taskgroup_reduction_register_50_alias __attribute__((alias("__kmp_api_GOMP_taskgroup_reduction_register" ))); __asm__( ".symver " "__kmp_api_GOMP_taskgroup_reduction_register_50_alias" "," "GOMP_taskgroup_reduction_register" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_taskgroup_reduction_register" "," "GOMP_taskgroup_reduction_register" "@@" "VERSION" "\n\t" ); | |||
| 2683 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_REDUCTION_UNREGISTER, 50,__typeof__(__kmp_api_GOMP_taskgroup_reduction_unregister) __kmp_api_GOMP_taskgroup_reduction_unregister_50_alias __attribute__((alias("__kmp_api_GOMP_taskgroup_reduction_unregister" ))); __asm__( ".symver " "__kmp_api_GOMP_taskgroup_reduction_unregister_50_alias" "," "GOMP_taskgroup_reduction_unregister" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_taskgroup_reduction_unregister" "," "GOMP_taskgroup_reduction_unregister" "@@" "VERSION" "\n\t" ) | |||
| 2684 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_taskgroup_reduction_unregister) __kmp_api_GOMP_taskgroup_reduction_unregister_50_alias __attribute__((alias("__kmp_api_GOMP_taskgroup_reduction_unregister" ))); __asm__( ".symver " "__kmp_api_GOMP_taskgroup_reduction_unregister_50_alias" "," "GOMP_taskgroup_reduction_unregister" "@" "GOMP_5.0" "\n\t" ); __asm__(".symver " "__kmp_api_GOMP_taskgroup_reduction_unregister" "," "GOMP_taskgroup_reduction_unregister" "@@" "VERSION" "\n\t" ); | |||
| 2685 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASK_REDUCTION_REMAP, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_task_reduction_remap) __kmp_api_GOMP_task_reduction_remap_50_alias __attribute__((alias("__kmp_api_GOMP_task_reduction_remap")) ); __asm__( ".symver " "__kmp_api_GOMP_task_reduction_remap_50_alias" "," "GOMP_task_reduction_remap" "@" "GOMP_5.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_task_reduction_remap" "," "GOMP_task_reduction_remap" "@@" "VERSION" "\n\t"); | |||
| 2686 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_REDUCTIONS, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_parallel_reductions) __kmp_api_GOMP_parallel_reductions_50_alias __attribute__((alias("__kmp_api_GOMP_parallel_reductions"))) ; __asm__( ".symver " "__kmp_api_GOMP_parallel_reductions_50_alias" "," "GOMP_parallel_reductions" "@" "GOMP_5.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_parallel_reductions" "," "GOMP_parallel_reductions" "@@" "VERSION" "\n\t"); | |||
| 2687 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_START, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_start) __kmp_api_GOMP_loop_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_start_50_alias" "," "GOMP_loop_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_start" "," "GOMP_loop_start" "@@" "VERSION" "\n\t"); | |||
| 2688 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_START, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ull_start) __kmp_api_GOMP_loop_ull_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_loop_ull_start_50_alias" "," "GOMP_loop_ull_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_loop_ull_start" "," "GOMP_loop_ull_start" "@@" "VERSION" "\n\t"); | |||
| 2689 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_START, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_doacross_start) __kmp_api_GOMP_loop_doacross_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_doacross_start"))) ; __asm__( ".symver " "__kmp_api_GOMP_loop_doacross_start_50_alias" "," "GOMP_loop_doacross_start" "@" "GOMP_5.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_doacross_start" "," "GOMP_loop_doacross_start" "@@" "VERSION" "\n\t"); | |||
| 2690 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_START, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ull_doacross_start) __kmp_api_GOMP_loop_ull_doacross_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_doacross_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_doacross_start_50_alias" "," "GOMP_loop_ull_doacross_start" "@" "GOMP_5.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_doacross_start" "," "GOMP_loop_ull_doacross_start" "@@" "VERSION" "\n\t"); | |||
| 2691 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ORDERED_START, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ordered_start) __kmp_api_GOMP_loop_ordered_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ordered_start"))); __asm__( ".symver " "__kmp_api_GOMP_loop_ordered_start_50_alias" "," "GOMP_loop_ordered_start" "@" "GOMP_5.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ordered_start" "," "GOMP_loop_ordered_start" "@@" "VERSION" "\n\t"); | |||
| 2692 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_START, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_loop_ull_ordered_start) __kmp_api_GOMP_loop_ull_ordered_start_50_alias __attribute__((alias("__kmp_api_GOMP_loop_ull_ordered_start" ))); __asm__( ".symver " "__kmp_api_GOMP_loop_ull_ordered_start_50_alias" "," "GOMP_loop_ull_ordered_start" "@" "GOMP_5.0" "\n\t"); __asm__ (".symver " "__kmp_api_GOMP_loop_ull_ordered_start" "," "GOMP_loop_ull_ordered_start" "@@" "VERSION" "\n\t"); | |||
| 2693 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS2_START, 50, "GOMP_5.0")__typeof__(__kmp_api_GOMP_sections2_start) __kmp_api_GOMP_sections2_start_50_alias __attribute__((alias("__kmp_api_GOMP_sections2_start"))); __asm__ ( ".symver " "__kmp_api_GOMP_sections2_start_50_alias" "," "GOMP_sections2_start" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_sections2_start" "," "GOMP_sections2_start" "@@" "VERSION" "\n\t"); | |||
| 2694 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_WORKSHARE_TASK_REDUCTION_UNREGISTER, 50,__typeof__(__kmp_api_GOMP_workshare_task_reduction_unregister ) __kmp_api_GOMP_workshare_task_reduction_unregister_50_alias __attribute__((alias("__kmp_api_GOMP_workshare_task_reduction_unregister" ))); __asm__( ".symver " "__kmp_api_GOMP_workshare_task_reduction_unregister_50_alias" "," "GOMP_workshare_task_reduction_unregister" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_workshare_task_reduction_unregister" "," "GOMP_workshare_task_reduction_unregister" "@@" "VERSION" "\n\t") | |||
| 2695 | "GOMP_5.0")__typeof__(__kmp_api_GOMP_workshare_task_reduction_unregister ) __kmp_api_GOMP_workshare_task_reduction_unregister_50_alias __attribute__((alias("__kmp_api_GOMP_workshare_task_reduction_unregister" ))); __asm__( ".symver " "__kmp_api_GOMP_workshare_task_reduction_unregister_50_alias" "," "GOMP_workshare_task_reduction_unregister" "@" "GOMP_5.0" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_workshare_task_reduction_unregister" "," "GOMP_workshare_task_reduction_unregister" "@@" "VERSION" "\n\t"); | |||
| 2696 | ||||
| 2697 | // GOMP_5.0.1 versioned symbols | |||
| 2698 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_ALLOC, 501, "GOMP_5.0.1")__typeof__(__kmp_api_GOMP_alloc) __kmp_api_GOMP_alloc_501_alias __attribute__((alias("__kmp_api_GOMP_alloc"))); __asm__( ".symver " "__kmp_api_GOMP_alloc_501_alias" "," "GOMP_alloc" "@" "GOMP_5.0.1" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_alloc" "," "GOMP_alloc" "@@" "VERSION" "\n\t"); | |||
| 2699 | KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_FREE, 501, "GOMP_5.0.1")__typeof__(__kmp_api_GOMP_free) __kmp_api_GOMP_free_501_alias __attribute__((alias("__kmp_api_GOMP_free"))); __asm__( ".symver " "__kmp_api_GOMP_free_501_alias" "," "GOMP_free" "@" "GOMP_5.0.1" "\n\t"); __asm__(".symver " "__kmp_api_GOMP_free" "," "GOMP_free" "@@" "VERSION" "\n\t"); | |||
| 2700 | #endif // KMP_USE_VERSION_SYMBOLS | |||
| 2701 | ||||
| 2702 | #ifdef __cplusplus201703L | |||
| 2703 | } // extern "C" | |||
| 2704 | #endif // __cplusplus |