mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-06-02 02:32:27 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Fine tune OpenMP some more

Browse source
This commit is contained in:
Justine Tunney 2024-01-30 04:38:11 -08:00
parent 369aebfc48
commit 616717fa82
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
12 changed files with 45 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

18
third_party/openmp/util1.cpp vendored
View file

@ -2236,15 +2236,12 @@ int __kmp_is_address_mapped(void *addr) {
#ifdef USE_LOAD_BALANCE
#if KMP_OS_DARWIN || KMP_OS_DRAGONFLY || KMP_OS_FREEBSD || KMP_OS_NETBSD || \
KMP_OS_OPENBSD || KMP_OS_SOLARIS
// The function returns the rounded value of the system load average
// during given time interval which depends on the value of
// __kmp_load_balance_interval variable (default is 60 sec, other values
// may be 300 sec or 900 sec).
// It returns -1 in case of error.
int __kmp_get_load_balance(int max) {
static int __kmp_get_load_balance_getloadavg(int max) {
double averages[3];
int ret_avg = 0;
@ -2268,13 +2265,11 @@ int __kmp_get_load_balance(int max) {
return ret_avg;
}
#else // Linux* OS
// The function returns number of running (not sleeping) threads, or -1 in case
// of error. Error could be reported if Linux* OS kernel too old (without
// "/proc" support). Counting running threads stops if max running threads
// encountered.
int __kmp_get_load_balance(int max) {
static int __kmp_get_load_balance_linux(int max) {
static int permanent_error = 0;
static int glb_running_threads = 0; // Saved count of the running threads for
// the thread balance algorithm
@ -2495,9 +2490,16 @@ finish: // Clean up and exit.
return running_threads;
} // __kmp_get_load_balance
} // __kmp_get_load_balance_linux
int __kmp_get_load_balance(int max) {
#if KMP_OS_DARWIN || KMP_OS_DRAGONFLY || KMP_OS_FREEBSD || KMP_OS_NETBSD || \
KMP_OS_OPENBSD || KMP_OS_SOLARIS
return __kmp_get_load_balance_getloadavg(max);
#else // Linux* OS
return __kmp_get_load_balance_linux(max);
#endif // KMP_OS_DARWIN
} // __kmp_get_load_balance
#endif // USE_LOAD_BALANCE