c56acf60ca
Turns out, this isn't necessarily true. The Cray, for example, launches processes in a toroidal pattern, thus causing the daemons to wind up somewhere other than what we thought. Other environments (e.g., slurm) are also capable of such behavior, depending upon the default mapping algorithm they are told to use. Resolve this problem by making the daemon-to-node assignment in the affected environments when the daemon calls back and tells us what node it is on. Order the nodes in the mapping list so they are in daemon-vpid order as opposed to the order in which they show in the allocation. For environments that don't exhibit this mapping behavior (e.g., rsh), this won't have any impact. Also, clean up the vm launch procedure a little bit so it more closely aligns with the state machine implementation that is coming, and remove some lingering "slave" code. This commit was SVN r25551.
423 строки
19 KiB
C
423 строки
19 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2011 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* Copyright (c) 2006-2011 Cisco Systems, Inc. All rights reserved.
|
|
* Copyright (c) 2011 Los Alamos National Security, LLC. All rights
|
|
* reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "orte_config.h"
|
|
#include "orte/constants.h"
|
|
|
|
#ifdef HAVE_STRING_H
|
|
#include <string.h>
|
|
#endif
|
|
|
|
#if !ORTE_DISABLE_FULL_SUPPORT
|
|
|
|
#include "opal/mca/mca.h"
|
|
#include "opal/util/output.h"
|
|
#include "opal/mca/base/base.h"
|
|
#include "opal/mca/base/mca_base_param.h"
|
|
|
|
#include "orte/runtime/orte_globals.h"
|
|
#include "orte/util/show_help.h"
|
|
|
|
#include "orte/mca/rmaps/base/rmaps_private.h"
|
|
|
|
#endif
|
|
|
|
#include "orte/mca/rmaps/base/base.h"
|
|
|
|
|
|
/*
|
|
* The following file was created by configure. It contains extern
|
|
* statements and the definition of an array of pointers to each
|
|
* component's public mca_base_component_t struct.
|
|
*/
|
|
|
|
#include "orte/mca/rmaps/base/static-components.h"
|
|
|
|
#if ORTE_DISABLE_FULL_SUPPORT
|
|
/* have to include a bogus function here so that
|
|
* the build system sees at least one function
|
|
* in the library
|
|
*/
|
|
int orte_rmaps_base_open(void)
|
|
{
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
#else
|
|
|
|
/*
|
|
* Global variables
|
|
*/
|
|
orte_rmaps_base_t orte_rmaps_base;
|
|
|
|
/*
|
|
* Declare the RMAPS module to hold the API function pointers
|
|
*/
|
|
orte_rmaps_t orte_rmaps = {
|
|
orte_rmaps_base_map_job,
|
|
};
|
|
|
|
|
|
/**
|
|
* Function for finding and opening either all MCA components, or the one
|
|
* that was specifically requested via a MCA parameter.
|
|
*/
|
|
int orte_rmaps_base_open(void)
|
|
{
|
|
int param, value, i;
|
|
char *policy;
|
|
bool btmp;
|
|
orte_mapping_policy_t tmp=0;
|
|
orte_ranking_policy_t rtmp=0;
|
|
char **ck, **ck2;
|
|
size_t len;
|
|
|
|
/* init the globals */
|
|
OBJ_CONSTRUCT(&orte_rmaps_base.selected_modules, opal_list_t);
|
|
orte_rmaps_base.ppr = NULL;
|
|
orte_rmaps_base.cpus_per_rank = 1;
|
|
orte_rmaps_base.display_map = false;
|
|
orte_rmaps_base.slot_list = NULL;
|
|
orte_rmaps_base.mapping = 0;
|
|
orte_rmaps_base.ranking = 0;
|
|
|
|
/* Debugging / verbose output. Always have stream open, with
|
|
verbose set by the mca open system... */
|
|
orte_rmaps_base.rmaps_output = opal_output_open(NULL);
|
|
|
|
/* define default mapping policy */
|
|
param = mca_base_param_reg_string_name("rmaps", "base_mapping_policy",
|
|
#if OPAL_HAVE_HWLOC
|
|
"Mapping Policy [slot (default) | hwthread | core | l1cache | l2cache | l3cache | socket | numa | board | node | seq], with allowed modifiers :SPAN,OVERSUBSCRIBE,NOOVERSUBSCRIBE",
|
|
#else
|
|
"Mapping Policy [slot (default) | node], with allowed modifiers :SPAN,OVERSUBSCRIBE,NOOVERSUBSCRIBE",
|
|
#endif
|
|
false, false, NULL, &policy);
|
|
mca_base_param_reg_syn_name(param, "rmaps", "base_schedule_policy", true);
|
|
|
|
if (NULL == policy) {
|
|
ORTE_SET_MAPPING_POLICY(orte_rmaps_base.mapping, ORTE_MAPPING_BYSLOT);
|
|
ORTE_UNSET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_GIVEN);
|
|
} else {
|
|
ck = opal_argv_split(policy, ':');
|
|
if (2 < opal_argv_count(ck)) {
|
|
/* incorrect format */
|
|
orte_show_help("help-orte-rmaps-base.txt", "unrecognized-policy", true, "mapping", policy);
|
|
opal_argv_free(ck);
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
if (2 == opal_argv_count(ck)) {
|
|
ck2 = opal_argv_split(ck[1], ',');
|
|
for (i=0; NULL != ck2[i]; i++) {
|
|
if (0 == strncasecmp(ck2[i], "span", strlen(ck2[i]))) {
|
|
orte_rmaps_base.mapping |= ORTE_MAPPING_SPAN;
|
|
} else if (0 == strncasecmp(ck2[i], "oversubscribe", strlen(ck2[i]))) {
|
|
if (ORTE_MAPPING_SUBSCRIBE_GIVEN & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping)) {
|
|
/* error - cannot redefine the default mapping policy */
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "mapping",
|
|
"oversubscribe", orte_rmaps_base_print_mapping(orte_rmaps_base.mapping));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_UNSET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_NO_OVERSUBSCRIBE);
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_SUBSCRIBE_GIVEN);
|
|
} else if (0 == strncasecmp(ck2[i], "nooversubscribe", strlen(ck2[i]))) {
|
|
if (ORTE_MAPPING_SUBSCRIBE_GIVEN & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping)) {
|
|
/* error - cannot redefine the default mapping policy */
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "mapping",
|
|
"nooversubscribe", orte_rmaps_base_print_mapping(orte_rmaps_base.mapping));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_NO_OVERSUBSCRIBE);
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_SUBSCRIBE_GIVEN);
|
|
} else {
|
|
/* unrecognized modifier */
|
|
orte_show_help("help-orte-rmaps-base.txt", "unrecognized-modifier", true, "mapping", ck2[i]);
|
|
opal_argv_free(ck);
|
|
opal_argv_free(ck2);
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
}
|
|
opal_argv_free(ck2);
|
|
}
|
|
len = strlen(ck[0]);
|
|
if (0 == strncasecmp(ck[0], "slot", len)) {
|
|
tmp = ORTE_MAPPING_BYSLOT;
|
|
} else if (0 == strncasecmp(ck[0], "node", len)) {
|
|
tmp = ORTE_MAPPING_BYNODE;
|
|
#if OPAL_HAVE_HWLOC
|
|
} else if (0 == strncasecmp(ck[0], "core", len)) {
|
|
tmp = ORTE_MAPPING_BYCORE;
|
|
} else if (0 == strncasecmp(ck[0], "l1cache", len)) {
|
|
tmp = ORTE_MAPPING_BYL1CACHE;
|
|
} else if (0 == strncasecmp(ck[0], "l2cache", len)) {
|
|
tmp = ORTE_MAPPING_BYL2CACHE;
|
|
} else if (0 == strncasecmp(ck[0], "l3cache", len)) {
|
|
tmp = ORTE_MAPPING_BYL3CACHE;
|
|
} else if (0 == strncasecmp(ck[0], "socket", len)) {
|
|
tmp = ORTE_MAPPING_BYSOCKET;
|
|
} else if (0 == strncasecmp(ck[0], "numa", len)) {
|
|
tmp = ORTE_MAPPING_BYNUMA;
|
|
} else if (0 == strncasecmp(ck[0], "board", len)) {
|
|
tmp = ORTE_MAPPING_BYBOARD;
|
|
} else if (0 == strncasecmp(ck[0], "hwthread", len)) {
|
|
tmp = ORTE_MAPPING_BYHWTHREAD;
|
|
/* if we are mapping processes to individual hwthreads, then
|
|
* we need to treat those hwthreads as separate cpus
|
|
*/
|
|
opal_hwloc_use_hwthreads_as_cpus = true;
|
|
#endif
|
|
} else {
|
|
orte_show_help("help-orte-rmaps-base.txt", "unrecognized-policy", true, "mapping", policy);
|
|
opal_argv_free(ck);
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_MAPPING_POLICY(orte_rmaps_base.mapping, tmp);
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_GIVEN);
|
|
opal_argv_free(ck);
|
|
}
|
|
|
|
/* define default ranking policy */
|
|
param = mca_base_param_reg_string_name("rmaps", "base_ranking_policy",
|
|
#if OPAL_HAVE_HWLOC
|
|
"Ranking Policy [slot (default) | hwthread | core | l1cache | l2cache | l3cache | socket | numa | board | node], with modifier :SPAN or :FILL",
|
|
#else
|
|
"Ranking Policy [slot (default) | node]",
|
|
#endif
|
|
false, false, NULL, &policy);
|
|
if (NULL == policy) {
|
|
ORTE_SET_RANKING_POLICY(orte_rmaps_base.ranking, ORTE_RANK_BY_SLOT);
|
|
} else {
|
|
ck = opal_argv_split(policy, ':');
|
|
if (2 < opal_argv_count(ck)) {
|
|
/* incorrect format */
|
|
orte_show_help("help-orte-rmaps-base.txt", "unrecognized-policy", true, "ranking", policy);
|
|
opal_argv_free(ck);
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
if (2 == opal_argv_count(ck)) {
|
|
if (0 == strncasecmp(ck[1], "span", strlen(ck[1]))) {
|
|
orte_rmaps_base.ranking |= ORTE_RANKING_SPAN;
|
|
} else if (0 == strncasecmp(ck[1], "fill", strlen(ck[1]))) {
|
|
orte_rmaps_base.ranking |= ORTE_RANKING_FILL;
|
|
} else {
|
|
/* unrecognized modifier */
|
|
orte_show_help("help-orte-rmaps-base.txt", "unrecognized-modifier", true, "ranking", ck[1]);
|
|
opal_argv_free(ck);
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
}
|
|
len = strlen(ck[0]);
|
|
if (0 == strncasecmp(ck[0], "slot", len)) {
|
|
rtmp = ORTE_RANK_BY_SLOT;
|
|
} else if (0 == strncasecmp(ck[0], "node", len)) {
|
|
rtmp = ORTE_RANK_BY_NODE;
|
|
#if OPAL_HAVE_HWLOC
|
|
} else if (0 == strncasecmp(ck[0], "hwthread", len)) {
|
|
rtmp = ORTE_RANK_BY_HWTHREAD;
|
|
} else if (0 == strncasecmp(ck[0], "core", len)) {
|
|
rtmp = ORTE_RANK_BY_CORE;
|
|
} else if (0 == strncasecmp(ck[0], "l1cache", len)) {
|
|
rtmp = ORTE_RANK_BY_L1CACHE;
|
|
} else if (0 == strncasecmp(ck[0], "l2cache", len)) {
|
|
rtmp = ORTE_RANK_BY_L2CACHE;
|
|
} else if (0 == strncasecmp(ck[0], "l3cache", len)) {
|
|
rtmp = ORTE_RANK_BY_L3CACHE;
|
|
} else if (0 == strncasecmp(ck[0], "socket", len)) {
|
|
rtmp = ORTE_RANK_BY_SOCKET;
|
|
} else if (0 == strncasecmp(ck[0], "numa", len)) {
|
|
rtmp = ORTE_RANK_BY_NUMA;
|
|
} else if (0 == strncasecmp(ck[0], "board", len)) {
|
|
rtmp = ORTE_RANK_BY_BOARD;
|
|
#endif
|
|
} else {
|
|
orte_show_help("help-orte-rmaps-base.txt", "unrecognized-policy", true, "ranking", policy);
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_RANKING_POLICY(orte_rmaps_base.ranking, rtmp);
|
|
ORTE_SET_RANKING_DIRECTIVE(orte_rmaps_base.ranking, ORTE_RANKING_GIVEN);
|
|
}
|
|
|
|
/* backward compatibility */
|
|
mca_base_param_reg_int_name("rmaps", "base_byslot",
|
|
"Whether to map and rank processes round-robin by slot",
|
|
false, false, (int)false, &value);
|
|
if (value) {
|
|
/* set mapping policy to byslot - error if something else already set */
|
|
if ((ORTE_MAPPING_GIVEN & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping)) &&
|
|
ORTE_GET_MAPPING_POLICY(orte_rmaps_base.mapping) != ORTE_MAPPING_BYSLOT) {
|
|
/* error - cannot redefine the default mapping policy */
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "mapping",
|
|
"byslot", orte_rmaps_base_print_mapping(orte_rmaps_base.mapping));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_MAPPING_POLICY(orte_rmaps_base.mapping, ORTE_MAPPING_BYSLOT);
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_GIVEN);
|
|
/* set ranking policy to byslot - error if something else already set */
|
|
if ((ORTE_RANKING_GIVEN & ORTE_GET_RANKING_DIRECTIVE(orte_rmaps_base.ranking)) &&
|
|
ORTE_GET_RANKING_POLICY(orte_rmaps_base.ranking) != ORTE_RANK_BY_SLOT) {
|
|
/* error - cannot redefine the default ranking policy */
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "ranking",
|
|
"byslot", orte_rmaps_base_print_ranking(orte_rmaps_base.ranking));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_RANKING_POLICY(orte_rmaps_base.ranking, ORTE_RANK_BY_SLOT);
|
|
ORTE_SET_RANKING_DIRECTIVE(orte_rmaps_base.ranking, ORTE_RANKING_GIVEN);
|
|
}
|
|
mca_base_param_reg_int_name("rmaps", "base_bynode",
|
|
"Whether to map and rank processes round-robin by node",
|
|
false, false, (int)false, &value);
|
|
if (value) {
|
|
/* set mapping policy to bynode - error if something else already set */
|
|
if ((ORTE_MAPPING_GIVEN & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping)) &&
|
|
ORTE_GET_MAPPING_POLICY(orte_rmaps_base.mapping) != ORTE_MAPPING_BYNODE) {
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "mapping",
|
|
"bynode", orte_rmaps_base_print_mapping(orte_rmaps_base.mapping));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_MAPPING_POLICY(orte_rmaps_base.mapping, ORTE_MAPPING_BYNODE);
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_GIVEN);
|
|
/* set ranking policy to bynode - error if something else already set */
|
|
if ((ORTE_RANKING_GIVEN & ORTE_GET_RANKING_DIRECTIVE(orte_rmaps_base.ranking)) &&
|
|
ORTE_GET_RANKING_POLICY(orte_rmaps_base.ranking) != ORTE_RANK_BY_NODE) {
|
|
/* error - cannot redefine the default ranking policy */
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "ranking",
|
|
"bynode", orte_rmaps_base_print_ranking(orte_rmaps_base.ranking));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_RANKING_POLICY(orte_rmaps_base.ranking, ORTE_RANK_BY_NODE);
|
|
ORTE_SET_RANKING_DIRECTIVE(orte_rmaps_base.ranking, ORTE_RANKING_GIVEN);
|
|
}
|
|
|
|
#if 0
|
|
/* #cpus/rank to use */
|
|
param = mca_base_param_reg_int_name("rmaps", "base_cpus_per_proc",
|
|
"Number of cpus to use for each rank [1-2**15 (default=1)]",
|
|
false, false, 1, NULL);
|
|
mca_base_param_reg_syn_name(param, "rmaps", "base_cpus_per_rank", false);
|
|
mca_base_param_lookup_int(param, &value);
|
|
orte_rmaps_base.cpus_per_rank = value;
|
|
/* if the cpus/rank > 1, then we have to bind to cores UNLESS the binding has
|
|
* already been set to something else
|
|
*/
|
|
if (1 < orte_rmaps_base.cpus_per_rank &&
|
|
!OPAL_BINDING_POLICY_IS_SET(opal_hwloc_binding_policy)) {
|
|
opal_hwloc_binding_policy |= OPAL_BIND_TO_CORE;
|
|
}
|
|
#endif
|
|
|
|
/* Should we schedule on the local node or not? */
|
|
mca_base_param_reg_int_name("rmaps", "base_no_schedule_local",
|
|
"If false, allow scheduling MPI applications on the same node as mpirun (default). If true, do not schedule any MPI applications on the same node as mpirun",
|
|
false, false, (int)false, &value);
|
|
if (value) {
|
|
orte_rmaps_base.mapping |= ORTE_MAPPING_NO_USE_LOCAL;
|
|
}
|
|
|
|
/* Should we oversubscribe or not? */
|
|
/** default condition that allows oversubscription */
|
|
mca_base_param_reg_int_name("rmaps", "base_no_oversubscribe",
|
|
"If true, then do not allow oversubscription of nodes - mpirun will return an error if there aren't enough nodes to launch all processes without oversubscribing",
|
|
false, false, (int)false, &value);
|
|
if (value) {
|
|
if ((ORTE_MAPPING_SUBSCRIBE_GIVEN & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping)) &&
|
|
!(ORTE_MAPPING_NO_OVERSUBSCRIBE & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping))) {
|
|
/* error - cannot redefine the default mapping policy */
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "mapping",
|
|
"no-oversubscribe", orte_rmaps_base_print_mapping(orte_rmaps_base.mapping));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_NO_OVERSUBSCRIBE);
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_SUBSCRIBE_GIVEN);
|
|
}
|
|
|
|
/** force oversubscription permission */
|
|
mca_base_param_reg_int_name("rmaps", "base_oversubscribe",
|
|
"If true, then =allow oversubscription of nodes",
|
|
false, false, (int)false, &value);
|
|
if (value) {
|
|
if ((ORTE_MAPPING_SUBSCRIBE_GIVEN & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping)) &&
|
|
(ORTE_MAPPING_NO_OVERSUBSCRIBE & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping))) {
|
|
/* error - cannot redefine the default mapping policy */
|
|
orte_show_help("help-orte-rmaps-base.txt", "redefining-policy", true, "mapping",
|
|
"oversubscribe", orte_rmaps_base_print_mapping(orte_rmaps_base.mapping));
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
ORTE_UNSET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_NO_OVERSUBSCRIBE);
|
|
ORTE_SET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping, ORTE_MAPPING_SUBSCRIBE_GIVEN);
|
|
}
|
|
|
|
/* should we display the map after determining it? */
|
|
mca_base_param_reg_int_name("rmaps", "base_display_map",
|
|
"Whether to display the process map after it is computed",
|
|
false, false, (int)false, &value);
|
|
orte_rmaps_base.display_map = OPAL_INT_TO_BOOL(value);
|
|
|
|
/* should we display a detailed (developer-quality) version of the map after determining it? */
|
|
mca_base_param_reg_int_name("rmaps", "base_display_devel_map",
|
|
"Whether to display a developer-detail process map after it is computed",
|
|
false, false, (int)false, &value);
|
|
btmp = OPAL_INT_TO_BOOL(value);
|
|
if (btmp) {
|
|
orte_rmaps_base.display_map = true;
|
|
orte_devel_level_output = true;
|
|
}
|
|
/* should we display the topology along with the map? */
|
|
mca_base_param_reg_int_name("rmaps", "base_display_topo_with_map",
|
|
"Whether to display the topology with the map",
|
|
false, false, (int)false, &value);
|
|
orte_display_topo_with_map = OPAL_INT_TO_BOOL(value);
|
|
|
|
/* should we display a diffable report of proc locations after determining it? */
|
|
mca_base_param_reg_int_name("rmaps", "base_display_diffable_map",
|
|
"Whether to display a diffable process map after it is computed",
|
|
false, false, (int)false, &value);
|
|
btmp = OPAL_INT_TO_BOOL(value);
|
|
if (btmp) {
|
|
orte_rmaps_base.display_map = true;
|
|
orte_display_diffable_output = true;
|
|
}
|
|
|
|
/* Open up all the components that we can find */
|
|
if (ORTE_SUCCESS !=
|
|
mca_base_components_open("rmaps", orte_rmaps_base.rmaps_output,
|
|
mca_rmaps_base_static_components,
|
|
&orte_rmaps_base.available_components, true)) {
|
|
return ORTE_ERROR;
|
|
}
|
|
|
|
/* check to see if any component indicated a problem */
|
|
if (ORTE_MAPPING_CONFLICTED & ORTE_GET_MAPPING_DIRECTIVE(orte_rmaps_base.mapping)) {
|
|
/* the component would have already reported the error, so
|
|
* tell the rest of the chain to shut up
|
|
*/
|
|
return ORTE_ERR_SILENT;
|
|
}
|
|
|
|
/* All done */
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
OBJ_CLASS_INSTANCE(orte_rmaps_base_selected_module_t,
|
|
opal_list_item_t,
|
|
NULL, NULL);
|
|
|
|
#endif /* ORTE_DISABLE_FULL_SUPPORT */
|