1
1
This commit was SVN r13482.
Этот коммит содержится в:
Galen Shipman 2007-02-03 02:32:00 +00:00
родитель a94101fa62
Коммит ddf08cb0b3

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

@ -48,14 +48,13 @@ int mca_pml_base_select(bool enable_progress_threads,
bool enable_mpi_threads)
{
int i, priority = 0, best_priority = 0;
bool skip_pml = false;
opal_list_item_t *item = NULL;
mca_base_component_list_item_t *cli = NULL;
mca_pml_base_component_t *component = NULL, *best_component = NULL;
mca_pml_base_module_t *module = NULL, *best_module = NULL;
opal_list_t opened;
opened_component_t *om = NULL;
bool found_pml;
/* Traverse the list of available components; call their init
functions. */
@ -68,20 +67,19 @@ int mca_pml_base_select(bool enable_progress_threads,
item = opal_list_get_next(item) ) {
cli = (mca_base_component_list_item_t *) item;
component = (mca_pml_base_component_t *) cli->cli_component;
skip_pml = false;
/* if there is an include list - item must be in the list to be included */
found_pml = false;
for( i = 0; i < ompi_pointer_array_get_size(&mca_pml_base_pml); i++) {
if((strcmp(component->pmlm_version.mca_component_name,
(char *) ompi_pointer_array_get_item(&mca_pml_base_pml, i)) != 0)) {
opal_output_verbose( 10, mca_pml_base_output,
"select: component %s not in the include list",
component->pmlm_version.mca_component_name );
skip_pml = true;
} else {
skip_pml = false;
(char *) ompi_pointer_array_get_item(&mca_pml_base_pml, i)) == 0)) {
found_pml = true;
}
}
if(skip_pml) {
if(!found_pml && ompi_pointer_array_get_size(&mca_pml_base_pml)) {
opal_output_verbose( 10, mca_pml_base_output,
"select: component %s not in the include list",
component->pmlm_version.mca_component_name );
continue;
}
if (NULL == component->pmlm_init) {