61 строка
2.3 KiB
C
61 строка
2.3 KiB
C
/*
|
|
* Copyright (c) 2012 Cisco Systems, Inc. All rights reserved.
|
|
*
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "opal_config.h"
|
|
|
|
#include "common_verbs.h"
|
|
|
|
#include "opal/mca/base/mca_base_var.h"
|
|
|
|
/***********************************************************************/
|
|
|
|
static bool registered = false;
|
|
static int warn_nonexistent_if_index = -1;
|
|
|
|
bool opal_common_verbs_warn_nonexistent_if = true;
|
|
int opal_common_verbs_want_fork_support = -1;
|
|
|
|
static void register_internal(void)
|
|
{
|
|
opal_common_verbs_warn_nonexistent_if = true;
|
|
warn_nonexistent_if_index =
|
|
mca_base_var_register("opal", "opal_common", "verbs", "warn_nonexistent_if",
|
|
"Warn if non-existent devices and/or ports are specified in device include/exclude MCA parameters "
|
|
"(0 = do not warn; any other value = warn)",
|
|
MCA_BASE_VAR_TYPE_BOOL, NULL, 0, MCA_BASE_VAR_FLAG_SETTABLE,
|
|
OPAL_INFO_LVL_9, MCA_BASE_VAR_SCOPE_LOCAL,
|
|
&opal_common_verbs_warn_nonexistent_if);
|
|
/* A depreacated synonym */
|
|
mca_base_var_register_synonym(warn_nonexistent_if_index, "ompi", "ompi_common",
|
|
"verbs", "warn_nonexistent_if", MCA_BASE_VAR_SYN_FLAG_DEPRECATED);
|
|
|
|
mca_base_var_register("opal", "opal_common", "verbs", "want_fork_support",
|
|
"Whether fork support is desired or not "
|
|
"(negative = try to enable fork support, but continue even "
|
|
"if it is not available, 0 = do not enable fork support, "
|
|
"positive = try to enable fork support and fail if it is not available)",
|
|
MCA_BASE_VAR_TYPE_INT, NULL, 0, MCA_BASE_VAR_FLAG_SETTABLE,
|
|
OPAL_INFO_LVL_8, MCA_BASE_VAR_SCOPE_ALL_EQ,
|
|
&opal_common_verbs_want_fork_support);
|
|
|
|
registered = true;
|
|
}
|
|
|
|
void opal_common_verbs_mca_register(mca_base_component_t *component)
|
|
{
|
|
if (!registered) {
|
|
register_internal();
|
|
}
|
|
|
|
/* Make synonym for the common_verbs MCA params. */
|
|
mca_base_var_register_synonym(warn_nonexistent_if_index, "ompi", component->mca_type_name,
|
|
component->mca_component_name, "warn_nonexistent_if", 0);
|
|
}
|