ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

In talking about this with Jeff and Ralph, we don't actually need

Просмотр исходного кода 
ompi_show_help, because opal_show_help is replaced with an 
aggregating version when using ORTE, so there's no reason to
directly call orte_show_help.

This commit was SVN r28051.
Этот коммит содержится в:
Brian Barrett 2013-02-12 21:10:11 +00:00
родитель 70ad711337
Коммит 312f37706e
74 изменённых файлов: 342 добавлений и 384 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

7
ompi/errhandler/errhandler_predefined.c
Просмотреть файл

@ -32,6 +32,7 @@
#include <sys/param.h>
#endif
#include "opal/util/show_help.h"
#include "ompi/mca/rte/rte.h"
#include "ompi/errhandler/errhandler_predefined.h"
#include "ompi/errhandler/errcode.h"
@ -163,7 +164,7 @@ static void out(char *str, char *arg)
}
/*
* Use ompi_show_help() to aggregate the error messages (i.e., show it
* Use opal_show_help() to aggregate the error messages (i.e., show it
* once rather than N times).
*
* Note that this function will only be invoked for errors during the
@ -197,14 +198,14 @@ static void backend_fatal_aggregate(char *type,
}
if (NULL != name) {
ompi_show_help("help-mpi-errors.txt",
opal_show_help("help-mpi-errors.txt",
"mpi_errors_are_fatal", false,
prefix, (NULL == arg) ? "" : "in",
(NULL == arg) ? "" : arg,
prefix, OMPI_PROC_MY_NAME->jobid, OMPI_PROC_MY_NAME->vpid,
prefix, type, name, prefix, err_msg, prefix, type, prefix);
} else {
ompi_show_help("help-mpi-errors.txt",
opal_show_help("help-mpi-errors.txt",
"mpi_errors_are_fatal unknown handle", false,
prefix, (NULL == arg) ? "" : "in",
(NULL == arg) ? "" : arg,

16
ompi/mca/bcol/iboffload/bcol_iboffload_component.c
Просмотреть файл

@ -321,7 +321,7 @@ static int iboffload_load_devices(void)
if (0 == num_devs || NULL == cm->ib_devs) {
IBOFFLOAD_ERROR(("No IB devices found"));
/* No hca error*/
ompi_show_help("help-mpi-btl-openib.txt", "no-nics", true);
opal_show_help("help-mpi-btl-openib.txt", "no-nics", true);
return OMPI_ERROR;
}
@ -545,7 +545,7 @@ static int setup_qps(void)
queues = opal_argv_split(mca_bcol_iboffload_component.receive_queues, ':');
if (0 == opal_argv_count(queues)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"no qps in receive_queues", true,
ompi_process_info.nodename,
mca_bcol_iboffload_component.receive_queues);
@ -564,14 +564,14 @@ static int setup_qps(void)
#if HAVE_XRC
type = MCA_BCOL_IBOFFLOAD_XRC_QP;
#else
ompi_show_help("help-mpi-btl-openib.txt", "No XRC support", true,
opal_show_help("help-mpi-btl-openib.txt", "No XRC support", true,
ompi_process_info.nodename,
mca_bcol_iboffload_component.receive_queues);
ret = OMPI_ERR_NOT_AVAILABLE;
goto exit;
#endif
} else {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid qp type in receive_queues", true,
ompi_process_info.nodename,
mca_bcol_iboffload_component.receive_queues,
@ -597,7 +597,7 @@ static int setup_qps(void)
if ('P' == params[0][0]) {
if (count < 3 || count > 6) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid pp qp specification", true,
ompi_process_info.nodename, queues[qp]);
@ -617,12 +617,12 @@ static int setup_qps(void)
if ((rd_num - rd_low) > rd_win) {
ompi_show_help("help-mpi-btl-openib.txt", "non optimal rd_win",
opal_show_help("help-mpi-btl-openib.txt", "non optimal rd_win",
true, rd_win, rd_num - rd_low);
}
} else {
if (count < 3 || count > 5) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid srq specification", true,
ompi_process_info.nodename, queues[qp]);
@ -644,7 +644,7 @@ static int setup_qps(void)
}
if (rd_num <= rd_low) {
ompi_show_help("help-mpi-btl-openib.txt", "rd_num must be > rd_low",
opal_show_help("help-mpi-btl-openib.txt", "rd_num must be > rd_low",
true, ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;

24
ompi/mca/bcol/iboffload/bcol_iboffload_mca.c
Просмотреть файл

@ -253,7 +253,7 @@ int mca_bcol_iboffload_register_params(void)
free(msg);
if (ival < IBV_MTU_1024 || ival > IBV_MTU_4096) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "invalid value for bcol_iboffload_ib_mtu",
"bcol_iboffload_ib_mtu reset to 1024");
mca_bcol_iboffload_component.mtu = IBV_MTU_1024;
@ -267,12 +267,12 @@ int mca_bcol_iboffload_register_params(void)
1 , &ival, 0));
if (ival > 31) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_min_rnr_timer > 31",
"bcol_iboffload_ib_min_rnr_timer reset to 31");
ival = 31;
} else if (ival < 0){
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_min_rnr_timer < 0",
"bcol_iboffload_ib_min_rnr_timer reset to 0");
ival = 0;
@ -284,12 +284,12 @@ int mca_bcol_iboffload_register_params(void)
"(must be >= 0 and <= 31)",
20, &ival, 0));
if (ival > 31) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_timeout > 31",
"bcol_iboffload_ib_timeout reset to 31");
ival = 31;
} else if (ival < 0) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_timeout < 0",
"bcol_iboffload_ib_timeout reset to 0");
ival = 0;
@ -301,12 +301,12 @@ int mca_bcol_iboffload_register_params(void)
"(must be >= 0 and <= 7)",
7, &ival, 0));
if (ival > 7) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_retry_count > 7",
"bcol_iboffload_ib_retry_count reset to 7");
ival = 7;
} else if (ival < 0) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_retry_count < 0",
"bcol_iboffload_ib_retry_count reset to 0");
ival = 0;
@ -321,12 +321,12 @@ int mca_bcol_iboffload_register_params(void)
"(must be >= 0 and <= 7; 7 = \"infinite\")",
7, &ival, 0));
if (ival > 7) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_rnr_retry > 7",
"bcol_iboffload_ib_rnr_retry reset to 7");
ival = 7;
} else if (ival < 0) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_rnr_retry < 0",
"bcol_iboffload_ib_rnr_retry reset to 0");
ival = 0;
@ -344,12 +344,12 @@ int mca_bcol_iboffload_register_params(void)
"(must be >= 0 and <= 15)",
0, &ival, 0));
if (ival > 15) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_service_level > 15",
"bcol_iboffload_ib_service_level reset to 15");
ival = 15;
} else if (ival < 0) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "bcol_iboffload_ib_service_level < 0",
"bcol_iboffload_ib_service_level reset to 0");
ival = 0;
@ -380,7 +380,7 @@ int mca_bcol_iboffload_register_params(void)
"(must be > 0 and power of two)",
64, &ival, REGINT_GE_ZERO));
if(ival <= 1 || (ival & (ival - 1))) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "wrong buffer alignment",
opal_show_help("help-mpi-bcol-iboffload.txt", "wrong buffer alignment",
true, ival, ompi_process_info.nodename, 64);
mca_bcol_iboffload_component.buffer_alignment = 64;
} else {

3
ompi/mca/bml/r2/bml_r2.c
Просмотреть файл

@ -27,6 +27,7 @@
#include "opal/class/opal_bitmap.h"
#include "opal/util/argv.h"
#include "opal/util/show_help.h"
#include "opal/util/output.h"
#include "ompi/mca/bml/bml.h"
#include "ompi/mca/bml/base/base.h"
@ -403,7 +404,7 @@ static int mca_bml_r2_add_procs( size_t nprocs,
if (mca_bml_r2.show_unreach_errors &&
OMPI_ERR_UNREACH == ret) {
ompi_show_help("help-mca-bml-r2.txt",
opal_show_help("help-mca-bml-r2.txt",
"unreachable proc",
true,
OMPI_NAME_PRINT(&(ompi_proc_local_proc->proc_name)),

3
ompi/mca/btl/base/btl_base_error.c
Просмотреть файл

@ -24,6 +24,7 @@
#include <stdio.h>
#include <stdarg.h>
#include "opal/util/show_help.h"
#include "ompi/mca/rte/rte.h"
#include "base.h"
@ -63,7 +64,7 @@ void mca_btl_base_error_no_nics(const char* transport,
/* print out no-nic warning if user told us to */
asprintf(&procid, "%s", OMPI_NAME_PRINT(OMPI_PROC_MY_NAME));
ompi_show_help("help-mpi-btl-base.txt", "btl:no-nics",
opal_show_help("help-mpi-btl-base.txt", "btl:no-nics",
true, procid, transport, ompi_process_info.nodename,
nic_name);
free(procid);

3
ompi/mca/btl/base/btl_base_select.c
Просмотреть файл

@ -23,6 +23,7 @@
#include "opal/util/argv.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "opal/mca/mca.h"
#include "opal/mca/base/base.h"
#include "opal/mca/base/mca_base_component_repository.h"
@ -163,7 +164,7 @@ int mca_btl_base_select(bool enable_progress_threads,
/* Finished querying all components. Check for the bozo case. */
if (0 == opal_list_get_size(&mca_btl_base_modules_initialized)) {
ompi_show_help("help-mca-base.txt", "find-available:none-found", true,
opal_show_help("help-mca-base.txt", "find-available:none-found", true,
"btl");
ompi_rte_abort(1, NULL);
}

14
ompi/mca/btl/openib/btl_openib.c
Просмотреть файл

@ -153,13 +153,13 @@ void mca_btl_openib_show_init_error(const char *file, int line,
}
#endif
ompi_show_help("help-mpi-btl-openib.txt", "init-fail-no-mem",
opal_show_help("help-mpi-btl-openib.txt", "init-fail-no-mem",
true, ompi_process_info.nodename,
file, line, func, dev, str_limit);
if (NULL != str_limit) free(str_limit);
} else {
ompi_show_help("help-mpi-btl-openib.txt", "init-fail-create-q",
opal_show_help("help-mpi-btl-openib.txt", "init-fail-create-q",
true, ompi_process_info.nodename,
file, line, func, strerror(errno), errno, dev);
}
@ -485,7 +485,7 @@ static int mca_btl_openib_tune_endpoint(mca_btl_openib_module_t* openib_btl,
ompi_btl_openib_ini_values_t values;
if(mca_btl_openib_get_transport_type(openib_btl) != endpoint->rem_info.rem_transport_type) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"conflicting transport types", true,
ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev),
@ -506,7 +506,7 @@ static int mca_btl_openib_tune_endpoint(mca_btl_openib_module_t* openib_btl,
if (OMPI_SUCCESS != ret &&
OMPI_ERR_NOT_FOUND != ret) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"error in device init", true,
ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev));
@ -547,7 +547,7 @@ static int mca_btl_openib_tune_endpoint(mca_btl_openib_module_t* openib_btl,
if(0 != strcmp(mca_btl_openib_component.receive_queues,
recv_qps)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"unsupported queues configuration", true,
ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev),
@ -569,7 +569,7 @@ static int mca_btl_openib_tune_endpoint(mca_btl_openib_module_t* openib_btl,
if(NULL != values.receive_queues) {
if(0 != strcmp(mca_btl_openib_component.receive_queues,
values.receive_queues)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"unsupported queues configuration", true,
ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev),
@ -670,7 +670,7 @@ static uint64_t calculate_max_reg (void)
} else {
action = "Your MPI job will continue, but may be behave poorly and/or hang.";
}
ompi_show_help("help-mpi-btl-openib.txt", "reg mem limit low", true,
opal_show_help("help-mpi-btl-openib.txt", "reg mem limit low", true,
ompi_process_info.nodename, (unsigned long)(max_reg >> 20),
(unsigned long)(mem_total >> 20), action);
if (mca_btl_openib_component.abort_not_enough_reg_mem) {

6
ompi/mca/btl/openib/btl_openib_async.c
Просмотреть файл

@ -400,14 +400,14 @@ static int btl_openib_async_deviceh(struct mca_btl_openib_async_poll *devices_po
case IBV_EVENT_QP_ACCESS_ERR:
case IBV_EVENT_PATH_MIG_ERR:
case IBV_EVENT_SRQ_ERR:
ompi_show_help("help-mpi-btl-openib.txt", "of error event",
opal_show_help("help-mpi-btl-openib.txt", "of error event",
true,ompi_process_info.nodename, ompi_process_info.pid,
event_type,
openib_event_to_str((enum ibv_event_type)event_type),
xrc_event ? "true" : "false");
break;
case IBV_EVENT_PORT_ERR:
ompi_show_help("help-mpi-btl-openib.txt", "of error event",
opal_show_help("help-mpi-btl-openib.txt", "of error event",
true,ompi_process_info.nodename, ompi_process_info.pid,
event_type,
openib_event_to_str((enum ibv_event_type)event_type),
@ -437,7 +437,7 @@ static int btl_openib_async_deviceh(struct mca_btl_openib_async_poll *devices_po
break;
default:
ompi_show_help("help-mpi-btl-openib.txt", "of unknown event",
opal_show_help("help-mpi-btl-openib.txt", "of unknown event",
true,ompi_process_info.nodename, ompi_process_info.pid,
event_type, xrc_event ? "true" : "false");
}

70
ompi/mca/btl/openib/btl_openib_component.c
Просмотреть файл

@ -677,7 +677,7 @@ static int init_one_port(opal_list_t *btl_list, mca_btl_openib_device_t *device,
size. */
if (mca_btl_openib_component.gid_index >
ib_port_attr->gid_tbl_len) {
ompi_show_help("help-mpi-btl-openib.txt", "gid index too large",
opal_show_help("help-mpi-btl-openib.txt", "gid index too large",
true, ompi_process_info.nodename,
ibv_get_device_name(device->ib_dev), port_num,
mca_btl_openib_component.gid_index,
@ -735,7 +735,7 @@ static int init_one_port(opal_list_t *btl_list, mca_btl_openib_device_t *device,
if(mca_btl_openib_component.ib_num_btls > 0 &&
IB_DEFAULT_GID_PREFIX == subnet_id &&
mca_btl_openib_component.warn_default_gid_prefix) {
ompi_show_help("help-mpi-btl-openib.txt", "default subnet prefix",
opal_show_help("help-mpi-btl-openib.txt", "default subnet prefix",
true, ompi_process_info.nodename);
}
@ -759,7 +759,7 @@ static int init_one_port(opal_list_t *btl_list, mca_btl_openib_device_t *device,
} else if (0 == lmc % (mca_btl_openib_component.apm_lmc + 1)) {
lmc_step = mca_btl_openib_component.apm_lmc + 1;
} else {
ompi_show_help("help-mpi-btl-openib.txt", "apm with wrong lmc",true,
opal_show_help("help-mpi-btl-openib.txt", "apm with wrong lmc",true,
mca_btl_openib_component.apm_lmc, lmc);
return OMPI_ERROR;
}
@ -767,7 +767,7 @@ static int init_one_port(opal_list_t *btl_list, mca_btl_openib_device_t *device,
if (mca_btl_openib_component.apm_lmc) {
/* Disable apm and report warning */
mca_btl_openib_component.apm_lmc = 0;
ompi_show_help("help-mpi-btl-openib.txt", "apm without lmc",true);
opal_show_help("help-mpi-btl-openib.txt", "apm without lmc",true);
}
}
#endif
@ -1059,7 +1059,7 @@ static int prepare_device_for_use(mca_btl_openib_device_t *device)
*/
if (!(device->ib_dev_attr.device_cap_flags & IBV_DEVICE_XRC) &&
MCA_BTL_XRC_ENABLED) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"XRC on device without XRC support", true,
mca_btl_openib_component.num_xrc_qps,
ibv_get_device_name(device->ib_dev),
@ -1368,7 +1368,7 @@ static int setup_qps(void)
queues = opal_argv_split(mca_btl_openib_component.receive_queues, ':');
if (0 == opal_argv_count(queues)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"no qps in receive_queues", true,
ompi_process_info.nodename,
mca_btl_openib_component.receive_queues);
@ -1388,14 +1388,14 @@ static int setup_qps(void)
#if HAVE_XRC
num_xrc_qps++;
#else
ompi_show_help("help-mpi-btl-openib.txt", "No XRC support", true,
opal_show_help("help-mpi-btl-openib.txt", "No XRC support", true,
ompi_process_info.nodename,
mca_btl_openib_component.receive_queues);
ret = OMPI_ERR_NOT_AVAILABLE;
goto error;
#endif
} else {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid qp type in receive_queues", true,
ompi_process_info.nodename,
mca_btl_openib_component.receive_queues,
@ -1408,7 +1408,7 @@ static int setup_qps(void)
/* Current XRC implementation can't used with other QP types - PP
and SRQ */
if (num_xrc_qps > 0 && (num_pp_qps > 0 || num_srq_qps > 0)) {
ompi_show_help("help-mpi-btl-openib.txt", "XRC with PP or SRQ", true,
opal_show_help("help-mpi-btl-openib.txt", "XRC with PP or SRQ", true,
ompi_process_info.nodename,
mca_btl_openib_component.receive_queues);
ret = OMPI_ERR_BAD_PARAM;
@ -1417,7 +1417,7 @@ static int setup_qps(void)
/* Current XRC implementation can't used with btls_per_lid > 1 */
if (num_xrc_qps > 0 && mca_btl_openib_component.btls_per_lid > 1) {
ompi_show_help("help-mpi-btl-openib.txt", "XRC with BTLs per LID",
opal_show_help("help-mpi-btl-openib.txt", "XRC with BTLs per LID",
true, ompi_process_info.nodename,
mca_btl_openib_component.receive_queues, num_xrc_qps);
ret = OMPI_ERR_BAD_PARAM;
@ -1443,7 +1443,7 @@ static int setup_qps(void)
if ('P' == params[0][0]) {
int32_t rd_win, rd_rsv;
if (count < 3 || count > 6) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid pp qp specification", true,
ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
@ -1468,13 +1468,13 @@ static int setup_qps(void)
mca_btl_openib_component.qp_infos[qp].u.pp_qp.rd_win = rd_win;
mca_btl_openib_component.qp_infos[qp].u.pp_qp.rd_rsv = rd_rsv;
if ((rd_num - rd_low) > rd_win) {
ompi_show_help("help-mpi-btl-openib.txt", "non optimal rd_win",
opal_show_help("help-mpi-btl-openib.txt", "non optimal rd_win",
true, rd_win, rd_num - rd_low);
}
} else {
int32_t sd_max, rd_init, srq_limit;
if (count < 3 || count > 7) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid srq specification", true,
ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
@ -1511,14 +1511,14 @@ static int setup_qps(void)
}
if (rd_num < rd_init) {
ompi_show_help("help-mpi-btl-openib.txt", "rd_num must be >= rd_init",
opal_show_help("help-mpi-btl-openib.txt", "rd_num must be >= rd_init",
true, ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
goto error;
}
if (rd_num < srq_limit) {
ompi_show_help("help-mpi-btl-openib.txt", "srq_limit must be > rd_num",
opal_show_help("help-mpi-btl-openib.txt", "srq_limit must be > rd_num",
true, ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
goto error;
@ -1530,7 +1530,7 @@ static int setup_qps(void)
}
if (rd_num <= rd_low) {
ompi_show_help("help-mpi-btl-openib.txt", "rd_num must be > rd_low",
opal_show_help("help-mpi-btl-openib.txt", "rd_num must be > rd_low",
true, ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
goto error;
@ -1550,14 +1550,14 @@ static int setup_qps(void)
mca_btl_openib_module.super.btl_eager_limit :
mca_btl_openib_module.super.btl_max_send_size;
if (max_qp_size < max_size_needed) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"biggest qp size is too small", true,
ompi_process_info.nodename, max_qp_size,
max_size_needed);
ret = OMPI_ERR_BAD_PARAM;
goto error;
} else if (max_qp_size > max_size_needed) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"biggest qp size is too big", true,
ompi_process_info.nodename, max_qp_size,
max_size_needed);
@ -1565,7 +1565,7 @@ static int setup_qps(void)
if (mca_btl_openib_component.ib_free_list_max > 0 &&
min_freelist_size > mca_btl_openib_component.ib_free_list_max) {
ompi_show_help("help-mpi-btl-openib.txt", "freelist too small", true,
opal_show_help("help-mpi-btl-openib.txt", "freelist too small", true,
ompi_process_info.nodename,
mca_btl_openib_component.ib_free_list_max,
min_freelist_size);
@ -1671,7 +1671,7 @@ static int init_one_device(opal_list_t *btl_list, struct ibv_device* ib_dev)
warning that we're using default values (unless overridden
that we don't want to see these warnings) */
if (mca_btl_openib_component.warn_no_device_params_found) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"no device params found", true,
ompi_process_info.nodename,
ibv_get_device_name(device->ib_dev),
@ -1779,7 +1779,7 @@ static int init_one_device(opal_list_t *btl_list, struct ibv_device* ib_dev)
/* Eager RDMA is not currently supported with progress threads */
if (device->use_eager_rdma && OMPI_ENABLE_PROGRESS_THREADS) {
device->use_eager_rdma = 0;
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"eager RDMA and progress threads", true);
}
@ -1865,7 +1865,7 @@ static int init_one_device(opal_list_t *btl_list, struct ibv_device* ib_dev)
if (device->btls > 0) {
/* if apm was enabled it should be > 1 */
if (1 == mca_btl_openib_component.apm_ports) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"apm not enough ports", true);
mca_btl_openib_component.apm_ports = 0;
}
@ -2124,7 +2124,7 @@ static int init_one_device(opal_list_t *btl_list, struct ibv_device* ib_dev)
if (NULL != values.receive_queues) {
if (0 != strcmp(values.receive_queues,
mca_btl_openib_component.receive_queues)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"locally conflicting receive_queues", true,
opal_install_dirs.pkgdatadir,
ompi_process_info.nodename,
@ -2148,7 +2148,7 @@ static int init_one_device(opal_list_t *btl_list, struct ibv_device* ib_dev)
device's INI file, we must error. */
else if (BTL_OPENIB_RQ_SOURCE_DEVICE_INI ==
mca_btl_openib_component.receive_queues_source) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"locally conflicting receive_queues", true,
opal_install_dirs.pkgdatadir,
ompi_process_info.nodename,
@ -2187,7 +2187,7 @@ error:
}
if (OMPI_SUCCESS != ret) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"error in device init", true,
ompi_process_info.nodename,
ibv_get_device_name(device->ib_dev));
@ -2510,7 +2510,7 @@ btl_openib_component_init(int *num_btl_modules,
#if !OPAL_HAVE_THREADS
if ((OPAL_MEMORY_FREE_SUPPORT | OPAL_MEMORY_MUNMAP_SUPPORT) ==
((OPAL_MEMORY_FREE_SUPPORT | OPAL_MEMORY_MUNMAP_SUPPORT) & value)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"ptmalloc2 with no threads", true,
ompi_process_info.nodename);
goto no_btls;
@ -2625,7 +2625,7 @@ btl_openib_component_init(int *num_btl_modules,
couldn't provide it. So print an error and deactivate
this BTL. */
if (mca_btl_openib_component.want_fork_support > 0) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"ibv_fork_init fail", true,
ompi_process_info.nodename);
goto no_btls;
@ -2649,7 +2649,7 @@ btl_openib_component_init(int *num_btl_modules,
list_count++;
if (list_count > 1) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"specified include and exclude", true,
NULL == mca_btl_openib_component.if_include ?
"<not specified>" : mca_btl_openib_component.if_include,
@ -2717,7 +2717,7 @@ btl_openib_component_init(int *num_btl_modules,
continue;
}
#else
ompi_show_help("help-mpi-btl-openib.txt", "no iwarp support",
opal_show_help("help-mpi-btl-openib.txt", "no iwarp support",
true);
#endif
break;
@ -2735,7 +2735,7 @@ btl_openib_component_init(int *num_btl_modules,
}
free(dev_sorted);
if (!found) {
ompi_show_help("help-mpi-btl-openib.txt", "no devices right type",
opal_show_help("help-mpi-btl-openib.txt", "no devices right type",
true, ompi_process_info.nodename,
((BTL_OPENIB_DT_IB == mca_btl_openib_component.device_type) ?
"InfiniBand" :
@ -2752,7 +2752,7 @@ btl_openib_component_init(int *num_btl_modules,
if (0 != opal_argv_count(mca_btl_openib_component.if_list) &&
mca_btl_openib_component.warn_nonexistent_if) {
char *str = opal_argv_join(mca_btl_openib_component.if_list, ',');
ompi_show_help("help-mpi-btl-openib.txt", "nonexistent port",
opal_show_help("help-mpi-btl-openib.txt", "nonexistent port",
true, ompi_process_info.nodename,
((NULL != mca_btl_openib_component.if_include) ?
"in" : "ex"), str);
@ -2760,7 +2760,7 @@ btl_openib_component_init(int *num_btl_modules,
}
if(0 == mca_btl_openib_component.ib_num_btls) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"no active ports found", true, ompi_process_info.nodename);
goto no_btls;
}
@ -2872,7 +2872,7 @@ btl_openib_component_init(int *num_btl_modules,
/* Do finial init on device */
ret = prepare_device_for_use(device);
if (OMPI_SUCCESS != ret) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"error in device init", true,
ompi_process_info.nodename,
ibv_get_device_name(device->ib_dev));
@ -3535,14 +3535,14 @@ error:
ibv_get_device_name(endpoint->qps[qp].qp->lcl_qp->context->device);
if (IBV_WC_RNR_RETRY_EXC_ERR == wc->status) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
BTL_OPENIB_QP_TYPE_PP(qp) ?
"pp rnr retry exceeded" :
"srq rnr retry exceeded", true,
ompi_process_info.nodename, device_name,
peer_hostname);
} else if (IBV_WC_RETRY_EXC_ERR == wc->status) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"pp retry exceeded", true,
ompi_process_info.nodename,
device_name, peer_hostname);

2
ompi/mca/btl/openib/btl_openib_endpoint.c
Просмотреть файл

@ -1046,7 +1046,7 @@ void *mca_btl_openib_endpoint_invoke_error(void *context)
/* If we didn't find a BTL, then just bail :-( */
if (NULL == btl || NULL == btl->error_cb) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"cannot raise btl error", true,
ompi_process_info.nodename,
__FILE__, __LINE__);

6
ompi/mca/btl/openib/btl_openib_ini.c
Просмотреть файл

@ -246,7 +246,7 @@ static int parse_file(char *filename)
ini_filename = filename;
btl_openib_ini_yyin = fopen(filename, "r");
if (NULL == btl_openib_ini_yyin) {
ompi_show_help("help-mpi-btl-openib.txt", "ini file:file not found",
opal_show_help("help-mpi-btl-openib.txt", "ini file:file not found",
true, filename);
ret = OMPI_ERR_NOT_FOUND;
goto cleanup;
@ -424,7 +424,7 @@ static int parse_line(parsed_section_values_t *sv)
/* Have no idea what this parameter is. Not an error -- just
ignore it */
if (!showed_unknown_field_warning) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"ini file:unknown field", true,
ini_filename, btl_openib_ini_yynewlines,
key_buffer);
@ -693,7 +693,7 @@ static inline void show_help(const char *topic)
if (0 == strcmp("\n", btl_openib_ini_yytext)) {
btl_openib_ini_yytext = "<end of line>";
}
ompi_show_help("help-mpi-btl-openib.txt", topic, true,
opal_show_help("help-mpi-btl-openib.txt", topic, true,
ini_filename, btl_openib_ini_yynewlines,
btl_openib_ini_yytext);
btl_openib_ini_yytext = save;

8
ompi/mca/btl/openib/btl_openib_ip.c
Просмотреть файл

@ -195,7 +195,7 @@ static int ipaddr_specified(struct sockaddr_in *ipaddr, uint32_t netmask)
if (NULL == temp || NULL == temp[0] || NULL == temp[1] ||
NULL != temp[2]) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid ipaddr_inexclude", true, "include",
ompi_process_info.nodename, list[i],
"Invalid specification (missing \"/\")");
@ -206,7 +206,7 @@ static int ipaddr_specified(struct sockaddr_in *ipaddr, uint32_t netmask)
}
if (1 != inet_pton(ipaddr->sin_family, temp[0], &ipae)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid ipaddr_inexclude", true, "include",
ompi_process_info.nodename, list[i],
"Invalid specification (inet_pton() failed)");
@ -237,7 +237,7 @@ static int ipaddr_specified(struct sockaddr_in *ipaddr, uint32_t netmask)
if (NULL == temp || NULL == temp[0] || NULL == temp[1] ||
NULL != temp[2]) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid ipaddr_inexclude", true, "exclude",
ompi_process_info.nodename, list[i],
"Invalid specification (missing \"/\")");
@ -248,7 +248,7 @@ static int ipaddr_specified(struct sockaddr_in *ipaddr, uint32_t netmask)
}
if (1 != inet_pton(ipaddr->sin_family, temp[0], &ipae)) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"invalid ipaddr_inexclude", true, "exclude",
ompi_process_info.nodename, list[i],
"Invalid specification (inet_pton() failed)");

32
ompi/mca/btl/openib/btl_openib_mca.c
Просмотреть файл

@ -191,7 +191,7 @@ int btl_openib_register_mca_params(void)
mca_btl_openib_component.want_fork_support = ival;
#else
if (0 != ival) {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"ibv_fork requested but not supported", true,
ompi_process_info.nodename);
return OMPI_ERR_BAD_PARAM;
@ -222,7 +222,7 @@ int btl_openib_register_mca_params(void)
} else if (0 == strcasecmp(str, "all")) {
mca_btl_openib_component.device_type = BTL_OPENIB_DT_ALL;
} else {
ompi_show_help("help-mpi-btl-openib.txt",
opal_show_help("help-mpi-btl-openib.txt",
"ibv_fork requested but not supported", true,
ompi_process_info.nodename);
return OMPI_ERR_BAD_PARAM;
@ -309,7 +309,7 @@ int btl_openib_register_mca_params(void)
CHECK(reg_int("mtu", "ib_mtu", msg, IBV_MTU_1024, &ival, 0));
free(msg);
if (ival < IBV_MTU_1024 || ival > IBV_MTU_4096) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "invalid value for btl_openib_ib_mtu",
"btl_openib_ib_mtu reset to 1024");
mca_btl_openib_component.ib_mtu = IBV_MTU_1024;
@ -322,12 +322,12 @@ int btl_openib_register_mca_params(void)
"(must be >= 0 and <= 31)",
25, &ival, 0));
if (ival > 31) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_min_rnr_timer > 31",
"btl_openib_ib_min_rnr_timer reset to 31");
ival = 31;
} else if (ival < 0){
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_min_rnr_timer < 0",
"btl_openib_ib_min_rnr_timer reset to 0");
ival = 0;
@ -339,12 +339,12 @@ int btl_openib_register_mca_params(void)
"(must be >= 0 and <= 31)",
20, &ival, 0));
if (ival > 31) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_timeout > 31",
"btl_openib_ib_timeout reset to 31");
ival = 31;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_timeout < 0",
"btl_openib_ib_timeout reset to 0");
ival = 0;
@ -356,12 +356,12 @@ int btl_openib_register_mca_params(void)
"(must be >= 0 and <= 7)",
7, &ival, 0));
if (ival > 7) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_retry_count > 7",
"btl_openib_ib_retry_count reset to 7");
ival = 7;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_retry_count < 0",
"btl_openib_ib_retry_count reset to 0");
ival = 0;
@ -376,12 +376,12 @@ int btl_openib_register_mca_params(void)
"(must be >= 0 and <= 7; 7 = \"infinite\")",
7, &ival, 0));
if (ival > 7) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_rnr_retry > 7",
"btl_openib_ib_rnr_retry reset to 7");
ival = 7;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_rnr_retry < 0",
"btl_openib_ib_rnr_retry reset to 0");
ival = 0;
@ -398,12 +398,12 @@ int btl_openib_register_mca_params(void)
"(must be >= 0 and <= 15)",
0, &ival, 0));
if (ival > 15) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_service_level > 15",
"btl_openib_ib_service_level reset to 15");
ival = 15;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_ib_service_level < 0",
"btl_openib_ib_service_level reset to 0");
ival = 0;
@ -506,7 +506,7 @@ int btl_openib_register_mca_params(void)
"(must be > 0 and power of two)",
64, &ival, REGINT_GE_ZERO));
if(ival <= 1 || (ival & (ival - 1))) {
ompi_show_help("help-mpi-btl-openib.txt", "wrong buffer alignment",
opal_show_help("help-mpi-btl-openib.txt", "wrong buffer alignment",
true, ival, ompi_process_info.nodename, 64);
mca_btl_openib_component.buffer_alignment = 64;
} else {
@ -655,7 +655,7 @@ int btl_openib_register_mca_params(void)
if (mca_btl_openib_component.use_memalign != 32
&& mca_btl_openib_component.use_memalign != 64
&& mca_btl_openib_component.use_memalign != 0){
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "Wrong btl_openib_memalign parameter value. Allowed values: 64, 32, 0.",
"btl_openib_memalign is reset to 32");
mca_btl_openib_component.use_memalign = 32;
@ -668,7 +668,7 @@ int btl_openib_register_mca_params(void)
&ival,
REGINT_GE_ZERO);
if (ival < 0){
ompi_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-openib.txt", "invalid mca param value",
true, "btl_openib_memalign_threshold must be positive",
"btl_openib_memalign_threshold is reset to btl_openib_eager_limit");
ival = mca_btl_openib_component.eager_limit;

6
ompi/mca/btl/openib/connect/btl_openib_connect_base.c
Просмотреть файл

@ -120,7 +120,7 @@ int ompi_btl_openib_connect_base_register(void)
}
}
if (NULL == all[i]) {
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"cpc name not found", true,
"include", ompi_process_info.nodename,
"include", cpc_include, temp[j],
@ -146,7 +146,7 @@ int ompi_btl_openib_connect_base_register(void)
}
}
if (NULL == all[i]) {
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"cpc name not found", true,
"exclude", ompi_process_info.nodename,
"exclude", cpc_exclude, temp[j],
@ -291,7 +291,7 @@ int ompi_btl_openib_connect_base_select_for_local_port(mca_btl_openib_module_t *
/* If we got an empty array, then no CPCs were eligible. Doh! */
if (0 == cpc_index) {
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"no cpcs for port", true,
ompi_process_info.nodename,
ibv_get_device_name(btl->device->ib_dev),

4
ompi/mca/btl/openib/connect/btl_openib_connect_oob.c
Просмотреть файл

@ -480,7 +480,7 @@ static int qp_create_one(mca_btl_base_endpoint_t* endpoint, int qp,
my_qp = ibv_create_qp(openib_btl->device->ib_pd, &init_attr);
if (NULL == my_qp) {
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"ibv_create_qp failed", true,
ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev),
@ -491,7 +491,7 @@ static int qp_create_one(mca_btl_base_endpoint_t* endpoint, int qp,
if (init_attr.cap.max_inline_data < req_inline) {
endpoint->qps[qp].ib_inline_max = init_attr.cap.max_inline_data;
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"inline truncated", true, ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev),
openib_btl->port_num,

16
ompi/mca/btl/openib/connect/btl_openib_connect_rdmacm.c
Просмотреть файл

@ -246,7 +246,7 @@ static void rdmacm_component_register(void)
if (value >= 0 && value < 65536) {
rdmacm_port = (uint16_t) value;
} else {
ompi_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
opal_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
"illegal tcp port", true, value);
}
@ -257,7 +257,7 @@ static void rdmacm_component_register(void)
if (value > 0) {
rdmacm_resolve_timeout = value;
} else {
ompi_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
opal_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
"illegal timeout", true, value);
}
@ -268,7 +268,7 @@ static void rdmacm_component_register(void)
if (value > 0) {
rdmacm_resolve_max_retry_count = value;
} else {
ompi_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
opal_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
"illegal retry count", true, value);
}
@ -452,7 +452,7 @@ static int rdmacm_setup_qp(rdmacm_contents_t *contents,
endpoint->qps[qpnum].credit_frag = NULL;
if (attr.cap.max_inline_data < req_inline) {
endpoint->qps[qpnum].ib_inline_max = attr.cap.max_inline_data;
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"inline truncated", true,
ompi_process_info.nodename,
ibv_get_device_name(contents->openib_btl->device->ib_dev),
@ -752,14 +752,14 @@ static void *show_help_cant_find_endpoint(void *context)
if (NULL != c) {
msg = stringify(c->peer_ip_addr);
ompi_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
opal_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
"could not find matching endpoint", true,
ompi_process_info.nodename,
c->device_name,
c->peer_tcp_port);
free(msg);
} else {
ompi_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
opal_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
"could not find matching endpoint", true,
ompi_process_info.nodename,
"<unknown>", "<unknown>", -1);
@ -1462,7 +1462,7 @@ static void *show_help_rdmacm_event_error(void *c)
id_context_t *context = (id_context_t*) event->id->context;
if (RDMA_CM_EVENT_DEVICE_REMOVAL == event->event) {
ompi_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
opal_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
"rdma cm device removal", true,
ompi_process_info.nodename,
ibv_get_device_name(event->id->verbs->device));
@ -1473,7 +1473,7 @@ static void *show_help_rdmacm_event_error(void *c)
NULL != event->id->verbs->device) {
device = ibv_get_device_name(event->id->verbs->device);
}
ompi_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
opal_show_help("help-mpi-btl-openib-cpc-rdmacm.txt",
"rdma cm event error", true,
ompi_process_info.nodename,
device,

2
ompi/mca/btl/openib/connect/btl_openib_connect_sl.c
Просмотреть файл

@ -107,7 +107,7 @@ static int init_ud_qp(struct ibv_context *context_arg,
cache->cq = ibv_create_cq(cache->context, 4, NULL, NULL, 0);
if (NULL == cache->cq) {
BTL_ERROR(("error creating cq, errno says %s", strerror(errno)));
ompi_show_help("help-mpi-btl-openib.txt", "init-fail-create-q",
opal_show_help("help-mpi-btl-openib.txt", "init-fail-create-q",
true, ompi_process_info.nodename,
__FILE__, __LINE__, "ibv_create_cq",
strerror(errno), errno,

4
ompi/mca/btl/openib/connect/btl_openib_connect_udcm.c
Просмотреть файл

@ -1149,7 +1149,7 @@ static int udcm_qp_create_one(udcm_module_t *m, mca_btl_base_endpoint_t* lcl_ep,
}
if (NULL == lcl_ep->qps[qp].qp->lcl_qp) {
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"ibv_create_qp failed", true, ompi_process_info.nodename,
ibv_get_device_name(m->btl->device->ib_dev),
"Reliable connected (RC)");
@ -1159,7 +1159,7 @@ static int udcm_qp_create_one(udcm_module_t *m, mca_btl_base_endpoint_t* lcl_ep,
if (init_attr.cap.max_inline_data < req_inline) {
lcl_ep->qps[qp].ib_inline_max = init_attr.cap.max_inline_data;
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"inline truncated", true, ompi_process_info.nodename,
ibv_get_device_name(m->btl->device->ib_dev),
m->btl->port_num, req_inline,

4
ompi/mca/btl/openib/connect/btl_openib_connect_xoob.c
Просмотреть файл

@ -409,7 +409,7 @@ static int xoob_send_qp_create (mca_btl_base_endpoint_t* endpoint)
qp_init_attr.xrc_domain = openib_btl->device->xrc_domain;
*qp = ibv_create_qp(openib_btl->device->ib_pd, &qp_init_attr);
if (NULL == *qp) {
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"ibv_create_qp failed", true,
ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev),
@ -419,7 +419,7 @@ static int xoob_send_qp_create (mca_btl_base_endpoint_t* endpoint)
if (qp_init_attr.cap.max_inline_data < req_inline) {
endpoint->qps[0].ib_inline_max = qp_init_attr.cap.max_inline_data;
ompi_show_help("help-mpi-btl-openib-cpc-base.txt",
opal_show_help("help-mpi-btl-openib-cpc-base.txt",
"inline truncated", ompi_process_info.nodename,
ibv_get_device_name(openib_btl->device->ib_dev),
openib_btl->port_num,

5
ompi/mca/btl/sm/btl_sm.c
Просмотреть файл

@ -41,6 +41,7 @@
#include "opal/sys/atomic.h"
#include "opal/class/opal_bitmap.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "opal/util/printf.h"
#include "opal/mca/hwloc/base/base.h"
#include "opal/mca/shmem/base/base.h"
@ -139,7 +140,7 @@ setup_mpool_base_resources(mca_btl_sm_component_t *comp_ptr,
if (-1 == (fd = open(comp_ptr->sm_mpool_rndv_file_name, O_RDONLY))) {
int err = errno;
ompi_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"open(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -183,7 +184,7 @@ sm_segment_attach(mca_btl_sm_component_t *comp_ptr)
}
if (-1 == (fd = open(comp_ptr->sm_rndv_file_name, O_RDONLY))) {
int err = errno;
ompi_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"open(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;

23
ompi/mca/btl/sm/btl_sm_component.c
Просмотреть файл

@ -47,6 +47,7 @@
#include "opal/mca/shmem/shmem.h"
#include "opal/util/bit_ops.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "ompi/constants.h"
#include "ompi/runtime/ompi_module_exchange.h"
@ -161,7 +162,7 @@ static int sm_register(void)
mca_btl_sm_component.use_knem = i;
} else {
if (i > 0) {
ompi_show_help("help-mpi-btl-sm.txt",
opal_show_help("help-mpi-btl-sm.txt",
"knem requested but not supported", true,
ompi_process_info.nodename);
return OMPI_ERROR;
@ -633,7 +634,7 @@ create_rndv_file(mca_btl_sm_component_t *comp_ptr,
* sizeof(opal_shmem_ds_t), so we know where the mpool_res_size starts. */
if (-1 == (fd = open(fname, O_CREAT | O_RDWR, 0600))) {
int err = errno;
ompi_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"open(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -641,7 +642,7 @@ create_rndv_file(mca_btl_sm_component_t *comp_ptr,
if ((ssize_t)sizeof(opal_shmem_ds_t) != write(fd, &(tmp_modp->shmem_ds),
sizeof(opal_shmem_ds_t))) {
int err = errno;
ompi_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"write(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -649,7 +650,7 @@ create_rndv_file(mca_btl_sm_component_t *comp_ptr,
if (MCA_BTL_SM_RNDV_MOD_MPOOL == type) {
if ((ssize_t)sizeof(size) != write(fd, &size, sizeof(size))) {
int err = errno;
ompi_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"write(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -725,7 +726,7 @@ mca_btl_sm_component_init(int *num_btls,
* need to know who the respective node ranks for initialization. */
if (OMPI_NODE_RANK_INVALID ==
(my_node_rank = ompi_process_info.my_node_rank)) {
ompi_show_help("help-mpi-btl-sm.txt", "no locality", true);
opal_show_help("help-mpi-btl-sm.txt", "no locality", true);
return NULL;
}
/* no use trying to use sm with less than two procs, so just bail. */
@ -817,10 +818,10 @@ mca_btl_sm_component_init(int *num_btls,
if (0 != stat("/dev/knem", &sbuf)) {
sbuf.st_mode = 0;
}
ompi_show_help("help-mpi-btl-sm.txt", "knem permission denied",
opal_show_help("help-mpi-btl-sm.txt", "knem permission denied",
true, ompi_process_info.nodename, sbuf.st_mode);
} else {
ompi_show_help("help-mpi-btl-sm.txt", "knem fail open",
opal_show_help("help-mpi-btl-sm.txt", "knem fail open",
true, ompi_process_info.nodename, errno,
strerror(errno));
}
@ -832,13 +833,13 @@ mca_btl_sm_component_init(int *num_btls,
rc = ioctl(mca_btl_sm.knem_fd, KNEM_CMD_GET_INFO,
&mca_btl_sm_component.knem_info);
if (rc < 0) {
ompi_show_help("help-mpi-btl-sm.txt", "knem get ABI fail",
opal_show_help("help-mpi-btl-sm.txt", "knem get ABI fail",
true, ompi_process_info.nodename, errno,
strerror(errno));
goto no_knem;
}
if (KNEM_ABI_VERSION != mca_btl_sm_component.knem_info.abi) {
ompi_show_help("help-mpi-btl-sm.txt", "knem ABI mismatch",
opal_show_help("help-mpi-btl-sm.txt", "knem ABI mismatch",
true, ompi_process_info.nodename, KNEM_ABI_VERSION,
mca_btl_sm_component.knem_info.abi);
goto no_knem;
@ -860,7 +861,7 @@ mca_btl_sm_component_init(int *num_btls,
MAP_SHARED, mca_btl_sm.knem_fd,
KNEM_STATUS_ARRAY_FILE_OFFSET);
if (MAP_FAILED == mca_btl_sm.knem_status_array) {
ompi_show_help("help-mpi-btl-sm.txt", "knem mmap fail",
opal_show_help("help-mpi-btl-sm.txt", "knem mmap fail",
true, ompi_process_info.nodename, errno,
strerror(errno));
goto no_knem;
@ -872,7 +873,7 @@ mca_btl_sm_component_init(int *num_btls,
malloc(sizeof(mca_btl_sm_frag_t *) *
mca_btl_sm_component.knem_max_simultaneous);
if (NULL == mca_btl_sm.knem_frag_array) {
ompi_show_help("help-mpi-btl-sm.txt", "knem init fail",
opal_show_help("help-mpi-btl-sm.txt", "knem init fail",
true, ompi_process_info.nodename, "malloc",
errno, strerror(errno));
goto no_knem;

4
ompi/mca/btl/smcuda/btl_smcuda.c
Просмотреть файл

@ -142,7 +142,7 @@ setup_mpool_base_resources(mca_btl_smcuda_component_t *comp_ptr,
if (-1 == (fd = open(comp_ptr->sm_mpool_rndv_file_name, O_RDONLY))) {
int err = errno;
orte_show_help("help-mpi-btl-smcuda.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-smcuda.txt", "sys call fail", true,
"open(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -186,7 +186,7 @@ sm_segment_attach(mca_btl_smcuda_component_t *comp_ptr)
}
if (-1 == (fd = open(comp_ptr->sm_rndv_file_name, O_RDONLY))) {
int err = errno;
orte_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"open(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;

8
ompi/mca/btl/smcuda/btl_smcuda_component.c
Просмотреть файл

@ -566,7 +566,7 @@ create_rndv_file(mca_btl_smcuda_component_t *comp_ptr,
* sizeof(opal_shmem_ds_t), so we know where the mpool_res_size starts. */
if (-1 == (fd = open(fname, O_CREAT | O_RDWR, 0600))) {
int err = errno;
orte_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"open(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -574,7 +574,7 @@ create_rndv_file(mca_btl_smcuda_component_t *comp_ptr,
if ((ssize_t)sizeof(opal_shmem_ds_t) != write(fd, &(tmp_modp->shmem_ds),
sizeof(opal_shmem_ds_t))) {
int err = errno;
orte_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"write(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -582,7 +582,7 @@ create_rndv_file(mca_btl_smcuda_component_t *comp_ptr,
if (MCA_BTL_SM_RNDV_MOD_MPOOL == type) {
if ((ssize_t)sizeof(size) != write(fd, &size, sizeof(size))) {
int err = errno;
orte_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
opal_show_help("help-mpi-btl-sm.txt", "sys call fail", true,
"write(2)", strerror(err), err);
rc = OMPI_ERR_IN_ERRNO;
goto out;
@ -655,7 +655,7 @@ mca_btl_smcuda_component_init(int *num_btls,
* need to know who the respective node ranks for initialization. */
if (ORTE_NODE_RANK_INVALID ==
(my_node_rank = orte_process_info.my_node_rank)) {
orte_show_help("help-mpi-btl-sm.txt", "no locality", true);
opal_show_help("help-mpi-btl-sm.txt", "no locality", true);
return NULL;
}
/* no use trying to use sm with less than two procs, so just bail. */

13
ompi/mca/btl/tcp/btl_tcp_component.c
Просмотреть файл

@ -55,6 +55,7 @@
#include "opal/util/output.h"
#include "opal/util/argv.h"
#include "opal/util/net.h"
#include "opal/util/show_help.h"
#include "opal/mca/base/mca_base_param.h"
#include "ompi/constants.h"
@ -217,7 +218,7 @@ static int mca_btl_tcp_component_register(void)
mca_btl_tcp_param_register_int( "port_min_v4",
"The minimum port where the TCP BTL will try to bind (default 1024)", 1024 );
if( mca_btl_tcp_component.tcp_port_min > USHRT_MAX ) {
ompi_show_help("help-mpi-btl-tcp.txt", "invalid minimum port",
opal_show_help("help-mpi-btl-tcp.txt", "invalid minimum port",
true, "v4", ompi_process_info.nodename,
mca_btl_tcp_component.tcp_port_min );
mca_btl_tcp_component.tcp_port_min = 1024;
@ -236,7 +237,7 @@ static int mca_btl_tcp_component_register(void)
mca_btl_tcp_param_register_int( "port_min_v6",
"The minimum port where the TCP BTL will try to bind (default 1024)", 1024 );
if( mca_btl_tcp_component.tcp6_port_min > USHRT_MAX ) {
ompi_show_help("help-mpi-btl-tcp.txt", "invalid minimum port",
opal_show_help("help-mpi-btl-tcp.txt", "invalid minimum port",
true, "v6", ompi_process_info.nodename,
mca_btl_tcp_component.tcp6_port_min );
mca_btl_tcp_component.tcp6_port_min = 1024;
@ -308,7 +309,7 @@ static int mca_btl_tcp_component_register(void)
}
}
if (if_index < 0) {
ompi_show_help("help-mpi-btl-tcp.txt",
opal_show_help("help-mpi-btl-tcp.txt",
"invalid if_inexclude",
true, "if_seq",
ompi_process_info.nodename,
@ -524,7 +525,7 @@ static char **split_and_resolve(char **orig_str, char *name)
tmp = strdup(argv[i]);
str = strchr(argv[i], '/');
if (NULL == str) {
ompi_show_help("help-mpi-btl-tcp.txt", "invalid if_inexclude",
opal_show_help("help-mpi-btl-tcp.txt", "invalid if_inexclude",
true, name, ompi_process_info.nodename,
tmp, "Invalid specification (missing \"/\")");
free(argv[i]);
@ -541,7 +542,7 @@ static char **split_and_resolve(char **orig_str, char *name)
free(argv[i]);
if (1 != ret) {
ompi_show_help("help-mpi-btl-tcp.txt", "invalid if_inexclude",
opal_show_help("help-mpi-btl-tcp.txt", "invalid if_inexclude",
true, name, ompi_process_info.nodename, tmp,
"Invalid specification (inet_pton() failed)");
free(tmp);
@ -568,7 +569,7 @@ static char **split_and_resolve(char **orig_str, char *name)
/* If we didn't find a match, keep trying */
if (if_index < 0) {
ompi_show_help("help-mpi-btl-tcp.txt", "invalid if_inexclude",
opal_show_help("help-mpi-btl-tcp.txt", "invalid if_inexclude",
true, name, ompi_process_info.nodename, tmp,
"Did not find interface matching this subnet");
free(tmp);

3
ompi/mca/btl/tcp/btl_tcp_endpoint.c
Просмотреть файл

@ -51,6 +51,7 @@
#include "opal/mca/event/event.h"
#include "opal/util/net.h"
#include "opal/util/show_help.h"
#include "ompi/types.h"
#include "ompi/mca/btl/base/btl_base_error.h"
@ -507,7 +508,7 @@ static int mca_btl_tcp_endpoint_recv_connect_ack(mca_btl_base_endpoint_t* btl_en
upstream. */
return OMPI_ERROR;
}
ompi_show_help("help-mpi-btl-tcp.txt", "client handshake fail",
opal_show_help("help-mpi-btl-tcp.txt", "client handshake fail",
true, orte_process_info.nodename,
orte_process_info.pid,
"did not receive entire connect ACK from peer");

2
ompi/mca/btl/udapl/btl_udapl.h
Просмотреть файл

@ -231,7 +231,7 @@ do { \
#define BTL_UDAPL_VERBOSE_HELP(verbose_level, args) \
do { \
if (verbose_level <= mca_btl_udapl_component.udapl_verbosity) { \
ompi_show_help args; \
opal_show_help args; \
} \
} while(0);

12
ompi/mca/btl/wv/btl_wv.c
Просмотреть файл

@ -112,13 +112,13 @@ void mca_btl_wv_show_init_error(const char *file, int line,
{
if (ENOMEM == errno) {char *str_limit = NULL;
ompi_show_help("help-mpi-btl-wv.txt", "init-fail-no-mem",
opal_show_help("help-mpi-btl-wv.txt", "init-fail-no-mem",
true, ompi_process_info.nodename,
file, line, func, dev, str_limit);
if (NULL != str_limit) free(str_limit);
} else {
ompi_show_help("help-mpi-btl-wv.txt", "init-fail-create-q",
opal_show_help("help-mpi-btl-wv.txt", "init-fail-create-q",
true, ompi_process_info.nodename,
file, line, func, strerror(errno), errno, dev);
}
@ -285,7 +285,7 @@ static int mca_btl_wv_tune_endpoint(mca_btl_wv_module_t* wv_btl,
ompi_btl_wv_ini_values_t values;
if(mca_btl_wv_get_transport_type(wv_btl) != endpoint->rem_info.rem_transport_type) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"conflicting transport types", true,
ompi_process_info.nodename,
wv_btl->device->ib_dev->name,
@ -306,7 +306,7 @@ static int mca_btl_wv_tune_endpoint(mca_btl_wv_module_t* wv_btl,
if (OMPI_SUCCESS != ret &&
OMPI_ERR_NOT_FOUND != ret) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"error in device init", true,
ompi_process_info.nodename,
wv_btl->device->ib_dev->name);
@ -347,7 +347,7 @@ static int mca_btl_wv_tune_endpoint(mca_btl_wv_module_t* wv_btl,
if(0 != strcmp(mca_btl_wv_component.receive_queues,
recv_qps)) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"unsupported queues configuration", true,
ompi_process_info.nodename,
wv_btl->device->ib_dev->name,
@ -369,7 +369,7 @@ static int mca_btl_wv_tune_endpoint(mca_btl_wv_module_t* wv_btl,
if(NULL != values.receive_queues) {
if(0 != strcmp(mca_btl_wv_component.receive_queues,
values.receive_queues)) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"unsupported queues configuration", true,
ompi_process_info.nodename,
wv_btl->device->ib_dev->name,

48
ompi/mca/btl/wv/btl_wv_component.c
Просмотреть файл

@ -522,7 +522,7 @@ static int init_one_port(opal_list_t *btl_list, mca_btl_wv_device_t *device,
if(mca_btl_wv_component.ib_num_btls > 0 &&
IB_DEFAULT_GID_PREFIX == subnet_id &&
mca_btl_wv_component.warn_default_gid_prefix) {
ompi_show_help("help-mpi-btl-wv.txt", "default subnet prefix",
opal_show_help("help-mpi-btl-wv.txt", "default subnet prefix",
true, ompi_process_info.nodename);
}
@ -1044,7 +1044,7 @@ static int setup_qps(void)
queues = opal_argv_split(mca_btl_wv_component.receive_queues, ':');
if (0 == opal_argv_count(queues)) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"no qps in receive_queues", true,
ompi_process_info.nodename,
mca_btl_wv_component.receive_queues);
@ -1061,7 +1061,7 @@ static int setup_qps(void)
} else if (0 == strncmp("S,", queues[qp], 2)) {
num_srq_qps++;
}else {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"invalid qp type in receive_queues", true,
ompi_process_info.nodename,
mca_btl_wv_component.receive_queues,
@ -1090,7 +1090,7 @@ static int setup_qps(void)
if ('P' == params[0][0]) {
int32_t rd_win, rd_rsv;
if (count < 3 || count > 6) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"invalid pp qp specification", true,
ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
@ -1115,13 +1115,13 @@ static int setup_qps(void)
mca_btl_wv_component.qp_infos[qp].u.pp_qp.rd_win = rd_win;
mca_btl_wv_component.qp_infos[qp].u.pp_qp.rd_rsv = rd_rsv;
if ((rd_num - rd_low) > rd_win) {
ompi_show_help("help-mpi-btl-wv.txt", "non optimal rd_win",
opal_show_help("help-mpi-btl-wv.txt", "non optimal rd_win",
true, rd_win, rd_num - rd_low);
}
} else {
int32_t sd_max, rd_init, srq_limit;
if (count < 3 || count > 7) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"invalid srq specification", true,
ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
@ -1152,14 +1152,14 @@ static int setup_qps(void)
}
if (rd_num < rd_init) {
ompi_show_help("help-mpi-btl-wv.txt", "rd_num must be >= rd_init",
opal_show_help("help-mpi-btl-wv.txt", "rd_num must be >= rd_init",
true, ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
goto error;
}
if (rd_num < srq_limit) {
ompi_show_help("help-mpi-btl-wv.txt", "srq_limit must be > rd_num",
opal_show_help("help-mpi-btl-wv.txt", "srq_limit must be > rd_num",
true, ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
goto error;
@ -1171,7 +1171,7 @@ static int setup_qps(void)
}
if (rd_num <= rd_low) {
ompi_show_help("help-mpi-btl-wv.txt", "rd_num must be > rd_low",
opal_show_help("help-mpi-btl-wv.txt", "rd_num must be > rd_low",
true, ompi_process_info.nodename, queues[qp]);
ret = OMPI_ERR_BAD_PARAM;
goto error;
@ -1191,14 +1191,14 @@ static int setup_qps(void)
mca_btl_wv_module.super.btl_eager_limit :
mca_btl_wv_module.super.btl_max_send_size;
if (max_qp_size < max_size_needed) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"biggest qp size is too small", true,
ompi_process_info.nodename, max_qp_size,
max_size_needed);
ret = OMPI_ERR_BAD_PARAM;
goto error;
} else if (max_qp_size > max_size_needed) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"biggest qp size is too big", true,
ompi_process_info.nodename, max_qp_size,
max_size_needed);
@ -1206,7 +1206,7 @@ static int setup_qps(void)
if (mca_btl_wv_component.ib_free_list_max > 0 &&
min_freelist_size > mca_btl_wv_component.ib_free_list_max) {
ompi_show_help("help-mpi-btl-wv.txt", "freelist too small", true,
opal_show_help("help-mpi-btl-wv.txt", "freelist too small", true,
ompi_process_info.nodename,
mca_btl_wv_component.ib_free_list_max,
min_freelist_size);
@ -1323,7 +1323,7 @@ static int init_one_device(opal_list_t *btl_list, struct wv_device* ib_dev)
warning that we're using default values (unless overridden
that we don't want to see these warnings) */
if (mca_btl_wv_component.warn_no_device_params_found) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"no device params found", true,
ompi_process_info.nodename,
device->ib_dev->name,
@ -1498,7 +1498,7 @@ static int init_one_device(opal_list_t *btl_list, struct wv_device* ib_dev)
if (device->btls > 0) {
/* if apm was enabled it should be > 1 */
if (1 == mca_btl_wv_component.apm_ports) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"apm not enough ports", true);
mca_btl_wv_component.apm_ports = 0;
}
@ -1757,7 +1757,7 @@ static int init_one_device(opal_list_t *btl_list, struct wv_device* ib_dev)
if (NULL != values.receive_queues) {
if (0 != strcmp(values.receive_queues,
mca_btl_wv_component.receive_queues)) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"locally conflicting receive_queues", true,
opal_install_dirs.pkgdatadir,
ompi_process_info.nodename,
@ -1781,7 +1781,7 @@ static int init_one_device(opal_list_t *btl_list, struct wv_device* ib_dev)
device's INI file, we must error. */
else if (BTL_WV_RQ_SOURCE_DEVICE_INI ==
mca_btl_wv_component.receive_queues_source) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"locally conflicting receive_queues", true,
opal_install_dirs.pkgdatadir,
ompi_process_info.nodename,
@ -1815,7 +1815,7 @@ error:
}
if (OMPI_SUCCESS != ret) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"error in device init", true,
ompi_process_info.nodename,
device->ib_dev->name);
@ -2286,7 +2286,7 @@ btl_wv_component_init(int *num_btl_modules,
list_count++;
if (list_count > 1) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"specified include and exclude", true,
NULL == mca_btl_wv_component.if_include ?
"<not specified>" : mca_btl_wv_component.if_include,
@ -2339,7 +2339,7 @@ btl_wv_component_init(int *num_btl_modules,
}
free(dev_sorted);
if (!found) {
ompi_show_help("help-mpi-btl-wv.txt", "no devices right type",
opal_show_help("help-mpi-btl-wv.txt", "no devices right type",
true, ompi_process_info.nodename,
((BTL_WV_DT_IB == mca_btl_wv_component.device_type) ?
"InfiniBand" :
@ -2356,7 +2356,7 @@ btl_wv_component_init(int *num_btl_modules,
if (0 != opal_argv_count(mca_btl_wv_component.if_list) &&
mca_btl_wv_component.warn_nonexistent_if) {
char *str = opal_argv_join(mca_btl_wv_component.if_list, ',');
ompi_show_help("help-mpi-btl-wv.txt", "nonexistent port",
opal_show_help("help-mpi-btl-wv.txt", "nonexistent port",
true, ompi_process_info.nodename,
((NULL != mca_btl_wv_component.if_include) ?
"in" : "ex"), str);
@ -2364,7 +2364,7 @@ btl_wv_component_init(int *num_btl_modules,
}
if(0 == mca_btl_wv_component.ib_num_btls) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"no active ports found", true, ompi_process_info.nodename);
goto no_btls;
}
@ -2454,7 +2454,7 @@ btl_wv_component_init(int *num_btl_modules,
/* Do finial init on device */
ret = prepare_device_for_use(device);
if (OMPI_SUCCESS != ret) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"error in device init", true,
ompi_process_info.nodename,
device->ib_dev->name);
@ -2978,14 +2978,14 @@ error:
(endpoint->qps[qp].qp->lcl_qp->context->device->name);
if (WvWcRnrRetryError == wc->Status) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
BTL_WV_QP_TYPE_PP(qp) ?
"pp rnr retry exceeded" :
"srq rnr retry exceeded", true,
ompi_process_info.nodename, device_name,
peer_hostname);
} else if (-2 == wc->Status) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"pp retry exceeded", true,
ompi_process_info.nodename,
device_name, peer_hostname);

2
ompi/mca/btl/wv/btl_wv_endpoint.c
Просмотреть файл

@ -928,7 +928,7 @@ void *mca_btl_wv_endpoint_invoke_error(void *context)
/* If we didn't find a BTL, then just bail :-( */
if (NULL == btl || NULL == btl->error_cb) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"cannot raise btl error", true,
ompi_process_info.nodename,
__FILE__, __LINE__);

6
ompi/mca/btl/wv/btl_wv_ini.c
Просмотреть файл

@ -240,7 +240,7 @@ static int parse_file(char *filename)
ini_filename = filename;
btl_wv_ini_yyin = fopen(filename, "r");
if (NULL == btl_wv_ini_yyin) {
ompi_show_help("help-mpi-btl-wv.txt", "ini file:file not found",
opal_show_help("help-mpi-btl-wv.txt", "ini file:file not found",
true, filename);
ret = OMPI_ERR_NOT_FOUND;
goto cleanup;
@ -418,7 +418,7 @@ static int parse_line(parsed_section_values_t *sv)
/* Have no idea what this parameter is. Not an error -- just
ignore it */
if (!showed_unknown_field_warning) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"ini file:unknown field", true,
ini_filename, btl_wv_ini_yynewlines,
key_buffer);
@ -687,7 +687,7 @@ static inline void show_help(const char *topic)
if (0 == strcmp("\n", btl_wv_ini_yytext)) {
btl_wv_ini_yytext = "<end of line>";
}
ompi_show_help("help-mpi-btl-wv.txt", topic, true,
opal_show_help("help-mpi-btl-wv.txt", topic, true,
ini_filename, btl_wv_ini_yynewlines,
btl_wv_ini_yytext);
btl_wv_ini_yytext = save;

28
ompi/mca/btl/wv/btl_wv_mca.c
Просмотреть файл

@ -165,7 +165,7 @@ int btl_wv_register_mca_params(void)
"(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)",
ival2, &ival, 0));
if (0 != ival) {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"ib_fork requested but not supported", true,
ompi_process_info.nodename);
return OMPI_ERROR;
@ -195,7 +195,7 @@ int btl_wv_register_mca_params(void)
} else if (0 == strcasecmp(str, "all")) {
mca_btl_wv_component.device_type = BTL_WV_DT_ALL;
} else {
ompi_show_help("help-mpi-btl-wv.txt",
opal_show_help("help-mpi-btl-wv.txt",
"ib_fork requested but not supported", true,
ompi_process_info.nodename);
return OMPI_ERROR;
@ -281,7 +281,7 @@ int btl_wv_register_mca_params(void)
CHECK(reg_int("mtu", "ib_mtu", msg, WV_MTU_1024, &ival, 0));
free(msg);
if (ival < WV_MTU_1024 || ival > WV_MTU_4096) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "invalid value for btl_wv_ib_mtu",
"btl_wv_ib_mtu reset to 1024");
mca_btl_wv_component.ib_mtu = WV_MTU_1024;
@ -294,12 +294,12 @@ int btl_wv_register_mca_params(void)
"(must be >= 0 and <= 31)",
25, &ival, 0));
if (ival > 31) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_min_rnr_timer > 31",
"btl_wv_ib_min_rnr_timer reset to 31");
ival = 31;
} else if (ival < 0){
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_min_rnr_timer < 0",
"btl_wv_ib_min_rnr_timer reset to 0");
ival = 0;
@ -311,12 +311,12 @@ int btl_wv_register_mca_params(void)
"(must be >= 0 and <= 31)",
20, &ival, 0));
if (ival > 31) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_timeout > 31",
"btl_wv_ib_timeout reset to 31");
ival = 31;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_timeout < 0",
"btl_wv_ib_timeout reset to 0");
ival = 0;
@ -328,12 +328,12 @@ int btl_wv_register_mca_params(void)
"(must be >= 0 and <= 7)",
7, &ival, 0));
if (ival > 7) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_retry_count > 7",
"btl_wv_ib_retry_count reset to 7");
ival = 7;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_retry_count < 0",
"btl_wv_ib_retry_count reset to 0");
ival = 0;
@ -348,12 +348,12 @@ int btl_wv_register_mca_params(void)
"(must be >= 0 and <= 7; 7 = \"infinite\")",
7, &ival, 0));
if (ival > 7) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_rnr_retry > 7",
"btl_wv_ib_rnr_retry reset to 7");
ival = 7;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_rnr_retry < 0",
"btl_wv_ib_rnr_retry reset to 0");
ival = 0;
@ -364,12 +364,12 @@ int btl_wv_register_mca_params(void)
"(must be >= 0 and <= 15)",
0, &ival, 0));
if (ival > 15) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_service_level > 15",
"btl_wv_ib_service_level reset to 15");
ival = 15;
} else if (ival < 0) {
ompi_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
opal_show_help("help-mpi-btl-wv.txt", "invalid mca param value",
true, "btl_wv_ib_service_level < 0",
"btl_wv_ib_service_level reset to 0");
ival = 0;
@ -426,7 +426,7 @@ int btl_wv_register_mca_params(void)
"(must be > 0 and power of two)",
64, &ival, REGINT_GE_ZERO));
if(ival <= 1 || (ival & (ival - 1))) {
ompi_show_help("help-mpi-btl-wv.txt", "wrong buffer alignment",
opal_show_help("help-mpi-btl-wv.txt", "wrong buffer alignment",
true, ival, ompi_process_info.nodename, 64);
mca_btl_wv_component.buffer_alignment = 64;
} else {

6
ompi/mca/btl/wv/connect/btl_wv_connect_base.c
Просмотреть файл

@ -83,7 +83,7 @@ int ompi_btl_wv_connect_base_register(void)
}
}
if (NULL == all[i]) {
ompi_show_help("help-mpi-btl-wv-cpc-base.txt",
opal_show_help("help-mpi-btl-wv-cpc-base.txt",
"cpc name not found", true,
"include", ompi_process_info.nodename,
"include", cpc_include, temp[j],
@ -109,7 +109,7 @@ int ompi_btl_wv_connect_base_register(void)
}
}
if (NULL == all[i]) {
ompi_show_help("help-mpi-btl-wv-cpc-base.txt",
opal_show_help("help-mpi-btl-wv-cpc-base.txt",
"cpc name not found", true,
"exclude", ompi_process_info.nodename,
"exclude", cpc_exclude, temp[j],
@ -255,7 +255,7 @@ int ompi_btl_wv_connect_base_select_for_local_port(mca_btl_wv_module_t *btl)
/* If we got an empty array, then no CPCs were eligible. Doh! */
if (0 == cpc_index) {
ompi_show_help("help-mpi-btl-wv-cpc-base.txt",
opal_show_help("help-mpi-btl-wv-cpc-base.txt",
"no cpcs for port", true,
ompi_process_info.nodename,
btl->device->ib_dev->name,

2
ompi/mca/btl/wv/connect/btl_wv_connect_oob.c
Просмотреть файл

@ -1015,7 +1015,7 @@ static int init_ud_qp(struct wv_context *context_arg,
cache->cq->cqe = (uint32_t) entries;
if (NULL == cache->cq) {
BTL_ERROR(("error creating cq, errno says %s", strerror(errno)));
ompi_show_help("help-mpi-btl-wv.txt", "init-fail-create-q",
opal_show_help("help-mpi-btl-wv.txt", "init-fail-create-q",
true, ompi_process_info.nodename,
__FILE__, __LINE__, "create_cq",
strerror(errno), errno,

3
ompi/mca/coll/base/coll_base_comm_select.c
Просмотреть файл

@ -30,6 +30,7 @@
#include "mpi.h"
#include "ompi/communicator/communicator.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "opal/class/opal_list.h"
#include "opal/class/opal_object.h"
#include "opal/mca/mca.h"
@ -117,7 +118,7 @@ int mca_coll_base_comm_select(ompi_communicator_t * comm)
collective modules available, then print error and return. */
if (NULL == selectable) {
/* There's no modules available */
ompi_show_help("help-mca-coll-base",
opal_show_help("help-mca-coll-base",
"comm-select:none-available", true);
return OMPI_ERROR;
}

3
ompi/mca/coll/base/coll_base_find_available.c
Просмотреть файл

@ -26,6 +26,7 @@
#include <string.h>
#include "mpi.h"
#include "opal/util/show_help.h"
#include "ompi/constants.h"
#include "opal/class/opal_list.h"
#include "opal/util/output.h"
@ -133,7 +134,7 @@ int mca_coll_base_find_available(bool enable_progress_threads,
mca_coll_base_components_available_valid = false;
opal_output_verbose(10, mca_coll_base_output,
"coll:find_available: no coll components available!");
ompi_show_help("help-mca-base", "find-available:none-found", true,
opal_show_help("help-mca-base", "find-available:none-found", true,
"coll");
return OMPI_ERROR;
}

5
ompi/mca/coll/sm/coll_sm_component.c
Просмотреть файл

@ -27,6 +27,7 @@
#include "ompi_config.h"
#include "opal/util/show_help.h"
#include "ompi/constants.h"
#include "ompi/mca/coll/coll.h"
#include "coll_sm.h"
@ -190,13 +191,13 @@ static int sm_register(void)
cs->sm_tree_degree,
&cs->sm_tree_degree);
if (cs->sm_tree_degree > cs->sm_control_size) {
ompi_show_help("help-mpi-coll-sm.txt",
opal_show_help("help-mpi-coll-sm.txt",
"tree-degree-larger-than-control", true,
cs->sm_tree_degree, cs->sm_control_size);
cs->sm_tree_degree = cs->sm_control_size;
}
if (cs->sm_tree_degree > 255) {
ompi_show_help("help-mpi-coll-sm.txt",
opal_show_help("help-mpi-coll-sm.txt",
"tree-degree-larger-than-255", true,
cs->sm_tree_degree);
cs->sm_tree_degree = 255;

88
ompi/mca/common/cuda/common_cuda.c
Просмотреть файл

@ -190,10 +190,10 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
/* Check for the not initialized error since we can make suggestions to
* user for this error. */
if (CUDA_ERROR_NOT_INITIALIZED == res) {
ompi_show_help("help-mpi-common-cuda.txt", "cuCtxGetCurrent failed not initialized",
opal_show_help("help-mpi-common-cuda.txt", "cuCtxGetCurrent failed not initialized",
true);
} else {
ompi_show_help("help-mpi-common-cuda.txt", "cuCtxGetCurrent failed",
opal_show_help("help-mpi-common-cuda.txt", "cuCtxGetCurrent failed",
true, res);
}
}
@ -201,7 +201,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
mca_common_cuda_register_memory = false;
} else if ((CUDA_SUCCESS == res) && (NULL == cuContext)) {
if (mca_common_cuda_warning) {
ompi_show_help("help-mpi-common-cuda.txt", "cuCtxGetCurrent returned NULL",
opal_show_help("help-mpi-common-cuda.txt", "cuCtxGetCurrent returned NULL",
true);
}
mca_common_cuda_enabled = false;
@ -226,7 +226,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
cuda_event_ipc_array = (CUevent *) malloc(sizeof(CUevent) * cuda_event_max);
if (NULL == cuda_event_ipc_array) {
ompi_show_help("help-mpi-common-cuda.txt", "No memory",
opal_show_help("help-mpi-common-cuda.txt", "No memory",
true, errno, strerror(errno));
return OMPI_ERROR;
}
@ -235,7 +235,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
for (i = 0; i < cuda_event_max; i++) {
res = cuEventCreate(&cuda_event_ipc_array[i], CU_EVENT_DISABLE_TIMING);
if (CUDA_SUCCESS != res) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
true, res);
return OMPI_ERROR;
}
@ -246,7 +246,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
cuda_event_ipc_frag_array = (struct mca_btl_base_descriptor_t **)
malloc(sizeof(struct mca_btl_base_descriptor_t *) * cuda_event_max);
if (NULL == cuda_event_ipc_frag_array) {
ompi_show_help("help-mpi-common-cuda.txt", "No memory",
opal_show_help("help-mpi-common-cuda.txt", "No memory",
true, errno, strerror(errno));
return OMPI_ERROR;
}
@ -264,7 +264,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
cuda_event_dtoh_array = (CUevent *) malloc(sizeof(CUevent) * cuda_event_max);
if (NULL == cuda_event_dtoh_array) {
ompi_show_help("help-mpi-common-cuda.txt", "No memory",
opal_show_help("help-mpi-common-cuda.txt", "No memory",
true, errno, strerror(errno));
return OMPI_ERROR;
}
@ -273,7 +273,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
for (i = 0; i < cuda_event_max; i++) {
res = cuEventCreate(&cuda_event_dtoh_array[i], CU_EVENT_DISABLE_TIMING);
if (CUDA_SUCCESS != res) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
true, res);
return OMPI_ERROR;
}
@ -284,7 +284,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
cuda_event_dtoh_frag_array = (struct mca_btl_base_descriptor_t **)
malloc(sizeof(struct mca_btl_base_descriptor_t *) * cuda_event_max);
if (NULL == cuda_event_dtoh_frag_array) {
ompi_show_help("help-mpi-common-cuda.txt", "No memory",
opal_show_help("help-mpi-common-cuda.txt", "No memory",
true, errno, strerror(errno));
return OMPI_ERROR;
}
@ -299,7 +299,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
cuda_event_htod_array = (CUevent *) malloc(sizeof(CUevent) * cuda_event_max);
if (NULL == cuda_event_htod_array) {
ompi_show_help("help-mpi-common-cuda.txt", "No memory",
opal_show_help("help-mpi-common-cuda.txt", "No memory",
true, errno, strerror(errno));
return OMPI_ERROR;
}
@ -308,7 +308,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
for (i = 0; i < cuda_event_max; i++) {
res = cuEventCreate(&cuda_event_htod_array[i], CU_EVENT_DISABLE_TIMING);
if (CUDA_SUCCESS != res) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
true, res);
return OMPI_ERROR;
}
@ -319,7 +319,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
cuda_event_htod_frag_array = (struct mca_btl_base_descriptor_t **)
malloc(sizeof(struct mca_btl_base_descriptor_t *) * cuda_event_max);
if (NULL == cuda_event_htod_frag_array) {
ompi_show_help("help-mpi-common-cuda.txt", "No memory",
opal_show_help("help-mpi-common-cuda.txt", "No memory",
true, errno, strerror(errno));
return OMPI_ERROR;
}
@ -334,7 +334,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
if (res != CUDA_SUCCESS) {
/* If registering the memory fails, print a message and continue.
* This is not a fatal error. */
ompi_show_help("help-mpi-common-cuda.txt", "cuMemHostRegister failed",
opal_show_help("help-mpi-common-cuda.txt", "cuMemHostRegister failed",
true, mem_reg->ptr, mem_reg->amount,
ompi_process_info.nodename, res, mem_reg->msg);
} else {
@ -351,7 +351,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
/* Create stream for use in ipc asynchronous copies */
res = cuStreamCreate(&ipcStream, 0);
if (res != CUDA_SUCCESS) {
ompi_show_help("help-mpi-common-cuda.txt", "cuStreamCreate failed",
opal_show_help("help-mpi-common-cuda.txt", "cuStreamCreate failed",
true, res);
return OMPI_ERROR;
}
@ -359,7 +359,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
/* Create stream for use in dtoh asynchronous copies */
res = cuStreamCreate(&dtohStream, 0);
if (res != CUDA_SUCCESS) {
ompi_show_help("help-mpi-common-cuda.txt", "cuStreamCreate failed",
opal_show_help("help-mpi-common-cuda.txt", "cuStreamCreate failed",
true, res);
return OMPI_ERROR;
@ -368,7 +368,7 @@ static int mca_common_cuda_init(opal_common_cuda_function_table_t *ftable)
/* Create stream for use in htod asynchronous copies */
res = cuStreamCreate(&htodStream, 0);
if (res != CUDA_SUCCESS) {
ompi_show_help("help-mpi-common-cuda.txt", "cuStreamCreate failed",
opal_show_help("help-mpi-common-cuda.txt", "cuStreamCreate failed",
true, res);
return OMPI_ERROR;
@ -408,7 +408,7 @@ void mca_common_cuda_register(void *ptr, size_t amount, char *msg) {
if (res != CUDA_SUCCESS) {
/* If registering the memory fails, print a message and continue.
* This is not a fatal error. */
ompi_show_help("help-mpi-common-cuda.txt", "cuMemHostRegister failed",
opal_show_help("help-mpi-common-cuda.txt", "cuMemHostRegister failed",
true, ptr, amount,
ompi_process_info.nodename, res, msg);
} else {
@ -447,7 +447,7 @@ void mca_common_cuda_unregister(void *ptr, char *msg) {
if (res != CUDA_SUCCESS) {
/* If unregistering the memory fails, print a message and continue.
* This is not a fatal error. */
ompi_show_help("help-mpi-common-cuda.txt", "cuMemHostUnregister failed",
opal_show_help("help-mpi-common-cuda.txt", "cuMemHostUnregister failed",
true, ptr,
ompi_process_info.nodename, res, msg);
} else {
@ -488,7 +488,7 @@ int cuda_getmemhandle(void *base, size_t size, mca_mpool_base_registration_t *ne
CUDA_DUMP_MEMHANDLE((100, &memHandle, "GetMemHandle-After"));
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuIpcGetMemHandle failed",
opal_show_help("help-mpi-common-cuda.txt", "cuIpcGetMemHandle failed",
true, result, base);
return OMPI_ERROR;
} else {
@ -501,7 +501,7 @@ int cuda_getmemhandle(void *base, size_t size, mca_mpool_base_registration_t *ne
* how the remote side saves the handles in a cache. */
result = cuMemGetAddressRange(&pbase, &psize, (CUdeviceptr)base);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuMemGetAddressRange failed",
opal_show_help("help-mpi-common-cuda.txt", "cuMemGetAddressRange failed",
true, result, base);
return OMPI_ERROR;
} else {
@ -524,7 +524,7 @@ int cuda_getmemhandle(void *base, size_t size, mca_mpool_base_registration_t *ne
* with. */
result = cuEventRecord((CUevent)cuda_reg->event, 0);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
true, result, base);
return OMPI_ERROR;
}
@ -576,7 +576,7 @@ int cuda_openmemhandle(void *base, size_t size, mca_mpool_base_registration_t *n
return OMPI_ERR_WOULD_BLOCK;
}
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuIpcOpenMemHandle failed",
opal_show_help("help-mpi-common-cuda.txt", "cuIpcOpenMemHandle failed",
true, result, base);
/* Currently, this is a non-recoverable error */
return OMPI_ERROR;
@ -600,7 +600,7 @@ int cuda_closememhandle(void *reg_data, mca_mpool_base_registration_t *reg)
result = cuIpcCloseMemHandle((CUdeviceptr)cuda_reg->base.alloc_base);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuIpcCloseMemHandle failed",
opal_show_help("help-mpi-common-cuda.txt", "cuIpcCloseMemHandle failed",
true, result, cuda_reg->base.alloc_base);
/* We will just continue on and hope things continue to work. */
} else {
@ -619,13 +619,13 @@ void mca_common_cuda_construct_event_and_handle(uint64_t **event, void **handle)
result = cuEventCreate((CUevent *)event, CU_EVENT_INTERPROCESS | CU_EVENT_DISABLE_TIMING);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventCreate failed",
true, result);
}
result = cuIpcGetEventHandle((CUipcEventHandle *)handle, (CUevent)*event);
if (CUDA_SUCCESS != result){
ompi_show_help("help-mpi-common-cuda.txt", "cuIpcGetEventHandle failed",
opal_show_help("help-mpi-common-cuda.txt", "cuIpcGetEventHandle failed",
true, result);
}
@ -639,7 +639,7 @@ void mca_common_cuda_destruct_event(uint64_t *event)
result = cuEventDestroy((CUevent)event);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventDestroy failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventDestroy failed",
true, result);
}
}
@ -660,7 +660,7 @@ void mca_common_wait_stream_synchronize(mca_mpool_common_cuda_reg_t *rget_reg)
result = cuIpcOpenEventHandle(&event, evtHandle);
if (CUDA_SUCCESS != result){
ompi_show_help("help-mpi-common-cuda.txt", "cuIpcOpenEventHandle failed",
opal_show_help("help-mpi-common-cuda.txt", "cuIpcOpenEventHandle failed",
true, result);
}
@ -671,21 +671,21 @@ void mca_common_wait_stream_synchronize(mca_mpool_common_cuda_reg_t *rget_reg)
*/
result = cuEventRecord(event, 0);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
true, result);
}
/* END of Workaround */
result = cuStreamWaitEvent(0, event, 0);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuStreamWaitEvent failed",
opal_show_help("help-mpi-common-cuda.txt", "cuStreamWaitEvent failed",
true, result);
}
/* All done with this event. */
result = cuEventDestroy(event);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventDestroy failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventDestroy failed",
true, result);
}
}
@ -704,7 +704,7 @@ int mca_common_cuda_memcpy(void *dst, void *src, size_t amount, char *msg,
* return an error. The error message will tell the user to try and
* run again, but with a larger array for storing events. */
if (cuda_event_ipc_num_used == cuda_event_max) {
ompi_show_help("help-mpi-common-cuda.txt", "Out of cuEvent handles",
opal_show_help("help-mpi-common-cuda.txt", "Out of cuEvent handles",
true, cuda_event_max, cuda_event_max+100, cuda_event_max+100);
return OMPI_ERR_OUT_OF_RESOURCE;
}
@ -714,7 +714,7 @@ int mca_common_cuda_memcpy(void *dst, void *src, size_t amount, char *msg,
if (OPAL_LIKELY(mca_common_cuda_async)) {
result = cuMemcpyAsync((CUdeviceptr)dst, (CUdeviceptr)src, amount, ipcStream);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuMemcpyAsync failed",
opal_show_help("help-mpi-common-cuda.txt", "cuMemcpyAsync failed",
true, dst, src, amount, result);
return OMPI_ERROR;
} else {
@ -724,7 +724,7 @@ int mca_common_cuda_memcpy(void *dst, void *src, size_t amount, char *msg,
}
result = cuEventRecord(cuda_event_ipc_array[cuda_event_ipc_first_avail], ipcStream);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
true, result);
return OMPI_ERROR;
}
@ -742,7 +742,7 @@ int mca_common_cuda_memcpy(void *dst, void *src, size_t amount, char *msg,
/* Mimic the async function so they use the same memcpy call. */
result = cuMemcpyAsync((CUdeviceptr)dst, (CUdeviceptr)src, amount, ipcStream);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuMemcpyAsync failed",
opal_show_help("help-mpi-common-cuda.txt", "cuMemcpyAsync failed",
true, dst, src, amount, result);
return OMPI_ERROR;
} else {
@ -754,7 +754,7 @@ int mca_common_cuda_memcpy(void *dst, void *src, size_t amount, char *msg,
/* Record an event, then wait for it to complete with calls to cuEventQuery */
result = cuEventRecord(cuda_event_ipc_array[cuda_event_ipc_first_avail], ipcStream);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
true, result);
return OMPI_ERROR;
}
@ -770,7 +770,7 @@ int mca_common_cuda_memcpy(void *dst, void *src, size_t amount, char *msg,
result = cuEventQuery(cuda_event_ipc_array[cuda_event_ipc_first_used]);
if ((CUDA_SUCCESS != result) && (CUDA_ERROR_NOT_READY != result)) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
true, result);
return OMPI_ERROR;
}
@ -782,7 +782,7 @@ int mca_common_cuda_memcpy(void *dst, void *src, size_t amount, char *msg,
}
result = cuEventQuery(cuda_event_ipc_array[cuda_event_ipc_first_used]);
if ((CUDA_SUCCESS != result) && (CUDA_ERROR_NOT_READY != result)) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
true, result);
return OMPI_ERROR;
}
@ -811,14 +811,14 @@ int mca_common_cuda_record_dtoh_event(char *msg, struct mca_btl_base_descriptor_
* return an error. The error message will tell the user to try and
* run again, but with a larger array for storing events. */
if (cuda_event_dtoh_num_used == cuda_event_max) {
ompi_show_help("help-mpi-common-cuda.txt", "Out of cuEvent handles",
opal_show_help("help-mpi-common-cuda.txt", "Out of cuEvent handles",
true, cuda_event_max, cuda_event_max+100, cuda_event_max+100);
return OMPI_ERR_OUT_OF_RESOURCE;
}
result = cuEventRecord(cuda_event_dtoh_array[cuda_event_dtoh_first_avail], dtohStream);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
true, result);
return OMPI_ERROR;
}
@ -846,14 +846,14 @@ int mca_common_cuda_record_htod_event(char *msg, struct mca_btl_base_descriptor_
* return an error. The error message will tell the user to try and
* run again, but with a larger array for storing events. */
if (cuda_event_htod_num_used == cuda_event_max) {
ompi_show_help("help-mpi-common-cuda.txt", "Out of cuEvent handles",
opal_show_help("help-mpi-common-cuda.txt", "Out of cuEvent handles",
true, cuda_event_max, cuda_event_max+100, cuda_event_max+100);
return OMPI_ERR_OUT_OF_RESOURCE;
}
result = cuEventRecord(cuda_event_htod_array[cuda_event_htod_first_avail], htodStream);
if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventRecord failed",
true, result);
return OMPI_ERROR;
}
@ -905,7 +905,7 @@ int progress_one_cuda_ipc_event(struct mca_btl_base_descriptor_t **frag) {
*frag = NULL;
return 0;
} else if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
true, result);
*frag = NULL;
return OMPI_ERROR;
@ -947,7 +947,7 @@ int progress_one_cuda_dtoh_event(struct mca_btl_base_descriptor_t **frag) {
*frag = NULL;
return 0;
} else if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
true, result);
*frag = NULL;
return OMPI_ERROR;
@ -989,7 +989,7 @@ int progress_one_cuda_htod_event(struct mca_btl_base_descriptor_t **frag) {
*frag = NULL;
return 0;
} else if (CUDA_SUCCESS != result) {
ompi_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
opal_show_help("help-mpi-common-cuda.txt", "cuEventQuery failed",
true, result);
*frag = NULL;
return OMPI_ERROR;

6
ompi/mca/common/ofacm/common_ofacm_base.c
Просмотреть файл

@ -268,7 +268,7 @@ int ompi_common_ofacm_base_register(mca_base_component_t *base)
}
}
if (NULL == all[i]) {
ompi_show_help("help-mpi-common-ofacm-cpc-base.txt",
opal_show_help("help-mpi-common-ofacm-cpc-base.txt",
"cpc name not found", true,
"include", ompi_process_info.nodename,
"include", cpc_include, temp[j],
@ -294,7 +294,7 @@ int ompi_common_ofacm_base_register(mca_base_component_t *base)
}
}
if (NULL == all[i]) {
ompi_show_help("help-mpi-common-ofacm-cpc-base.txt",
opal_show_help("help-mpi-common-ofacm-cpc-base.txt",
"cpc name not found", true,
"exclude", ompi_process_info.nodename,
"exclude", cpc_exclude, temp[j],
@ -448,7 +448,7 @@ int ompi_common_ofacm_base_select_for_local_port(ompi_common_ofacm_base_dev_desc
/* If we got an empty array, then no CPCs were eligible. Doh! */
if (0 == cpc_index) {
ompi_show_help("help-mpi-common-ofacm-cpc-base.txt",
opal_show_help("help-mpi-common-ofacm-cpc-base.txt",
"no cpcs for port", true,
ompi_process_info.nodename,
ibv_get_device_name(dev->ib_dev),

4
ompi/mca/common/ofacm/common_ofacm_oob.c
Просмотреть файл

@ -582,7 +582,7 @@ static int qp_create_one(ompi_common_ofacm_base_local_connection_context_t *cont
if (init_attr.cap.max_inline_data < req_inline) {
context->qps[qp].ib_inline_max = init_attr.cap.max_inline_data;
ompi_show_help("help-mpi-common-ofacm-cpc-base.txt",
opal_show_help("help-mpi-common-ofacm-cpc-base.txt",
"inline truncated", true, ompi_process_info.nodename,
req_inline, init_attr.cap.max_inline_data);
} else {
@ -741,7 +741,7 @@ static void report_error(ompi_common_ofacm_base_local_connection_context_t* cont
{
if (NULL == context || NULL == context->error_cb) {
/* The context is undefined and we can not print specific error */
ompi_show_help("help-mpi-common-ofacm-oob.txt",
opal_show_help("help-mpi-common-ofacm-oob.txt",
"ofacm oob fatal error", true,
ompi_process_info.nodename,
__FILE__, __LINE__);

4
ompi/mca/common/ofacm/common_ofacm_xoob.c
Просмотреть файл

@ -318,7 +318,7 @@ static void xoob_report_error(ompi_common_ofacm_xoob_local_connection_context_t
{
if (NULL == xcontext || NULL == (XOOB_TO_BASE(xcontext))->error_cb) {
/* The context is undefined and we can not print specific error */
ompi_show_help("help-mpi-common-ofacm-oob.txt",
opal_show_help("help-mpi-common-ofacm-oob.txt",
"ofacm oob fatal error", true,
ompi_process_info.nodename,
__FILE__, __LINE__);
@ -825,7 +825,7 @@ static int xoob_send_qp_create
if (init_attr.cap.max_inline_data < req_inline) {
context->qps[0].ib_inline_max = init_attr.cap.max_inline_data;
ompi_show_help("help-mpi-common-ofacm-cpc-base.txt",
opal_show_help("help-mpi-common-ofacm-cpc-base.txt",
"inline truncated", true, ompi_process_info.nodename,
req_inline, init_attr.cap.max_inline_data);
} else {

3
ompi/mca/common/sm/common_sm.c
Просмотреть файл

@ -42,6 +42,7 @@
#include "opal/align.h"
#include "opal/util/argv.h"
#include "opal/util/show_help.h"
#include "opal/mca/shmem/shmem.h"
#if OPAL_ENABLE_FT_CR == 1
#include "opal/runtime/opal_cr.h"
@ -114,7 +115,7 @@ attach_and_init(opal_shmem_ds_t *shmem_bufp,
addr = OPAL_ALIGN_PTR(addr, data_seg_alignment, unsigned char *);
/* is addr past end of the shared memory segment? */
if ((unsigned char *)seg + shmem_bufp->seg_size < addr) {
ompi_show_help("help-mpi-common-sm.txt", "mmap too small", 1,
opal_show_help("help-mpi-common-sm.txt", "mmap too small", 1,
ompi_process_info.nodename,
(unsigned long)shmem_bufp->seg_size,
(unsigned long)size_ctl_structure,

3
ompi/mca/common/sm/common_sm_rml.c
Просмотреть файл

@ -24,6 +24,7 @@
#include "opal/types.h"
#include "opal/dss/dss.h"
#include "opal/util/show_help.h"
#include "ompi/constants.h"
#include "ompi/mca/rte/rte.h"
@ -127,7 +128,7 @@ mca_common_sm_rml_info_bcast(opal_shmem_ds_t *out_ds_buf,
* outside of our current scope of assumptions. see "RML Messaging and
* Our Assumptions" note in common_sm.c */
if (0 != strcmp(msg_id_str_to_tx, msg_id_str)) {
ompi_show_help("help-mpi-common-sm.txt", "unexpected message id",
opal_show_help("help-mpi-common-sm.txt", "unexpected message id",
true, ompi_process_info.nodename,
msg_id_str, msg_id_str_to_tx);
rc = OMPI_ERROR;

2
ompi/mca/common/verbs/common_verbs_find_max_inline.c
Просмотреть файл

@ -66,7 +66,7 @@ int ompi_common_verbs_find_max_inline(struct ibv_device *device,
cq = ibv_create_cq(context, 1, NULL, NULL, 0);
#endif
if (NULL == cq) {
ompi_show_help("help-mpi-btl-openib.txt", "init-fail-create-q",
opal_show_help("help-mpi-btl-openib.txt", "init-fail-create-q",
true, ompi_process_info.nodename,
__FILE__, __LINE__, "ibv_create_cq",
strerror(errno), errno,

8
ompi/mca/common/verbs/common_verbs_find_ports.c
Просмотреть файл

@ -288,7 +288,7 @@ opal_list_t *ompi_common_verbs_find_ports(const char *if_include,
opal_output_verbose(5, stream, "examining verbs interface: %s",
ibv_get_device_name(device));
if (NULL == device_context) {
ompi_show_help("help-ompi-common-verbs.txt",
opal_show_help("help-ompi-common-verbs.txt",
"ibv_open_device fail", true,
ompi_process_info.nodename,
ibv_get_device_name(device),
@ -297,7 +297,7 @@ opal_list_t *ompi_common_verbs_find_ports(const char *if_include,
}
if (ibv_query_device(device_context, &device_attr)){
ompi_show_help("help-ompi-common-verbs.txt",
opal_show_help("help-ompi-common-verbs.txt",
"ibv_query_device fail", true,
ompi_process_info.nodename,
ibv_get_device_name(device),
@ -382,7 +382,7 @@ opal_list_t *ompi_common_verbs_find_ports(const char *if_include,
/* Query the port */
if (ibv_query_port(device_context, (uint8_t) j, &port_attr)) {
ompi_show_help("help-ompi-common-verbs.txt",
opal_show_help("help-ompi-common-verbs.txt",
"ibv_query_port fail", true,
ompi_process_info.nodename,
ibv_get_device_name(device),
@ -469,7 +469,7 @@ opal_list_t *ompi_common_verbs_find_ports(const char *if_include,
if (0 != opal_argv_count(if_sanity_list)) {
if (ompi_common_verbs_warn_nonexistent_if) {
char *str = opal_argv_join(if_sanity_list, ',');
ompi_show_help("help-ompi-common-verbs.txt", "nonexistent port",
opal_show_help("help-ompi-common-verbs.txt", "nonexistent port",
true, ompi_process_info.nodename,
((NULL != if_include) ? "in" : "ex"), str);
free(str);

3
ompi/mca/mpool/base/mpool_base_lookup.c
Просмотреть файл

@ -31,6 +31,7 @@
#include "opal/mca/mca.h"
#include "opal/mca/base/base.h"
#include "opal/util/show_help.h"
#include "ompi/mca/rte/rte.h"
#include "ompi/runtime/params.h"
@ -115,7 +116,7 @@ mca_mpool_base_module_t* mca_mpool_base_module_create(
opal_mem_hooks_support_level())) {
opal_mem_hooks_register_release(mca_mpool_base_mem_cb, NULL);
} else {
ompi_show_help("help-mpool-base.txt", "leave pinned failed",
opal_show_help("help-mpool-base.txt", "leave pinned failed",
true, name, OMPI_NAME_PRINT(OMPI_PROC_MY_NAME),
ompi_process_info.nodename);
return NULL;

3
ompi/mca/mpool/base/mpool_base_mem_cb.c
Просмотреть файл

@ -28,6 +28,7 @@
#include <unistd.h>
#endif
#include "opal/util/show_help.h"
#include "ompi/mca/rte/rte.h"
#include "ompi/runtime/mpiruntime.h"
@ -78,7 +79,7 @@ void mca_mpool_base_mem_cb(void* base, size_t size, void* cbdata,
msg[sizeof(msg) - 1] = '\0';
write(2, msg, len);
} else {
ompi_show_help("help-mpool-base.txt",
opal_show_help("help-mpool-base.txt",
"cannot deregister in-use memory", true,
current->mpool_component->mpool_version.mca_component_name,
ompi_process_info.nodename,

5
ompi/mca/mpool/base/mpool_base_tree.c
Просмотреть файл

@ -28,6 +28,7 @@
#include "ompi_config.h"
#include "opal/mca/mca.h"
#include "opal/util/show_help.h"
#include "ompi/mca/rte/rte.h"
#include "ompi/runtime/params.h"
@ -178,13 +179,13 @@ void mca_mpool_base_tree_print(void)
if (num_leaks <= ompi_debug_show_mpi_alloc_mem_leaks ||
ompi_debug_show_mpi_alloc_mem_leaks < 0) {
ompi_show_help("help-mpool-base.txt", "all mem leaks",
opal_show_help("help-mpool-base.txt", "all mem leaks",
true, OMPI_NAME_PRINT(OMPI_PROC_MY_NAME),
ompi_process_info.nodename,
ompi_process_info.pid, leak_msg);
} else {
int i = num_leaks - ompi_debug_show_mpi_alloc_mem_leaks;
ompi_show_help("help-mpool-base.txt", "some mem leaks",
opal_show_help("help-mpool-base.txt", "some mem leaks",
true, OMPI_NAME_PRINT(OMPI_PROC_MY_NAME),
ompi_process_info.nodename,
ompi_process_info.pid, leak_msg, i,

12
ompi/mca/mtl/mxm/mtl_mxm.c
Просмотреть файл

@ -59,7 +59,7 @@ static uint32_t ompi_mtl_mxm_get_job_id(void)
memset(uu, 0, sizeof(unique_job_key));
if (!generated_key || (strlen(generated_key) != 33) || sscanf(generated_key, "%016llx-%016llx", &uu[0], &uu[1]) != 2) {
ompi_show_help("help-mtl-mxm.txt", "no uuid present", true,
opal_show_help("help-mtl-mxm.txt", "no uuid present", true,
generated_key ? "could not be parsed from" :
"not present in", ompi_process_info.nodename);
return 0;
@ -90,7 +90,7 @@ static int ompi_mtl_mxm_get_ep_address(ompi_mtl_mxm_ep_conn_info_t *ep_info, mxm
err = mxm_ep_address(ompi_mtl_mxm.ep, ptlid,
(struct sockaddr *) &ep_info->ptl_addr[ptlid], &addrlen);
if (MXM_OK != err) {
ompi_show_help("help-mtl-mxm.txt", "unable to extract endpoint address",
opal_show_help("help-mtl-mxm.txt", "unable to extract endpoint address",
true, (int)ptlid, mxm_error_string(err));
return OMPI_ERROR;
}
@ -113,7 +113,7 @@ static int ompi_mtl_mxm_get_ep_address(ompi_mtl_mxm_ep_conn_info_t *ep_info, int
} else if (MXM_ERR_UNREACHABLE == err) {
return OMPI_SUCCESS;
} else {
ompi_show_help("help-mtl-mxm.txt", "unable to extract endpoint address",
opal_show_help("help-mtl-mxm.txt", "unable to extract endpoint address",
true, (int)domain, mxm_error_string(err));
return OMPI_ERROR;
}
@ -347,7 +347,7 @@ int ompi_mtl_mxm_module_init(void)
);
if (MXM_OK != err) {
ompi_show_help("help-mtl-mxm.txt", "unable to create endpoint", true,
opal_show_help("help-mtl-mxm.txt", "unable to create endpoint", true,
mxm_error_string(err));
return OMPI_ERROR;
}
@ -568,7 +568,7 @@ int ompi_mtl_mxm_add_comm(struct mca_mtl_base_module_t *mtl,
err = mxm_mq_create(ompi_mtl_mxm.mxm_context, comm->c_contextid, &mq);
if (MXM_OK != err) {
ompi_show_help("help-mtl-mxm.txt", "mxm mq create", true, mxm_error_string(err));
opal_show_help("help-mtl-mxm.txt", "mxm mq create", true, mxm_error_string(err));
return OMPI_ERROR;
}
@ -592,7 +592,7 @@ int ompi_mtl_mxm_progress(void)
err = mxm_progress(ompi_mtl_mxm.mxm_context);
if ((MXM_OK != err) && (MXM_ERR_NO_PROGRESS != err) ) {
ompi_show_help("help-mtl-mxm.txt", "errors during mxm_progress", true, mxm_error_string(err));
opal_show_help("help-mtl-mxm.txt", "errors during mxm_progress", true, mxm_error_string(err));
}
return 1;
}

6
ompi/mca/mtl/mxm/mtl_mxm_component.c
Просмотреть файл

@ -93,7 +93,7 @@ static int ompi_mtl_mxm_component_open(void)
"version %ld.%ld detected.", MXM_VERNO_MAJOR,
MXM_VERNO_MINOR, (cur_ver >> MXM_MAJOR_BIT)& 0xff,
(cur_ver >> MXM_MINOR_BIT) & 0xff)>0) {
ompi_show_help("help-mtl-mxm.txt", "mxm init", true, str);
opal_show_help("help-mtl-mxm.txt", "mxm init", true, str);
free(str);
}
@ -119,7 +119,7 @@ static int ompi_mtl_mxm_component_open(void)
if (MXM_ERR_NO_DEVICE == err) {
MXM_VERBOSE(1, "No supported device found, disqualifying mxm");
} else {
ompi_show_help("help-mtl-mxm.txt", "mxm init", true,
opal_show_help("help-mtl-mxm.txt", "mxm init", true,
mxm_error_string(err));
}
return OPAL_ERR_NOT_AVAILABLE;
@ -140,7 +140,7 @@ static int ompi_mtl_mxm_component_open(void)
32 /* free list inc */,
NULL);
if (OMPI_SUCCESS != rc) {
ompi_show_help("help-mtl-mxm.txt", "mxm init", true,
opal_show_help("help-mtl-mxm.txt", "mxm init", true,
mxm_error_string(err));
return OPAL_ERR_NOT_AVAILABLE;
}

4
ompi/mca/mtl/mxm/mtl_mxm_recv.c
Просмотреть файл

@ -95,7 +95,7 @@ int ompi_mtl_mxm_irecv(struct mca_mtl_base_module_t* mtl,
/* post-recv */
err = mxm_req_recv(mxm_recv_req);
if (OPAL_UNLIKELY(MXM_OK != err)) {
ompi_show_help("help-mtl-mxm.txt", "error posting receive", true,
opal_show_help("help-mtl-mxm.txt", "error posting receive", true,
mxm_error_string(err), mtl_mxm_request->buf, mtl_mxm_request->length);
return OMPI_ERROR;
}
@ -133,7 +133,7 @@ int ompi_mtl_mxm_imrecv(struct mca_mtl_base_module_t* mtl,
err = mxm_message_recv(mxm_recv_req, msgp->mxm_msg);
if (OPAL_UNLIKELY(MXM_OK != err)) {
ompi_show_help("help-mtl-mxm.txt", "error posting message receive", true,
opal_show_help("help-mtl-mxm.txt", "error posting message receive", true,
mxm_error_string(err), mtl_mxm_request->buf, mtl_mxm_request->length);
return OMPI_ERROR;
}

4
ompi/mca/mtl/mxm/mtl_mxm_send.c
Просмотреть файл

@ -125,7 +125,7 @@ int ompi_mtl_mxm_send(struct mca_mtl_base_module_t* mtl,
/* post-send */
err = mxm_req_send(&mxm_send_req);
if (MXM_OK != err) {
ompi_show_help("help-mtl-mxm.txt", "error posting send", true, 0, mxm_error_string(err));
opal_show_help("help-mtl-mxm.txt", "error posting send", true, 0, mxm_error_string(err));
return OMPI_ERROR;
}
@ -192,7 +192,7 @@ int ompi_mtl_mxm_isend(struct mca_mtl_base_module_t* mtl,
/* post-send */
err = mxm_req_send(mxm_send_req);
if (MXM_OK != err) {
ompi_show_help("help-mtl-mxm.txt", "error posting send", true, 1, mxm_error_string(err));
opal_show_help("help-mtl-mxm.txt", "error posting send", true, 1, mxm_error_string(err));
return OMPI_ERROR;
}

10
ompi/mca/mtl/psm/mtl_psm.c
Просмотреть файл

@ -66,7 +66,7 @@ ompi_mtl_psm_errhandler(psm_ep_t ep, const psm_error_t error,
case PSM_EP_NO_PORTS_AVAIL:
case PSM_EP_NO_NETWORK:
case PSM_EP_INVALID_UUID_KEY:
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"unable to open endpoint", true,
psm_error_get_string(error));
break;
@ -100,7 +100,7 @@ int ompi_mtl_psm_module_init(int local_rank, int num_local_procs) {
if (!generated_key || (strlen(generated_key) != 33) ||
sscanf(generated_key, "%016llx-%016llx", &uu[0], &uu[1]) != 2)
{
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"no uuid present", true,
generated_key ? "could not be parsed from" :
"not present in", ompi_process_info.nodename);
@ -144,7 +144,7 @@ int ompi_mtl_psm_module_init(int local_rank, int num_local_procs) {
/* Open PSM endpoint */
err = psm_ep_open(unique_job_key, &ep_opt, &ep, &epid);
if (err) {
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"unable to open endpoint", true,
psm_error_get_string(err));
return OMPI_ERROR;
@ -159,7 +159,7 @@ int ompi_mtl_psm_module_init(int local_rank, int num_local_procs) {
0,
&mq);
if (err) {
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"psm init", true,
psm_error_get_string(err));
return OMPI_ERROR;
@ -441,7 +441,7 @@ int ompi_mtl_psm_progress( void ) {
while (1);
error:
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"error polling network", true,
psm_error_get_string(err));
return 1;

6
ompi/mca/mtl/psm/mtl_psm_component.c
Просмотреть файл

@ -132,7 +132,7 @@ ompi_mtl_psm_component_register(void)
if (!strcasecmp(path_res, "opp"))
ompi_mtl_psm.path_res_type = PSM_PATH_RES_OPP;
else {
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"path query mechanism unknown", true,
path_res, "OfedPlus (opp) | Static Routes (none)");
return OMPI_ERR_NOT_FOUND;
@ -236,7 +236,7 @@ ompi_mtl_psm_component_init(bool enable_progress_threads,
sizeof(unsigned));
if (err) {
/* Non fatal error. Can continue */
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"psm init", false,
psm_error_get_string(err));
}
@ -255,7 +255,7 @@ ompi_mtl_psm_component_init(bool enable_progress_threads,
err = psm_init(&verno_major, &verno_minor);
if (err) {
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"psm init", true,
psm_error_get_string(err));
return NULL;

2
ompi/mca/mtl/psm/mtl_psm_recv.c
Просмотреть файл

@ -68,7 +68,7 @@ ompi_mtl_psm_irecv(struct mca_mtl_base_module_t* mtl,
&mtl_psm_request->psm_request);
if (err) {
ompi_show_help("help-mtl-psm.txt",
opal_show_help("help-mtl-psm.txt",
"error posting receive", true,
psm_error_get_string(err),
mtl_psm_request->buf, length);

3
ompi/mca/pml/base/pml_base_select.c
Просмотреть файл

@ -27,6 +27,7 @@
#include "opal/class/opal_list.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "opal/runtime/opal_progress.h"
#include "opal/mca/mca.h"
#include "opal/mca/base/base.h"
@ -169,7 +170,7 @@ int mca_pml_base_select(bool enable_progress_threads,
/* Finished querying all components. Check for the bozo case. */
if( NULL == best_component ) {
ompi_show_help("help-mca-base.txt", "find-available:none-found", true, "pml");
opal_show_help("help-mca-base.txt", "find-available:none-found", true, "pml");
for( i = 0; i < opal_pointer_array_get_size(&mca_pml_base_pml); i++) {
char * tmp_val = NULL;
tmp_val = (char *) opal_pointer_array_get_item(&mca_pml_base_pml, i);

3
ompi/mca/pml/bfo/pml_bfo.c
Просмотреть файл

@ -30,6 +30,7 @@
#include "opal/class/opal_bitmap.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "ompi/mca/pml/pml.h"
#include "ompi/mca/pml/base/base.h"
@ -355,7 +356,7 @@ int mca_pml_bfo_add_procs(ompi_proc_t** procs, size_t nprocs)
mca_btl_base_selected_module_t *sm =
(mca_btl_base_selected_module_t*) item;
if (sm->btl_module->btl_eager_limit < sizeof(mca_pml_bfo_hdr_t)) {
ompi_show_help("help-mpi-pml-bfo.txt", "eager_limit_too_small",
opal_show_help("help-mpi-pml-bfo.txt", "eager_limit_too_small",
true,
sm->btl_component->btl_version.mca_component_name,
ompi_process_info.nodename,

3
ompi/mca/pml/csum/pml_csum.c
Просмотреть файл

@ -32,6 +32,7 @@
#include "opal/class/opal_bitmap.h"
#include "opal/util/crc.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "ompi/mca/pml/pml.h"
#include "ompi/mca/pml/base/base.h"
@ -371,7 +372,7 @@ int mca_pml_csum_add_procs(ompi_proc_t** procs, size_t nprocs)
mca_btl_base_selected_module_t *sm =
(mca_btl_base_selected_module_t*) item;
if (sm->btl_module->btl_eager_limit < sizeof(mca_pml_csum_hdr_t)) {
ompi_show_help("help-mpi-pml-csum.txt", "eager_limit_too_small",
opal_show_help("help-mpi-pml-csum.txt", "eager_limit_too_small",
true,
sm->btl_component->btl_version.mca_component_name,
ompi_process_info.nodename,

3
ompi/mca/pml/dr/pml_dr.c
Просмотреть файл

@ -25,6 +25,7 @@
#include <string.h>
#include "opal/class/opal_bitmap.h"
#include "opal/util/show_help.h"
#include "ompi/mca/pml/pml.h"
#include "ompi/mca/btl/btl.h"
#include "ompi/mca/btl/base/base.h"
@ -216,7 +217,7 @@ int mca_pml_dr_add_procs(ompi_proc_t** procs, size_t nprocs)
mca_btl_base_selected_module_t *sm =
(mca_btl_base_selected_module_t*) item;
if (sm->btl_module->btl_eager_limit < sizeof(mca_pml_dr_hdr_t)) {
ompi_show_help("help-mpi-pml-dr.txt", "eager_limit_too_small",
opal_show_help("help-mpi-pml-dr.txt", "eager_limit_too_small",
true,
sm->btl_component->btl_version.mca_component_name,
ompi_process_info.nodename,

3
ompi/mca/pml/ob1/pml_ob1.c
Просмотреть файл

@ -31,6 +31,7 @@
#include "opal/class/opal_bitmap.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "opal_stdint.h"
#include "ompi/mca/pml/pml.h"
@ -355,7 +356,7 @@ int mca_pml_ob1_add_procs(ompi_proc_t** procs, size_t nprocs)
mca_btl_base_selected_module_t *sm =
(mca_btl_base_selected_module_t*) item;
if (sm->btl_module->btl_eager_limit < sizeof(mca_pml_ob1_hdr_t)) {
ompi_show_help("help-mpi-pml-ob1.txt", "eager_limit_too_small",
opal_show_help("help-mpi-pml-ob1.txt", "eager_limit_too_small",
true,
sm->btl_component->btl_version.mca_component_name,
ompi_process_info.nodename,

18
ompi/mca/pubsub/orte/pubsub_orte.c
Просмотреть файл

@ -26,10 +26,10 @@
#include <stdio.h>
#include <ctype.h>
#include "orte/util/show_help.h"
#include "opal/util/show_help.h"
#include "opal/util/argv.h"
#include "opal/dss/dss.h"
#include "orte/mca/errmgr/errmgr.h"
#include "orte/mca/rml/rml.h"
#include "orte/mca/rml/rml_types.h"
@ -160,7 +160,7 @@ static int publish ( char *service_name, ompi_info_t *info, char *port_name )
* if that server wasn't contacted
*/
if (!mca_pubsub_orte_component.server_found) {
orte_show_help("help-ompi-pubsub-orte.txt", "pubsub-orte:no-server",
opal_show_help("help-ompi-pubsub-orte.txt", "pubsub-orte:no-server",
true, (long)ORTE_PROC_MY_NAME->vpid, "publish to");
return OMPI_ERR_NOT_FOUND;
}
@ -264,7 +264,7 @@ static char* lookup ( char *service_name, ompi_info_t *info )
if (NULL != tokens) {
if ((num_tokens = opal_argv_count(tokens)) > 2) {
/* too many values in the comma-delimited list */
orte_show_help("help-ompi-pubsub-orte.txt",
opal_show_help("help-ompi-pubsub-orte.txt",
"pubsub-orte:too-many-orders",
true, (long)ORTE_PROC_MY_NAME->vpid,
(long)num_tokens);
@ -278,7 +278,7 @@ static char* lookup ( char *service_name, ompi_info_t *info )
lookup[i] = GLOBAL;
} else {
/* unrecognized value -- that's an error */
orte_show_help("help-ompi-pubsub-orte.txt",
opal_show_help("help-ompi-pubsub-orte.txt",
"pubsub-orte:unknown-order",
true, (long)ORTE_PROC_MY_NAME->vpid);
return NULL;
@ -295,7 +295,7 @@ static char* lookup ( char *service_name, ompi_info_t *info )
/* if the user provided an info key, then we at least must
* be given one place to look
*/
orte_show_help("help-ompi-pubsub-orte.txt",
opal_show_help("help-ompi-pubsub-orte.txt",
"pubsub-orte:unknown-order",
true, (long)ORTE_PROC_MY_NAME->vpid);
return NULL;
@ -334,7 +334,7 @@ static char* lookup ( char *service_name, ompi_info_t *info )
* if that server wasn't contacted
*/
if (!mca_pubsub_orte_component.server_found) {
orte_show_help("help-ompi-pubsub-orte.txt",
opal_show_help("help-ompi-pubsub-orte.txt",
"pubsub-orte:no-server",
true, (long)ORTE_PROC_MY_NAME->vpid,
"lookup from");
@ -345,7 +345,7 @@ static char* lookup ( char *service_name, ompi_info_t *info )
continue;
} else {
/* unknown host! */
orte_show_help("help-ompi-pubsub-orte.txt",
opal_show_help("help-ompi-pubsub-orte.txt",
"pubsub-orte:unknown-order",
true, (long)ORTE_PROC_MY_NAME->vpid);
return NULL;
@ -460,7 +460,7 @@ static int unpublish ( char *service_name, ompi_info_t *info )
* if that server wasn't contacted
*/
if (!mca_pubsub_orte_component.server_found) {
orte_show_help("help-ompi-pubsub-orte.txt", "pubsub-orte:no-server",
opal_show_help("help-ompi-pubsub-orte.txt", "pubsub-orte:no-server",
true, (long)ORTE_PROC_MY_NAME->vpid, "unpublish from");
return OMPI_ERR_NOT_FOUND;
}

7
ompi/mca/rte/orte/rte_orte.h
Просмотреть файл

@ -32,7 +32,6 @@
#include "orte/runtime/runtime.h"
#include "orte/util/name_fns.h"
#include "orte/util/proc_info.h"
#include "orte/util/show_help.h"
BEGIN_C_DECLS
@ -77,12 +76,6 @@ OMPI_DECLSPEC void ompi_rte_abort(int error_code, char *fmt, ...);
#define ompi_rte_finalize() orte_finalize()
OMPI_DECLSPEC void ompi_rte_wait_for_debugger(void);
/* Show-help support */
OMPI_DECLSPEC int ompi_show_help(const char *filename, const char *topic,
bool want_error_header, ...);
#define ompi_show_help_is_available() orte_show_help_is_available()
#define ompi_help_want_aggregate orte_help_want_aggregate
/* Database operations */
#define ompi_rte_db_store(a, b, c, d) orte_db.store(a, b, c, d)
#define ompi_rte_db_fetch(a, b, c, d) orte_db.fetch(a, b, c, d)

27
ompi/mca/rte/orte/rte_orte_module.c
Просмотреть файл

@ -12,7 +12,6 @@
#include "opal/dss/dss.h"
#include "opal/util/argv.h"
#include "opal/util/opal_getcwd.h"
#include "opal/util/show_help.h"
#include "orte/mca/errmgr/errmgr.h"
#include "orte/mca/ess/ess.h"
@ -76,32 +75,6 @@ void ompi_rte_abort(int error_code, char *fmt, ...)
/* No way to reach here */
}
int ompi_show_help(const char *filename, const char *topic,
bool want_error_header, ...)
{
va_list arglist;
char *output;
int rc;
if (orte_execute_quiet) {
return OMPI_SUCCESS;
}
va_start(arglist, want_error_header);
output = opal_show_help_vstring(filename, topic, want_error_header, arglist);
va_end(arglist);
/* If nothing came back, there's nothing to do */
if (NULL == output) {
return OMPI_SUCCESS;
}
rc = orte_show_help_norender(filename, topic, want_error_header, output);
free(output);
return rc;
}
/*
* Wait for a debugger if asked. We support two ways of waiting for

6
ompi/mca/rte/pmi/rte_pmi.h
Просмотреть файл

@ -110,12 +110,6 @@ OMPI_DECLSPEC int ompi_rte_init(int *argc, char ***argv);
OMPI_DECLSPEC int ompi_rte_finalize(void);
OMPI_DECLSPEC void ompi_rte_wait_for_debugger(void);
/* Show-help support */
OMPI_DECLSPEC int ompi_show_help(const char *filename, const char *topic,
bool want_error_header, ...);
#define ompi_show_help_is_available() true
#define ompi_help_want_aggregate false
/* Database operations */
struct opal_buffer_t;

16
ompi/mca/rte/pmi/rte_pmi_error.c
Просмотреть файл

@ -20,7 +20,6 @@
#include "opal/util/error.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "ompi/constants.h"
#include "ompi/mca/rte/rte.h"
@ -67,18 +66,3 @@ ompi_rte_set_fault_callback(void (*callback)(opal_pointer_array_t*))
{
/* This is intentionally a no-op. We don't get async errors from PMI. */
}
int
ompi_show_help(const char *filename, const char *topic,
bool want_error_header, ...)
{
va_list ap;
int ret;
va_start(ap, want_error_header);
ret = opal_show_vhelp(filename, topic, want_error_header, ap);
va_end(ap);
return ret;
}

16
ompi/mca/rte/rte.h
Просмотреть файл

@ -114,19 +114,7 @@
* function is used to wait for debuggers to do their pre-MPI attach.
* If there is no attached debugger, this function will not block.
*
* (f) Support for pretty-print help messages
* 1. ompi_show_help - a function used to pretty-print help messages
* based on the opal_show_help system. See the orte/util/show_help.h
* file for a more detailed explanation of requirements for this
* function. The function prototype must be of the form:
* int ompi_show_help(const char *filename, const char *topic,
* bool want_error_header, ...);
* 2. ompi_show_help_is_available - a function that returns true if
* show_help support is available
* 3. ompi_help_want_aggregate - a boolean flag that indicates if
* show_help messages will be aggregated by the show_help system.
*
* (g) Database operations
* (f) Database operations
* 1. ompi_rte_db_store - a function to store modex and other data in
* a local database. The function is primarily used for storing modex
* data, but can be used for general purposes. The prototype must be
@ -149,7 +137,7 @@
* a. OMPI_DB_HOSTNAME
* b. OMPI_DB_LOCALITY
*
* (h) Communication support
* (g) Communication support
*
*/

2
ompi/mca/sbgp/ibnet/sbgp_ibnet_component.c
Просмотреть файл

@ -519,7 +519,7 @@ static int ibnet_load_devices(void)
if(0 == num_devs || NULL == ib_devs) {
IBNET_VERBOSE(10, ("No ib devices found"));
/* No hca error*/
ompi_show_help("help-mpi-sbgp-ibnet.txt", "no-nics", true);
opal_show_help("help-mpi-sbgp-ibnet.txt", "no-nics", true);
return OMPI_ERROR;
}

2
ompi/mca/sbgp/ibnet/sbgp_ibnet_mca.c
Просмотреть файл

@ -188,7 +188,7 @@ int mca_sbgp_ibnet_register_params(void)
free(msg);
if (ival < IBV_MTU_1024 || ival > IBV_MTU_4096) {
ompi_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
opal_show_help("help-mpi-bcol-iboffload.txt", "invalid mca param value",
true, "invalid value for btl_openib_ib_mtu",
"btl_openib_ib_mtu reset to 1024");
mca_sbgp_ibnet_component.mtu = IBV_MTU_1024;

4
ompi/mpi/c/abort.c
Просмотреть файл

@ -18,8 +18,8 @@
*/
#include "ompi_config.h"
#include "opal/util/show_help.h"
#include "ompi/mpi/c/bindings.h"
#include "ompi/mca/rte/rte.h"
#include "ompi/runtime/params.h"
#include "ompi/errhandler/errhandler.h"
#include "ompi/runtime/mpiruntime.h"
@ -52,7 +52,7 @@ int MPI_Abort(MPI_Comm comm, int errorcode)
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
}
ompi_show_help("help-mpi-api.txt", "mpi-abort", true,
opal_show_help("help-mpi-api.txt", "mpi-abort", true,
ompi_comm_rank(comm),
('\0' != comm->c_name[0]) ? comm->c_name : "<Unknown>",
errorcode);

5
ompi/mpi/c/init.c
Просмотреть файл

@ -22,6 +22,7 @@
#include <stdlib.h>
#include "opal/util/show_help.h"
#include "ompi/mpi/c/bindings.h"
#include "ompi/communicator/communicator.h"
#include "ompi/errhandler/errhandler.h"
@ -49,7 +50,7 @@ int MPI_Init(int *argc, char ***argv)
if (ompi_mpi_finalized) {
if (0 == ompi_comm_rank(MPI_COMM_WORLD)) {
ompi_show_help("help-mpi-api.txt",
opal_show_help("help-mpi-api.txt",
"mpi-function-after-finalize", true, FUNC_NAME);
}
return ompi_errhandler_invoke(NULL, NULL,
@ -57,7 +58,7 @@ int MPI_Init(int *argc, char ***argv)
MPI_ERR_OTHER, FUNC_NAME);
} else if (ompi_mpi_initialized) {
if (0 == ompi_comm_rank(MPI_COMM_WORLD)) {
ompi_show_help("help-mpi-api.txt", "mpi-initialize-twice",
opal_show_help("help-mpi-api.txt", "mpi-initialize-twice",
true, FUNC_NAME);
}
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER,

5
ompi/mpi/c/init_thread.c
Просмотреть файл

@ -19,6 +19,7 @@
#include "ompi_config.h"
#include "opal/util/show_help.h"
#include "ompi/mpi/c/bindings.h"
#include "ompi/runtime/params.h"
#include "ompi/communicator/communicator.h"
@ -62,14 +63,14 @@ int MPI_Init_thread(int *argc, char ***argv, int required,
if (ompi_mpi_finalized) {
if (0 == ompi_comm_rank(MPI_COMM_WORLD)) {
ompi_show_help("help-mpi-api.txt", "mpi-function-after-finalize",
opal_show_help("help-mpi-api.txt", "mpi-function-after-finalize",
true, FUNC_NAME);
}
return ompi_errhandler_invoke(NULL, NULL, OMPI_ERRHANDLER_TYPE_COMM,
MPI_ERR_OTHER, FUNC_NAME);
} else if (ompi_mpi_initialized) {
if (0 == ompi_comm_rank(MPI_COMM_WORLD)) {
ompi_show_help("help-mpi-api.txt", "mpi-initialize-twice",
opal_show_help("help-mpi-api.txt", "mpi-initialize-twice",
true, FUNC_NAME);
}
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);

7
ompi/proc/proc.c
Просмотреть файл

@ -28,6 +28,7 @@
#include "opal/threads/mutex.h"
#include "opal/dss/dss.h"
#include "opal/util/arch.h"
#include "opal/util/show_help.h"
#include "ompi/proc/proc.h"
#include "ompi/datatype/ompi_datatype.h"
@ -167,7 +168,7 @@ int ompi_proc_complete_init(void)
OBJ_RELEASE(proc->proc_convertor);
proc->proc_convertor = opal_convertor_create(proc->proc_arch, 0);
#else
ompi_show_help("help-mpi-runtime",
opal_show_help("help-mpi-runtime",
"heterogeneous-support-unavailable",
true, ompi_process_info.nodename,
proc->proc_hostname == NULL ? "<hostname unavailable>" : proc->proc_hostname);
@ -399,7 +400,7 @@ int ompi_proc_refresh(void) {
OBJ_RELEASE(proc->proc_convertor);
proc->proc_convertor = opal_convertor_create(proc->proc_arch, 0);
#else
ompi_show_help("help-mpi-runtime",
opal_show_help("help-mpi-runtime",
"heterogeneous-support-unavailable",
true, ompi_process_info.nodename,
proc->proc_hostname == NULL ? "<hostname unavailable>" :
@ -570,7 +571,7 @@ ompi_proc_unpack(opal_buffer_t* buf,
OBJ_RELEASE(plist[i]->proc_convertor);
plist[i]->proc_convertor = opal_convertor_create(plist[i]->proc_arch, 0);
#else
ompi_show_help("help-mpi-runtime",
opal_show_help("help-mpi-runtime",
"heterogeneous-support-unavailable",
true, ompi_process_info.nodename,
new_hostname == NULL ? "<hostname unavailable>" :

3
ompi/runtime/ompi_mpi_finalize.c
Просмотреть файл

@ -45,6 +45,7 @@
#include "opal/mca/base/base.h"
#include "opal/sys/atomic.h"
#include "opal/runtime/opal.h"
#include "opal/util/show_help.h"
#include "mpi.h"
#include "ompi/constants.h"
@ -103,7 +104,7 @@ int ompi_mpi_finalize(void)
pid_t pid = getpid();
gethostname(hostname, sizeof(hostname));
ompi_show_help("help-mpi-runtime.txt",
opal_show_help("help-mpi-runtime.txt",
"mpi_finalize:invoked_multiple_times",
true, hostname, pid);
return MPI_ERR_OTHER;

8
ompi/runtime/ompi_mpi_init.c
Просмотреть файл

@ -161,7 +161,7 @@ static bool atfork_called = false;
static void warn_fork_cb(void)
{
if (ompi_mpi_initialized && !ompi_mpi_finalized && !fork_warning_issued) {
ompi_show_help("help-mpi-runtime.txt", "mpi_init:warn-fork", true,
opal_show_help("help-mpi-runtime.txt", "mpi_init:warn-fork", true,
ompi_process_info.nodename, getpid(),
ompi_mpi_comm_world.comm.c_my_rank);
fork_warning_issued = true;
@ -736,7 +736,7 @@ int ompi_mpi_init(int argc, char **argv, int requested, int *provided)
Otherwise, if we got some other failure, fall through to print
a generic message. */
if (OMPI_ERR_UNREACH == ret) {
ompi_show_help("help-mpi-runtime",
opal_show_help("help-mpi-runtime",
"mpi_init:startup:pml-add-procs-fail", true);
error = NULL;
goto error;
@ -923,9 +923,9 @@ int ompi_mpi_init(int argc, char **argv, int requested, int *provided)
/* Only print a message if one was not already printed */
if (NULL != error) {
const char *err_msg = opal_strerror(ret);
/* If RTE was not setup yet, don't use ompi_show_help */
/* If RTE was not setup yet, don't use opal_show_help */
if (rte_setup) {
ompi_show_help("help-mpi-runtime",
opal_show_help("help-mpi-runtime",
"mpi_init:startup:internal-failure", true,
"MPI_INIT", "MPI_INIT", error, err_msg, ret);
} else {

9
ompi/runtime/ompi_mpi_params.c
Просмотреть файл

@ -38,6 +38,7 @@
#include "opal/mca/base/mca_base_param.h"
#include "opal/util/argv.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
/*
* Global variables
@ -86,7 +87,7 @@ int ompi_mpi_register_params(void)
value = 1;
}
if (0 == value) {
ompi_show_help("help-mpi-runtime.txt",
opal_show_help("help-mpi-runtime.txt",
"mpi-param-check-enabled-but-compiled-out",
true);
ompi_mpi_param_check = false;
@ -256,7 +257,7 @@ int ompi_mpi_register_params(void)
if (ompi_mpi_leave_pinned && ompi_mpi_leave_pinned_pipeline) {
ompi_mpi_leave_pinned_pipeline = 0;
ompi_show_help("help-mpi-runtime.txt",
opal_show_help("help-mpi-runtime.txt",
"mpi-params:leave-pinned-and-pipeline-selected",
true);
}
@ -282,7 +283,7 @@ int ompi_mpi_register_params(void)
value = 1;
}
if (0 == value) {
ompi_show_help("help-mpi-runtime.txt",
opal_show_help("help-mpi-runtime.txt",
"sparse groups enabled but compiled out",
true);
ompi_use_sparse_group_storage = false;
@ -299,7 +300,7 @@ int ompi_mpi_register_params(void)
value = 1;
}
if (0 == value) {
ompi_show_help("help-mpi-runtime.txt",
opal_show_help("help-mpi-runtime.txt",
"CUDA GPU buffer support requested but compiled out",
true);
ompi_mpi_cuda_support = false;