1
1
openmpi/orte/mca/rml/cnos/rml_cnos.c
Ralph Castain 4fff584a68 Commit the orted-failed-to-start code. This correctly causes the system to detect the failure of an orted to start and allows the system to terminate all procs/orteds that *did* start.
The primary change that underlies all this is in the OOB. Specifically, the problem in the code until now has been that the OOB attempts to resolve an address when we call the "send" to an unknown recipient. The OOB would then wait forever if that recipient never actually started (and hence, never reported back its OOB contact info). In the case of an orted that failed to start, we would correctly detect that the orted hadn't started, but then we would attempt to order all orteds (including the one that failed to start) to die. This would cause the OOB to "hang" the system.

Unfortunately, revising how the OOB resolves addresses introduced a number of additional problems. Specifically, and most troublesome, was the fact that comm_spawn involved the immediate transmission of the rendezvous point from parent-to-child after the child was spawned. The current code used the OOB address resolution as a "barrier" - basically, the parent would attempt to send the info to the child, and then "hold" there until the child's contact info had arrived (meaning the child had started) and the send could be completed.

Note that this also caused comm_spawn to "hang" the entire system if the child never started... The app-failed-to-start helped improve that behavior - this code provides additional relief.

With this change, the OOB will return an ADDRESSEE_UNKNOWN error if you attempt to send to a recipient whose contact info isn't already in the OOB's hash tables. To resolve comm_spawn issues, we also now force the cross-sharing of connection info between parent and child jobs during spawn.

Finally, to aid in setting triggers to the right values, we introduce the "arith" API for the GPR. This function allows you to atomically change the value in a registry location (either divide, multiply, add, or subtract) by the provided operand. It is equivalent to first fetching the value using a "get", then modifying it, and then putting the result back into the registry via a "put".

This commit was SVN r14711.
2007-05-21 18:31:28 +00:00

286 строки
6.1 KiB
C

/*
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2005 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "orte_config.h"
#include "orte/orte_constants.h"
#include "opal/util/output.h"
#include "orte/mca/rml/base/base.h"
#include "rml_cnos.h"
#include "orte/mca/errmgr/errmgr.h"
#if OMPI_RML_CNOS_HAVE_BARRIER
#include <catamount/cnos_mpi_os.h>
#endif
orte_rml_component_t mca_rml_cnos_component = {
/* First, the mca_base_component_t struct containing meta
* information about the component itself */
{
/* Indicate that we are a rml v1.0.0 component (which also
* implies a specific MCA version) */
ORTE_RML_BASE_VERSION_1_0_0,
"cnos", /* MCA component name */
ORTE_MAJOR_VERSION, /* MCA component major version */
ORTE_MINOR_VERSION, /* MCA component minor version */
ORTE_RELEASE_VERSION, /* MCA component release version */
orte_rml_cnos_open, /* component open */
orte_rml_cnos_close, /* component close */
}
,
/* Next the MCA v1.0.0 component meta data */
{
/* Whether the component is checkpointable or not */
false}
,
orte_rml_cnos_init
};
orte_rml_module_t orte_rml_cnos_module = {
orte_rml_cnos_module_init,
orte_rml_cnos_module_fini,
orte_rml_cnos_get_uri,
orte_rml_cnos_set_uri,
orte_rml_cnos_parse_uris,
orte_rml_cnos_ping,
orte_rml_cnos_send,
orte_rml_cnos_send_nb,
orte_rml_cnos_send_buffer,
orte_rml_cnos_send_buffer_nb,
orte_rml_cnos_recv,
orte_rml_cnos_recv_nb,
orte_rml_cnos_recv_buffer,
orte_rml_cnos_recv_buffer_nb,
orte_rml_cnos_recv_cancel,
orte_rml_cnos_barrier,
orte_rml_cnos_xcast,
orte_rml_cnos_xcast_nb,
orte_rml_cnos_xcast_gate,
orte_rml_cnos_register_contact_info,
orte_rml_cnos_register_subscription,
orte_rml_cnos_get_contact_info,
orte_rml_cnos_update_contact_info
};
int
orte_rml_cnos_open(void)
{
return ORTE_SUCCESS;
}
orte_rml_module_t *
orte_rml_cnos_init(int *priority)
{
*priority = 0;
return &orte_rml_cnos_module;
}
int
orte_rml_cnos_close(void)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_module_init(void)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_module_fini(void)
{
return ORTE_SUCCESS;
}
char *
orte_rml_cnos_get_uri(void)
{
return "(none)";
}
int
orte_rml_cnos_set_uri(const char *name)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_parse_uris(const char *uri,
orte_process_name_t * peer, char ***uris)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_ping(const char *uri, const struct timeval *tv)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_send(orte_process_name_t * peer,
struct iovec *msg, int count, int tag, int flags)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_send_buffer(orte_process_name_t * peer,
orte_buffer_t * buffer,
orte_rml_tag_t tag, int flags)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_recv(orte_process_name_t * peer,
struct iovec *msg,
int count, orte_rml_tag_t tag, int flags)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_recv_buffer(orte_process_name_t * peer,
orte_buffer_t * buf, orte_rml_tag_t tag)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_send_nb(orte_process_name_t * peer,
struct iovec *msg,
int count,
orte_rml_tag_t tag,
int flags, orte_rml_callback_fn_t cbfunc, void *cbdata)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_send_buffer_nb(orte_process_name_t * peer,
orte_buffer_t * buffer,
orte_rml_tag_t tag,
int flags,
orte_rml_buffer_callback_fn_t
cbfunc, void *cbdata)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_recv_nb(orte_process_name_t * peer,
struct iovec *msg,
int count,
orte_rml_tag_t tag,
int flags, orte_rml_callback_fn_t cbfunc, void *cbdata)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_recv_buffer_nb(orte_process_name_t * peer,
orte_rml_tag_t tag,
int flags,
orte_rml_buffer_callback_fn_t
cbfunc, void *cbdata)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_recv_cancel(orte_process_name_t * peer, orte_rml_tag_t tag)
{
return ORTE_ERR_NOT_SUPPORTED;
}
int
orte_rml_cnos_barrier(void)
{
#if OMPI_RML_CNOS_HAVE_BARRIER
cnos_barrier();
#endif
return ORTE_SUCCESS;
}
int
orte_rml_cnos_xcast(orte_jobid_t job,
orte_buffer_t *buffer,
orte_rml_tag_t tag)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_xcast_nb(orte_jobid_t job,
orte_buffer_t *buffer,
orte_rml_tag_t tag)
{
return ORTE_SUCCESS;
}
int
orte_rml_cnos_xcast_gate(orte_gpr_trigger_cb_fn_t cbfunc)
{
orte_rml_cnos_barrier();
if (NULL != cbfunc) {
orte_gpr_notify_message_t *msg;
msg = OBJ_NEW(orte_gpr_notify_message_t);
if (NULL == msg) {
ORTE_ERROR_LOG(ORTE_ERR_OUT_OF_RESOURCE);
return ORTE_ERR_OUT_OF_RESOURCE;
}
cbfunc(msg);
OBJ_RELEASE(msg);
}
return ORTE_SUCCESS;
}
int orte_rml_cnos_register_contact_info(void)
{
return ORTE_SUCCESS;
}
int orte_rml_cnos_register_subscription(orte_jobid_t job, char *trigger)
{
return ORTE_SUCCESS;
}
int orte_rml_cnos_get_contact_info(orte_process_name_t *name, orte_gpr_notify_data_t **data)
{
return ORTE_SUCCESS;
}
void orte_rml_cnos_update_contact_info(orte_gpr_notify_data_t* data,
void* cbdata)
{
return;
}