void chpl_task_addToTaskList(chpl_fn_int_t fid,
void *arg,
c_sublocid_t subLoc,
chpl_task_list_p *task_list,
int32_t task_list_locale,
chpl_bool is_begin_stmt,
int lineno,
chpl_string filename)
{
qthread_shepherd_id_t const here_shep_id = qthread_shep();
chpl_task_private_data_t *parent_chpl_data = chpl_task_getPrivateData();
chpl_bool serial_state = parent_chpl_data->serial_state;
chapel_wrapper_args_t wrapper_args =
{chpl_ftable[fid], arg, filename, lineno, *parent_chpl_data};
PROFILE_INCR(profile_task_addToTaskList,1);
if (serial_state) {
syncvar_t ret = SYNCVAR_STATIC_EMPTY_INITIALIZER;
qthread_fork_syncvar_copyargs_to(chapel_wrapper, &wrapper_args,
sizeof(chapel_wrapper_args_t), &ret,
here_shep_id);
qthread_syncvar_readFF(NULL, &ret);
} else if (subLoc == c_sublocid_any) {
qthread_fork_syncvar_copyargs(chapel_wrapper, &wrapper_args,
sizeof(chapel_wrapper_args_t), NULL);
} else {
if (subLoc == c_sublocid_curr)
subLoc = (c_sublocid_t) here_shep_id;
qthread_fork_syncvar_copyargs_to(chapel_wrapper, &wrapper_args,
sizeof(chapel_wrapper_args_t), NULL,
(qthread_shepherd_id_t) subLoc);
}
}
void chpl_task_addToTaskList(chpl_fn_int_t fid,
void *arg,
c_sublocid_t subloc,
chpl_task_list_p *task_list,
int32_t task_list_locale,
chpl_bool is_begin_stmt,
int lineno,
chpl_string filename)
{
qthread_shepherd_id_t const here_shep_id = qthread_shep();
chpl_bool serial_state = chpl_task_getSerial();
chpl_qthread_wrapper_args_t wrapper_args =
{chpl_ftable[fid], arg, filename, lineno, false,
{subloc, serial_state}};
assert(subloc != c_sublocid_none);
PROFILE_INCR(profile_task_addToTaskList,1);
if (serial_state) {
syncvar_t ret = SYNCVAR_STATIC_EMPTY_INITIALIZER;
qthread_fork_syncvar_copyargs_to(chapel_wrapper, &wrapper_args,
sizeof(chpl_qthread_wrapper_args_t), &ret,
here_shep_id);
qthread_syncvar_readFF(NULL, &ret);
} else if (subloc == c_sublocid_any) {
qthread_fork_copyargs(chapel_wrapper, &wrapper_args,
sizeof(chpl_qthread_wrapper_args_t), NULL);
} else {
qthread_fork_copyargs_to(chapel_wrapper, &wrapper_args,
sizeof(chpl_qthread_wrapper_args_t), NULL,
(qthread_shepherd_id_t) subloc);
}
}
void chpl_task_startMovedTask(chpl_fn_p fp,
void *arg,
c_sublocid_t subLoc,
chpl_taskID_t id,
chpl_bool serial_state)
{
assert(subLoc != c_sublocid_curr);
assert(id == chpl_nullTaskID);
chapel_wrapper_args_t wrapper_args =
{fp, arg, NULL, 0, *chpl_task_getPrivateData()};
wrapper_args.chpl_data.serial_state = serial_state;
PROFILE_INCR(profile_task_startMovedTask,1);
#if 1
// We are timing out when the subLoc is passed as 0 (zero). Can
// we not time share tasks on a single shepherd? Perhaps we can
// only time share as many tasks on a shepherd as that shepherd
// has workers? For now, force the subLoc to be "any".
subLoc = c_sublocid_any;
#endif
if (subLoc == c_sublocid_any) {
qthread_fork_syncvar_copyargs(chapel_wrapper, &wrapper_args,
sizeof(chapel_wrapper_args_t), NULL);
} else {
qthread_fork_syncvar_copyargs_to(chapel_wrapper, &wrapper_args,
sizeof(chapel_wrapper_args_t), NULL,
(qthread_shepherd_id_t) subLoc);
}
}
