Okay, now handle the non-MPI apps
This commit was SVN r32399.
Этот коммит содержится в:
родитель
daeb9b6c4f
Коммит
d29a5ab69d
@ -37,9 +37,10 @@
|
||||
|
||||
#include "opal/mca/event/event.h"
|
||||
#include "opal/mca/dstore/base/base.h"
|
||||
#include "orte/util/show_help.h"
|
||||
#include "opal/util/arch.h"
|
||||
#include "opal/util/os_path.h"
|
||||
#include "opal/util/output.h"
|
||||
#include "opal/util/proc.h"
|
||||
#include "opal/runtime/opal.h"
|
||||
#include "opal/runtime/opal_cr.h"
|
||||
|
||||
@ -99,6 +100,17 @@ int orte_ess_base_app_setup(bool db_restrict_local)
|
||||
}
|
||||
}
|
||||
|
||||
/* if I am an MPI app, we will let the MPI layer define and
|
||||
* control the opal_proc_t structure. Otherwise, we need to
|
||||
* do so here */
|
||||
if (ORTE_PROC_NON_MPI) {
|
||||
orte_process_info.super.proc_name = *(opal_process_name_t*)ORTE_PROC_MY_NAME;
|
||||
orte_process_info.super.proc_hostname = strdup(orte_process_info.nodename);
|
||||
orte_process_info.super.proc_flags = OPAL_PROC_ALL_LOCAL;
|
||||
orte_process_info.super.proc_arch = opal_local_arch;
|
||||
opal_proc_local_set(&orte_process_info.super);
|
||||
}
|
||||
|
||||
/* get a separate orte event base */
|
||||
orte_event_base = opal_event_base_create();
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user