1
1
This fixes commit open-mpi/ompi@e2c343cdfc.
Этот коммит содержится в:
Gilles Gouaillardet 2016-09-08 09:59:35 +09:00
родитель 63d73a5dd0
Коммит b2a2be0e5a

Просмотреть файл

@ -15,7 +15,7 @@
* All rights reserved.
* Copyright (c) 2011-2013 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2013-2016 Intel, Inc. All rights reserved.
* Copyright (c) 2014-2016 Research Organization for Information Science
* Copyright (c) 2014 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* $COPYRIGHT$
*
@ -642,6 +642,7 @@ void orte_odls_base_default_launch_local(int fd, short sd, void *cbdata)
int rc=ORTE_SUCCESS;
orte_std_cntr_t proc_rank;
char basedir[MAXPATHLEN];
char **argvsav=NULL;
int inm, j, idx;
int total_num_local_procs = 0;
orte_odls_launch_local_t *caddy = (orte_odls_launch_local_t*)cbdata;
@ -815,7 +816,6 @@ void orte_odls_base_default_launch_local(int fd, short sd, void *cbdata)
/* okay, now let's launch all the local procs for this app using the provided fork_local fn */
for (proc_rank = 0, idx=0; idx < orte_local_children->size; idx++) {
char **argvsav=NULL;
if (NULL == (child = (orte_proc_t*)opal_pointer_array_get_item(orte_local_children, idx))) {
continue;
}
@ -913,6 +913,9 @@ void orte_odls_base_default_launch_local(int fd, short sd, void *cbdata)
}
/* don't have enough - wait a little time */
ORTE_DETECT_TIMEOUT(1000, 1000, -1, timer_cb, caddy);
if (NULL != argvsav) {
opal_argv_free(argvsav);
}
return;
}
}
@ -1100,6 +1103,9 @@ void orte_odls_base_default_launch_local(int fd, short sd, void *cbdata)
*/
chdir(basedir);
}
if (NULL != argvsav) {
opal_argv_free(argvsav);
}
GETOUT:
/* tell the state machine that all local procs for this job