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); }
// 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); }
// 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); }