1
1

Cleanup the MPI_Abort detection

Refs trac:4576

This commit was SVN r31561.

The following Trac tickets were found above:
  Ticket 4576 --> https://svn.open-mpi.org/trac/ompi/ticket/4576
Этот коммит содержится в:
Ralph Castain 2014-04-30 00:51:59 +00:00
родитель 3c9d877c1b
Коммит 34988ba2a2

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

@ -1975,7 +1975,9 @@ void odls_base_default_wait_local_proc(pid_t pid, int status, void* cbdata)
goto MOVEON; goto MOVEON;
} }
abortfile = opal_os_path(false, orte_process_info.top_session_dir, jobfam, job, vpidstr, NULL ); abortfile = opal_os_path(false, orte_process_info.tmpdir_base,
orte_process_info.top_session_dir,
jobfam, job, vpidstr, "aborted", NULL);
if (NULL == abortfile ) { if (NULL == abortfile ) {
ORTE_ERROR_LOG(ORTE_ERR_OUT_OF_RESOURCE); ORTE_ERROR_LOG(ORTE_ERR_OUT_OF_RESOURCE);
free(jobfam); free(jobfam);
@ -1987,7 +1989,12 @@ void odls_base_default_wait_local_proc(pid_t pid, int status, void* cbdata)
free(job); free(job);
free(vpidstr); free(vpidstr);
if (access(abortfile, F_OK)) { OPAL_OUTPUT_VERBOSE((5, orte_odls_base_framework.framework_output,
"%s odls:waitpid_fired checking abort file %s for child %s",
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), abortfile,
ORTE_NAME_PRINT(&proc->name)));
if (0 == access(abortfile, F_OK)) {
unlink(abortfile); unlink(abortfile);
proc->aborted = true; proc->aborted = true;
/* even though the process exited "normally", it happened /* even though the process exited "normally", it happened