Пример #1
0
static void fork_nb_wrapper(fork_t* f) {
  if (f->arg_size)
    chpl_ftable_call(f->fid, &f->arg);
  else
    chpl_ftable_call(f->fid, NULL);
  chpl_mem_free(f, 0, 0);
}
Пример #2
0
// Same as chpl_comm_execute_on()
void chpl_comm_execute_on_fast(c_nodeid_t node, c_sublocid_t subloc,
                         chpl_fn_int_t fid,
                         chpl_comm_on_bundle_t *arg, size_t arg_size) {
  assert(node==0);

  chpl_ftable_call(fid, arg);
}
Пример #3
0
// Same as chpl_comm_fork()
void chpl_comm_fork_fast(c_nodeid_t node, c_sublocid_t subloc,
                         chpl_fn_int_t fid, void *arg, int32_t arg_size) {
  assert(node==0);

  chpl_ftable_call(fid, arg);
}