static struct private_data *
__kmp_init_common_data( void *pc_addr, size_t pc_size )
{
struct private_data *d;
size_t i;
char *p;
d = (struct private_data *) __kmp_allocate( sizeof( struct private_data ) );
/*
d->data = 0; // AC: commented out because __kmp_allocate zeroes the memory
d->next = 0;
*/
d->size = pc_size;
d->more = 1;
p = (char*)pc_addr;
for (i = pc_size; i > 0; --i) {
if (*p++ != '\0') {
d->data = __kmp_allocate( pc_size );
KMP_MEMCPY( d->data, pc_addr, pc_size );
break;
}
}
return d;
}
static void
__kmp_copy_common_data( void *pc_addr, struct private_data *d )
{
char *addr = (char *) pc_addr;
int i, offset;
for (offset = 0; d != 0; d = d->next) {
for (i = d->more; i > 0; --i) {
if (d->data == 0)
memset( & addr[ offset ], '\0', d->size );
else
KMP_MEMCPY( & addr[ offset ], d->data, d->size );
offset += d->size;
}
}
}
void
__kmp_global_initialize(void)
{
int i;
int status;
/* Initialize Argobots before other initializations. */
status = ABT_init(0, NULL);
KMP_CHECK_SYSFAIL( "ABT_init", status );
__kmp_global.g = { 0 };
/* --------------------------------------------------------------------------- */
/* map OMP 3.0 schedule types with our internal schedule types */
static sched_type sch_map[ kmp_sched_upper - kmp_sched_lower_ext + kmp_sched_upper_std - kmp_sched_lower - 2 ] = {
kmp_sch_static_chunked, // ==> kmp_sched_static = 1
kmp_sch_dynamic_chunked, // ==> kmp_sched_dynamic = 2
kmp_sch_guided_chunked, // ==> kmp_sched_guided = 3
kmp_sch_auto, // ==> kmp_sched_auto = 4
kmp_sch_trapezoidal // ==> kmp_sched_trapezoidal = 101
// will likely not used, introduced here just to debug the code
// of public intel extension schedules
};
KMP_MEMCPY(__kmp_global.sch_map, sch_map, sizeof(sch_map));
#if OMP_40_ENABLED
__kmp_global.nested_proc_bind = { NULL, 0, 0 };
__kmp_global.affinity_num_places = 0;
#endif
__kmp_global.place_num_sockets = 0;
__kmp_global.place_socket_offset = 0;
__kmp_global.place_num_cores = 0;
__kmp_global.place_core_offset = 0;
__kmp_global.place_num_threads_per_core = 0;
__kmp_global.tasking_mode = tskm_task_teams;
__kmp_global.task_stealing_constraint = 1; /* Constrain task stealing by default */
#if OMP_41_ENABLED
__kmp_global.max_task_priority = 0;
#endif
__kmp_global.settings = FALSE;
__kmp_global.duplicate_library_ok = 0;
__kmp_global.force_reduction_method = reduction_method_not_defined;
__kmp_global.determ_red = FALSE;
__kmp_global.cpuinfo = { 0 };
/* ------------------------------------------------------------------------ */
__kmp_global.init_serial = FALSE;
__kmp_global.init_gtid = FALSE;
__kmp_global.init_common = FALSE;
__kmp_global.init_middle = FALSE;
__kmp_global.init_parallel = FALSE;
__kmp_global.init_runtime = FALSE;
__kmp_global.init_counter = 0;
__kmp_global.root_counter = 0;
__kmp_global.version = 0;
/* list of address of allocated caches for commons */
__kmp_global.threadpriv_cache_list = NULL;
/* Global Locks */
ABT_mutex_create(&__kmp_global.stdio_lock);
ABT_mutex_create(&__kmp_global.cat_lock);
ABT_mutex_create(&__kmp_global.initz_lock);
ABT_mutex_create(&__kmp_global.task_team_lock);
for (i = 0; i < KMP_NUM_CRIT_LOCKS; i++) {
ABT_mutex_create(&__kmp_global.crit_lock[i]);
}
__kmp_global.library = library_none;
__kmp_global.sched = kmp_sch_default; /* scheduling method for runtime scheduling */
__kmp_global.sched_static = kmp_sch_static_greedy; /* default static scheduling method */
__kmp_global.sched_guided = kmp_sch_guided_iterative_chunked; /* default guided scheduling method */
__kmp_global.sched_auto = kmp_sch_guided_analytical_chunked; /* default auto scheduling method */
__kmp_global.chunk = 0;
__kmp_global.stksize = KMP_DEFAULT_STKSIZE;
__kmp_global.stkoffset = KMP_DEFAULT_STKOFFSET;
__kmp_global.stkpadding = KMP_MIN_STKPADDING;
__kmp_global.malloc_pool_incr = KMP_DEFAULT_MALLOC_POOL_INCR;
__kmp_global.env_chunk = FALSE; /* KMP_CHUNK specified? */
__kmp_global.env_stksize = FALSE; /* KMP_STACKSIZE specified? */
__kmp_global.env_omp_stksize = FALSE; /* OMP_STACKSIZE specified? */
__kmp_global.env_all_threads = FALSE;/* KMP_ALL_THREADS or KMP_MAX_THREADS specified? */
__kmp_global.env_omp_all_threads = FALSE;/* OMP_THREAD_LIMIT specified? */
__kmp_global.env_checks = FALSE; /* KMP_CHECKS specified? */
__kmp_global.env_consistency_check = FALSE; /* KMP_CONSISTENCY_CHECK specified? */
__kmp_global.generate_warnings = kmp_warnings_low;
__kmp_global.reserve_warn = 0;
#ifdef DEBUG_SUSPEND
__kmp_global.suspend_count = 0;
#endif
/* ------------------------------------------------------------------------- */
__kmp_global.allThreadsSpecified = 0;
__kmp_global.align_alloc = CACHE_LINE;
__kmp_global.xproc = 0;
__kmp_global.avail_proc = 0;
__kmp_global.sys_min_stksize = KMP_MIN_STKSIZE;
__kmp_global.sys_max_nth = KMP_MAX_NTH;
__kmp_global.max_nth = 0;
__kmp_global.threads_capacity = 0;
__kmp_global.dflt_team_nth = 0;
__kmp_global.dflt_team_nth_ub = 0;
__kmp_global.tp_capacity = 0;
__kmp_global.tp_cached = 0;
__kmp_global.dflt_nested = TRUE;
__kmp_global.dflt_max_active_levels = KMP_MAX_ACTIVE_LEVELS_LIMIT; /* max_active_levels limit */
#ifdef KMP_DFLT_NTH_CORES
__kmp_global.ncores = 0;
#endif
__kmp_global.abort_delay = 0;
/* Initialize the library data structures when we fork a child process, defaults to TRUE */
__kmp_global.need_register_atfork = TRUE; /* At initialization, call pthread_atfork to install fork handler */
__kmp_global.need_register_atfork_specified = TRUE;
__kmp_global.tls_gtid_min = INT_MAX;
__kmp_global.foreign_tp = TRUE;
#if KMP_ARCH_X86 || KMP_ARCH_X86_64
__kmp_global.inherit_fp_control = TRUE;
__kmp_global.init_x87_fpu_control_word = 0;
__kmp_global.init_mxcsr = 0;
#endif /* KMP_ARCH_X86 || KMP_ARCH_X86_64 */
#if KMP_NESTED_HOT_TEAMS
__kmp_global.hot_teams_mode = 0; /* 0 - free extra threads when reduced */
/* 1 - keep extra threads when reduced */
__kmp_global.hot_teams_max_level = 1; /* nesting level of hot teams */
#endif
#if KMP_ARCH_X86_64 && (KMP_OS_LINUX || KMP_OS_WINDOWS)
__kmp_global.mic_type = non_mic;
#endif
#ifdef USE_LOAD_BALANCE
__kmp_global.load_balance_interval = 1.0;
#endif /* USE_LOAD_BALANCE */
__kmp_global.nested_nth = { NULL, 0, 0 };
#if OMP_40_ENABLED
__kmp_global.display_env = FALSE;
__kmp_global.display_env_verbose = FALSE;
__kmp_global.omp_cancellation = FALSE;
#endif
/* ------------------------------------------------------ */
/* STATE mostly syncronized with global lock */
/* data written to rarely by masters, read often by workers */
__kmp_global.threads = NULL;
__kmp_global.team_pool = NULL;
__kmp_global.thread_pool = NULL;
/* data read/written to often by masters */
__kmp_global.nth = 0;
__kmp_global.all_nth = 0;
__kmp_global.thread_pool_nth = 0;
__kmp_global.thread_pool_active_nth = 0;
__kmp_global.root = NULL;
/* ------------------------------------------------------ */
__kmp_init_global = TRUE;
}