7b20370306
any NICs to use * Make mvapi, gm, and mx components all publish information, even if there are no NICs available so that modex_recv doesn't hang. If there are no NICs available, don't set the reachable bit, but don't do anything to fail. This unfortunately doesn't cover the hangs that will result if different procs load different sets of components, but it's a start This commit was SVN r7550.
64 строки
1.5 KiB
C
64 строки
1.5 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
* 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$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
|
|
#include "ompi_config.h"
|
|
#include <stdio.h>
|
|
#include <stdarg.h>
|
|
|
|
#include "btl_base_error.h"
|
|
#include "opal/util/show_help.h"
|
|
#include "orte/util/sys_info.h"
|
|
|
|
int mca_btl_base_debug;
|
|
|
|
int mca_btl_base_err(const char* fmt, ...)
|
|
{
|
|
va_list list;
|
|
int ret;
|
|
|
|
va_start(list, fmt);
|
|
ret = vfprintf(stderr, fmt, list);
|
|
va_end(list);
|
|
return ret;
|
|
}
|
|
|
|
|
|
int mca_btl_base_out(const char* fmt, ...)
|
|
{
|
|
va_list list;
|
|
int ret;
|
|
|
|
va_start(list, fmt);
|
|
ret = vfprintf(stdout, fmt, list);
|
|
va_end(list);
|
|
return ret;
|
|
}
|
|
|
|
|
|
void mca_btl_base_error_no_nics(const char* transport,
|
|
const char* nic_name)
|
|
{
|
|
char *procid;
|
|
asprintf(&procid, "[%lu,%lu,%lu]",
|
|
ORTE_NAME_ARGS(orte_process_info.my_name));
|
|
|
|
opal_show_help("help-mpi-btl-base.txt", "btl:no-nics",
|
|
true, procid, transport, orte_system_info.nodename,
|
|
nic_name);
|
|
free(procid);
|
|
}
|