2acd0f83de
It appears the problem was not with the command line parser but the rsh plm. I don't know why this problem was not occuring before the command line parser changes but it appears to be resolved now. This commit was SVN r27527. The following SVN revision numbers were found above: r27451 --> open-mpi/ompi@d59034e6ef r27456 --> open-mpi/ompi@ecdbf34937
138 строки
4.6 KiB
C
138 строки
4.6 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2007 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-2007 Sun Microsystems, Inc. All rights reserved.
|
|
* Copyright (c) 2008 Cisco Systems, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
|
|
#include "ompi_config.h"
|
|
#include <stdio.h>
|
|
|
|
#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 "ompi/mca/btl/btl.h"
|
|
#include "ompi/mca/btl/base/base.h"
|
|
|
|
mca_btl_active_message_callback_t mca_btl_base_active_message_trigger[MCA_BTL_TAG_MAX];
|
|
|
|
/*
|
|
* mca_btl_base_descriptor_t
|
|
*/
|
|
|
|
static void mca_btl_base_descriptor_constructor(mca_btl_base_descriptor_t* des)
|
|
{
|
|
des->des_src = NULL;
|
|
des->des_src_cnt = 0;
|
|
des->des_dst = NULL;
|
|
des->des_dst_cnt = 0;
|
|
des->des_cbfunc = NULL;
|
|
des->des_cbdata = NULL;
|
|
des->des_flags = 0;
|
|
}
|
|
|
|
static void mca_btl_base_descriptor_destructor(mca_btl_base_descriptor_t* des)
|
|
{
|
|
}
|
|
|
|
OBJ_CLASS_INSTANCE(
|
|
mca_btl_base_descriptor_t,
|
|
opal_list_item_t,
|
|
mca_btl_base_descriptor_constructor,
|
|
mca_btl_base_descriptor_destructor);
|
|
|
|
|
|
/*
|
|
* 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 "ompi/mca/btl/base/static-components.h"
|
|
#include "btl_base_error.h"
|
|
|
|
/*
|
|
* Global variables
|
|
*/
|
|
int mca_btl_base_output = -1;
|
|
char* mca_btl_base_include = NULL;
|
|
char* mca_btl_base_exclude = NULL;
|
|
int mca_btl_base_warn_component_unused = 1;
|
|
opal_list_t mca_btl_base_components_opened;
|
|
opal_list_t mca_btl_base_modules_initialized;
|
|
int mca_btl_base_already_opened = 0;
|
|
bool mca_btl_base_thread_multiple_override = false;
|
|
|
|
/**
|
|
* Function for finding and opening either all MCA components, or the one
|
|
* that was specifically requested via a MCA parameter.
|
|
*/
|
|
int mca_btl_base_open(void)
|
|
{
|
|
int i;
|
|
if( ++mca_btl_base_already_opened > 1 ) return OMPI_SUCCESS;
|
|
|
|
/* Verbose output */
|
|
mca_base_param_reg_int_name("btl",
|
|
"base_verbose",
|
|
"Verbosity level of the BTL framework",
|
|
false, false,
|
|
0,
|
|
&mca_btl_base_verbose);
|
|
|
|
mca_btl_base_output = opal_output_open(NULL);
|
|
opal_output_set_verbosity(mca_btl_base_output, mca_btl_base_verbose);
|
|
|
|
/* Override the per-BTL "don't run if THREAD_MULTIPLE selected"
|
|
embargo? */
|
|
mca_base_param_reg_int_name("btl",
|
|
"base_thread_multiple_override",
|
|
"Enable BTLs that are not normally enabled when MPI_THREAD_MULTIPLE is enabled (THIS IS FOR DEVELOPERS ONLY! SHOULD NOT BE USED BY END USERS!)",
|
|
true, false,
|
|
0, &i);
|
|
mca_btl_base_thread_multiple_override = OPAL_INT_TO_BOOL(i);
|
|
|
|
/* Open up all available components */
|
|
|
|
if (OMPI_SUCCESS !=
|
|
mca_base_components_open("btl", mca_btl_base_output, mca_btl_base_static_components,
|
|
&mca_btl_base_components_opened, true)) {
|
|
return OMPI_ERROR;
|
|
}
|
|
|
|
/* Initialize the list so that in mca_btl_base_close(), we can
|
|
iterate over it (even if it's empty, as in the case of
|
|
ompi_info) */
|
|
|
|
OBJ_CONSTRUCT(&mca_btl_base_modules_initialized, opal_list_t);
|
|
|
|
/* register parameters */
|
|
(void) mca_base_param_reg_string_name ("btl", "base_include", NULL, false, false, NULL,
|
|
&mca_btl_base_include);
|
|
(void) mca_base_param_reg_string_name ("btl", "base_exclude", NULL, false, false, NULL,
|
|
&mca_btl_base_exclude);
|
|
(void) mca_base_param_reg_int_name ("btl", "base_warn_component_unused",
|
|
"This parameter is used to turn on warning messages when certain NICs are not used",
|
|
false, false, 1, &mca_btl_base_warn_component_unused);
|
|
|
|
/* All done */
|
|
return OMPI_SUCCESS;
|
|
}
|