From 3413191e520b1cc19c7d0674ed1363d9100ac754 Mon Sep 17 00:00:00 2001 From: Ralph Castain Date: Wed, 16 Apr 2008 14:38:10 +0000 Subject: [PATCH] Fix singleton and singleton comm_spawn This commit was SVN r18177. --- orte/mca/odls/base/odls_base_default_fns.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/orte/mca/odls/base/odls_base_default_fns.c b/orte/mca/odls/base/odls_base_default_fns.c index 06f4f378a9..071d2d5d55 100644 --- a/orte/mca/odls/base/odls_base_default_fns.c +++ b/orte/mca/odls/base/odls_base_default_fns.c @@ -1399,6 +1399,7 @@ int orte_odls_base_default_require_sync(orte_process_name_t *proc, opal_buffer_t orte_std_cntr_t cnt; int rc; bool found=false; + orte_odls_job_t *jobdat; /* protect operations involving the global list of children */ OPAL_THREAD_LOCK(&orte_odls_globals.mutex); @@ -1435,6 +1436,12 @@ int orte_odls_base_default_require_sync(orte_process_name_t *proc, opal_buffer_t * alive */ child->alive = true; + /* setup jobdat object for its job so daemon collectives work */ + jobdat = OBJ_NEW(orte_odls_job_t); + jobdat->jobid = proc->jobid; + jobdat->dp = ORTE_RMAPS_ALL_DAEMONS; + opal_list_append(&orte_odls_globals.jobs, &jobdat->super); + } /* if the contact info is already set, then we are "de-registering" the child