diff options
Diffstat (limited to 'openmp/runtime/src/kmp_ftn_entry.h')
-rw-r--r-- | openmp/runtime/src/kmp_ftn_entry.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/openmp/runtime/src/kmp_ftn_entry.h b/openmp/runtime/src/kmp_ftn_entry.h index b8cf2f9c40d..690ac354858 100644 --- a/openmp/runtime/src/kmp_ftn_entry.h +++ b/openmp/runtime/src/kmp_ftn_entry.h @@ -734,11 +734,15 @@ int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_THREAD_LIMIT)(void) { #ifdef KMP_STUB return 1; // TO DO: clarify whether it returns 1 or 0? #else + int gtid; + kmp_info_t *thread; if (!__kmp_init_serial) { __kmp_serial_initialize(); } - /* global ICV */ - return __kmp_cg_max_nth; + + gtid = __kmp_entry_gtid(); + thread = __kmp_threads[gtid]; + return thread->th.th_current_task->td_icvs.thread_limit; #endif } |